学进去

某字符（限ASCII字符）加密算法，对明文中的每个字符进行下列加密处理：
（1）将该字符的ASCII码转换成对应的2位十六进制数；
（2）将产生的十六进制数互换位置；
（3）步骤（2）产生的二位十六进制数即为该明文字符加密后的密文字符。
小明按照上述方法，设计了一个字符串加密的VB程序，功能如下：单击“生成密文”按钮 Command1，程序依次将文本框Text1中每个字符按上述规则进行加密处理，连接这些加密字符，最后在文本框Text2中输出加密结果。程序运行界面如图所示。

实现上述功能的VB程序如下：
（1）按照上述加密算法，明文“B”生成的密文是________________。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private sub Command2_Click()
Dim s As String,a As String,ans As String
Dim c As Integer,i As Integer
Dim s1 As String
s= Text1. Text
ans="  "
For i=1 To Len(s)

a=Mid(s,i,1)

s1=______

ans=______

Next i
Text2. Text=ans
End Sub
Function DToh(x As Integer)As String
Dim str As string
str="0123456789ABCDEF"
Do While x < > 0

t=x Mod 16

_______

x=x\16

Loop
End Function