编写VB程序,实现如下功能:在文本框Text1中输入一个十进制整数,单击命令按钮Command1,在标签Label2上显示转换成十六进制数的结果,运行效果如图所示。
(1)
在设计程序界面时,要使按钮Command1上的文字显示为“转化成十六进制”,应修改按钮Command1的属性。
(2)
为实现上述功能,请在划线处填入合适的代码。
Private Sub
Command1_Click()
Dim y As
Integer, r As Integer
Dim s As
String, t As String
t =
"0123456789ABCDEF"
s =
""
y = ①
Do While y
> 0
r = y Mod 16
s = ②
y = ③
Loop
Label2.Caption
= Text1.Text + "转化成十六进制数为:" + str(s)
End Sub
答案: 【1】Caption
【1】Val(Text1.Text)【2】mid(t,r+1,1) + S【3】y\ 16