某信息加密程序，對輸入的明文（由英文字母或數(shù)字組成的字符串）進(jìn)行加密，輸出加密后得到的密文。
數(shù)據(jù)加密方法為對明文中的每個字符進(jìn)行如下處理：
1）將該字符的ASCII碼轉(zhuǎn)換成對應(yīng)的8位二進(jìn)制；
2）將對應(yīng)的8位二進(jìn)制數(shù)進(jìn)行按位取反（1變0，0變1）；
3）將產(chǎn)生的8位二進(jìn)制數(shù)循環(huán)左移3次；

4）最后產(chǎn)生的8位二進(jìn)制數(shù)轉(zhuǎn)換成對應(yīng)的十六進(jìn)制數(shù)。
例如，明文大寫字母“A”通過上述算法加密算法加密后生成的密文是“F5”，信息加密過程如圖a所示。小李編寫了加密算法的VB程序，在文本框Text1中輸入明文，單擊“生成密文”按鈕Command1，程序?qū)γ魑臄?shù)據(jù)依次進(jìn)行加密處理，加密后生成的密文顯示在文本框Text2中。程序運(yùn)行界面如圖b所示。

（1）如果輸入明文為大寫字母“F”，則生成的密文是

CD

CD

。
（2）實(shí)現(xiàn)上述功能的VB程序如下。請?jiān)跈M線處填入合適代碼。
Function btoh（m As String） As String'將4位二進(jìn)制數(shù)轉(zhuǎn)換成對應(yīng)的十六進(jìn)制數(shù)
Dim s As Integer,i As Integer
Dim str As String
str=“0123456789ABCDEF“
s=0
For i=1To 4
s=s*2+Val（Mid（m,i,1））
Next i
①

both=Mid（str,s+1，1）

both=Mid（str,s+1，1）

End Function
Private Sub Command1_Click （　?。?br />Dim ans As String,s As String,ch As String,ret As String
Dim i As Integer,asc1As Integer,n As Integer
s=Text1．Text
ans=““
For i=1To Len（s）
ch=Mid（s,i,1）'取出第i個字符存入變量ch
asc1=Asc（ch）
ret=““
For m=1To 8'完成加密步驟1）和步驟2）
n=（asc1+1）mod 2
ret=n+ret
②

asc1=asc1\2

asc1=asc1\2

Next m
ret=Mid（ret,4，5）+Mid（ret,1，3）'完成加密步驟3）和步驟4）
s1=btoh（Mid（ret,1，4））
s2=btoh（Mid（ret,5，4））
ans=ans+s1+s2'將第i個加密后的字符添加到變量ans的末尾
Next i
Text2．Text=ans
End Sub