试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省高中信息技术 解析算法及程序实现同步练习

用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输出的值是
返回首页

试题篮