学进去

二进制转十六进制，从文本框TextB输入二进制整数，单击“转换”按钮，将二进制转换为十六进制并显示在文本框TextH中。程序界面如图所示。转换方法：先从右往左将二进制数分割成4位一组，若最左边的一组不足4位，则用0将高位补足，然后将每4位二进制数转换为1位十六进制数。

（1）观察程序代码，“转换”按钮的对象名为_____________（单选，填字母：

A．TextB /B. TextH/

B．Command1/

C．Convert/

D．转换）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Convert_ Click()
Const zf ="0123456789ABCDEF"
Dim a(1 To 100)As Integer, temp As Integer
Dim s As String, res As String, n As Integer, r As Integer
res ="  ": s= TextB. Text: n = Len(s)
For i =1 To n

a(i)= Val(Mid(s, i, 1)).

Next i
t=n\4
①______
temp =0
For i=1 Tor＇将最高的r位转换为十六进制

temp =temp*2+a(i)

Next i
res=Mid(zf, temp+1, 1)
For i=1 To t＇将t组4位二进制转换为十六进制
temp =0
For j=1 To 4
temp= temp*2+②______
Next j
res= res + Mid(zf, temp+1, 1)
Next i
TextH. Text = res
End Sub.
（3）若在文本框TextB中输入“101000111”，则单击“转换”按钮后的输出结果为：_______________。