当前位置: 高中信息技术 / 综合题
  • 1. (2020高二下·宁波期中) 小红编写了一个将5位以内的十六进制正整数转化成十进制数的VB程序,功能如下:在文本框Text1中输入一个十六进制正整数,单击“转换”按钮Command1,在标签Label3中显示结果。程序运行界面如图所示。

    1. (1) 要使窗体Form1标题显示“数制转换”,则需该窗体的(单选,填字母:A .Font/ B .Caption/ C .BackColor)属性。
    2. (2) 要实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Private Sub Command1_Click()

      Dim x As String, ch As String

      Dim flag As Boolean, i As Integer, result As Long

      x =     ①      

      i = 1

      result = 0

      flag = True

      ch = Mid(x, 1, 1)

      Do While i <= Len(x) And flag = True

         If ch >= "0" And ch <= "9" Then

           result = result * 16 + Val(ch)

         ElseIf ch >= "A" And ch <= "F" Then

           result = result * 16 + (Asc(ch) - Asc("A") + 10)

         ElseIf ch >= "a" And ch <= "f" Then

           result = result * 16 + (Asc(ch) - Asc("a") + 10)

         Else

           flag = False

         End If

         i = i + 1

         ch =      ②      

      Loop

      If flag = True Then

         Label3.Caption = Str(result)

      Else

          Label3.Caption = "输入错误"

      End If

      End Sub

       ② 

    3. (3) 若在文本框Text1中输入5+9,单击“转换”按钮后,标签Label3中显示的内容是 (单选,填字母:A .14 / B .E / C .输入错误)。

微信扫码预览、分享更方便