某信息加密程序，对输入的明文（由英文字母或数字组成的字符串）进行加密，输出加密后得到的密文。
数据加密方法为对明文中的每个字符进行如下处理：
1）将该字符的ASCII码转换成对应的8位二进制；
2）将对应的8位二进制数进行按位取反（1变0，0变1）；
3）将产生的8位二进制数循环左移3次；

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

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

（1）如果输入明文为大写字母“F”，则生成的密文是__________。
（2）实现上述功能的VB程序如下。请在划线处填入合适代码。
Function btoh(m As String) As String    '将4位二进制数转换成对应的十六进制数
Dim s As Integer, i As Integer
Dim str As String
str = "0123456789ABCDEF"
s = 0
For i = 1 To 4
s = s * 2 + Val(Mid(m, i, 1))
Next i
①___________ 
End Function
Private Sub Command1_Click()
Dim ans As String, s As String, ch As String, ret As String
Dim i As Integer, asc1 As Integer, n As Integer
s = Text1.Text
ans = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1) '取出第i个字符存入变量ch
asc1 = Asc(ch)
ret = ""
For m = 1 To 8    '完成加密步骤1）和步骤2）
n = (asc1+1) mod 2
ret = n + ret
②___________
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

设a=2、b=3,在VB中表达式Not a>b and b>=3值是_______。

A．False

B．True

C．-1

D．1

如果x=4，那么以下运算结果为True的表达式是（   ）

A．(x<=4)and(x>=6)

B．(x>4)Or(x>=6)

C．(x>="4)and" not(x>=6)

D．not(x=4)

下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（   ）
Function max(a, b As Integer) As Integer
If a > b Then max = a  Else  max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub

A．Command1_Click

B．function

C．max

D．max(a, b As Integer)

在VB中，若a = 8，b = 5，则运行Print a; "-"; b; "="; a - b的结果是（ ）。

A．a -b = 3	B．8 - 5 = 3
C．a - b = a – b	D．3