学进去

编写VB程序，实现如下功能：在文本框Text1中输入二进制数，单击“转换”命令按钮Command1，在文本框Text2中输出对应的十六进制数。程序运行界面如图所示，请回答下列问题：

（1）如果输入的二进制数为“1101010”，则得到的结果为____________ 。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Function bw(x As Integer, y As String) As String
'函数bw功能：若二进制位数不足，通过在前面添"0"使得位数为4的倍数
Dim r As 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)
End If
bw =______________
End Function
Private Sub Command1_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 = Text1.Text
n = Len(m)
Text2.Text = ""
m =____________            '调整m的位数为4的倍数
For i = 1 To n - 3 Step 4
s = 0
For j = i To i + 3
a = Val(Mid(m, j, 1))
s =_______________
Next j
If s >= 10 Then
s1 = Chr(Asc("A") + s - 10)
Else
s1 = CStr(s)     '函数CStr类似于Str，但无前导空格
End If
Text2.Text = Text2.Text + s1
Next i
End Sub