题目

编写VB程序， 实现如下功能：在文本框Text 1中输入二进制数， 单击“转换”命令按钮Command 1，在文本框Text 2中输出对应的十六进制数。程序界面如图所示， 请回答下列问题： （1） 如果输入的二进制数为“1101010”，则得到的结果为。 （2） 实现上述功能的VB程序如下，请在划线处填入合适代码。 Private Function bw(x As Integer， y As String) As String     '函数bw功能：若二进制位数不足，通过在前面添”0”使得位数为4的倍数      Dim rAs Integer， i As Integer      r=x Mod 4      If r< 0 Then        For i= 1 To 4-r          y=”0”+y        Next i       x=Len(y)     EndIf     bw=①    End Function    Private SubCommand 1 Click()       Dim m As String， n As Integer， i As Integer， a As Integer       Dim s As Integer， s1 As String， j As Integer      m=Text 1.Text      n=Len(m)      Text 2.Text=””      m=②    ‘调整m的位数为4的倍数      For i=1Ton-3Step 4     s=0     For j=i To i+ 3        a=Val(Mid(m， j， 1) )       s=③     Next j     If s>= 10 Then        s 1=Chr(Asc(”A”) +s-10)     Else        s 1=CStr(s)'函数CStr类似于Str，但无前导空格     End If     Text 2.Text=Text 2.Text+s1   Next i End Sub ① ② ③  答案： 【1】6A 【1】y【2】bw(n, m)【3】s * 2 + a

查看本题答案和解析