题目

用VB编写十六进制转换为十进制的程序，运行界面如图所示，程序功能如下:在文本框Text1中输入待转换的十六进制数值(字母必须大写)，单击按钮Command1，进行转换，并将结果显示在文本框Text2中。 （1） 结合运行界面，当前窗体标题文字“进制转换”是From1对象的属性。 （2） 请根据题意将下列程序补充完整。 Private Sub Command1_Click()   Dim i As Integer, n As Integer, dec As Integer   Dim ch As String, s As String   dec=0     For i=1 To Len(s)     ch=Mid(s, i, 1)     If then        n=Asc(ch)-Asc("A")+10     Else        n=Val(Mid(s, i, 1))     End If     dec=dec+n * 16 ^ (Len(s)-i)   Next i   Text2.Text=str(dec) End Sub （3） 若在文本框Text1中输入“31”,则文本框Text2输出的值是。 答案： 【1】Caption 【1】s=Text1.Text【2】ch>=“A” and ch<=“F” 【1】49

查看本题答案和解析