题目

小王编写了一个进制转换程序，实现如下功能：在文本框Text1中输入一个二进制数，单击“计算”按钮Command1，在文本框Text2中将显示出其对应的十六进制数。程序运行界面如下图所示： （1） 要使程序启动时，自动清空文本框的 Text1 中的内容，则可以在（单选，填字母：A .Command1_click / B .Text1_click / C .Form_load）事件处理过程中添加语句 Text1.Text= "" （2） 实现上述功能的 VB 程序如下，请在划线处填入合适的代码 Private Sub Command1_Click（） Dim s As String, s1 As String, t As Integer, c As Integer Const code = "0123456789ABCDEF" s = Text1.Text t = 0: s1 = "" For i = Len(s) To 1 Step -1   c = Val(Mid(s, i, 1))   t = t + c * 2 ^ ((Len(s) - i) Mod 4)   If (Len(s) - i + 1) Mod 4 = 0 Or   ①   Then     ②    t = 0 End If Next i Text2.Text = s1 End sub ① ②  （3） 如果没有第①处划线部分的条件，当输入的二进制数为 1101011，则 Text2 中显示的内容为 答案： 【1】C 【1】i=1【2】s1 = Mid(code, t + 1, 1) & s1 或s1 = Mid(code, t + 1, 1) + s1 【1】B

查看本题答案和解析