学进去

某信息加密程序，对输入的明文（由英文字母或数字组成的字符串）进行加密，输出加密后得到的密文。
数据加密方法为对明文中的每个字符进行如下处理：
（1）将该字符的ASCII码（十进制）转换成对应的8位二进制：
（2）将产生的8位二进制数循环向左移动，第一个明文移动1位，第二明文移动2位，依此类推，当第9个明文向左移动1位，第10个明文移动2次，依此类推；

（3）最后产生的8位二进制数转换成对应的十六进制数例如，明文大写字母“B”通过上述算法加密算法加密后生成的密文是“84”，信息加密过程如图a所示。

小李编写了加密算法的VB程序，在文本框Text1中输入明文，单击“生成密文”按钮Commandl程序对明文数据依次进行加密处理，加密后生成的密文显示在文本框Text2中。程序运行界面如图b所示。

（1）如果输入的明文为“8A”，则生成的密文为___________。
（2）实现上述功能的VB程序如下。请在划线处填入合适代码。
Function switch(x As String)As String   ’将4位二进制数转换成对应的十六进制数
Dim s As Integer,  i As Integer
s = 0
For i = 1 To 4
s = 2 * s + Val(Mid(x，i，1))
Next i
If s >= 10 Then
①_______
Else
switch= Str(s)
End If
End Function
Private Sub Command1 _ Click()
Dim result As String, c As String, y As String, ret As String
Dim sl As string, s2 As String
Dim i As Intege, m As Integer, m As Integer, ch As Integer, j As Integer
c= Text1. Text
result  = " "
For i = 1 To Len(c)
ret = " "
y = " "
ch = Asc(Mid(c，i，1))
For m=1 To 8
②________
ch = ch \ 2
Nest m
For j = 1 To Len(y)
If mid(y，j，1) <> " " Then ret = ret + Mid(y，j，1)
Nest j
T =(i-1)Mod 8 + 1
ret =③_______    ’完成加密步骤2
s1 = switch(Mid(ret，1，4))   ’完成步骤3
s2 = switch(Mid(ret，5，4))
result = result & s1 & s2
Next i
Text2. Text = result
End sub