题库 高中信息

题干

在文本框Text1中输入一组12位以内的二进制数,将该二进制数转化为十六进制数后在Label1中输出。程序运行后如图所示,请完成以下题目。

(1)若要在窗体加载时,自动将文本框宽度调整为5000,则需在Form_Load()过程中加入语句Text1._____=5000(填字母:
A.Caption /B.Height /C.Width /D.Left)。
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Private  Sub  Command1_Click()
Dim  a(1 To 12)  As  String ’a数组用以存储二进制数
Dim  b(1 To 3)  As  Integer  ’b数组用以存储十六进制数
Dim  m, n  As  String
Dim  i, j, k  As  Integer
m = _______
For i = 12 To 12 - Len(m) + 1 Step -1 ’将每位二进制数保存到数组a中
a(i) = ______
Next i
For  i = 1 To 3   ’将每4位二进制数转化为十进制数后保存到数组b中
For  j = 4 To 1 Step -1
b(i) = b(i) + Val(a(i * 4 - j + 1)) * 2 ^ (j - 1)
Next j
Next i
For  i = 1 To 3
If  b(i) < 10  Then  m = Chr(b(i) + 48)  Else  m = Chr(b(i) + 55)
n = n & m
Next i
Label1.Caption = "转换后的十六进制数为:" + n
End  Sub
(3)若程序运行后,若在文本框中输入二进制数1101101101,则在Label1中显示的内容为:转换后的十六进制数为:____。
上一题 下一题 0.99难度 填空题 更新时间:2019-05-23 05:55:13

答案(点此获取答案解析)