《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，

VB程序段如下：
Private Sub Command1_Click()
k = 0 '用来计数
Max = 600     '指定范围600以内
n = 9
Do While n <= Max
Loop
Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"
End Sub
方框中的代码由以下五部分组成：
① n=n+7
② k = k + 1
③ List1.AddItem Str(n)
④ End If
⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then
代码顺序正确的选项是（ ）

A．⑤①②③④

B．②⑤③①④

C．⑤③②④①

D．⑤①③④②

在一次校园歌手大奖赛中，有20位评委负责评判，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，然后取评委打分的平均值作为选手的最后得分。根据上述规则，信息小组设计了计算选手得分的程序。核心部分的程序如下：
‘d数组中存放了20位评委的打分
Smax=0:smin=10:score=0
For  i=1  To  20

Next i
score =" (" score – smax – smin )/18
Text1.Text= smax
Text2.Text= smin
Text3.Text= score
请分析任务和程序段，完成下列题目。
（1）程序段中出现的Text1、Text2、Text3是 类型的控件。（选填“A”或“B”）

A．列表框

B．文本框

（2）在设计用户界面时，要在启动计算过程的按钮上显示“计算”二字，应该将按钮的“ ”属性值设置为“计算”。
（3）为精确地显示选手的最后得分，变量score的数据类型应定义为   。
（4）程序执行过程中，程序段中虚线框内的代码将被执行 次。
（5）请分析程序，将程序段中虚线框内的空白处补充完整。
If    

（加试题）小明编写了一个数据加密的VB程序功能如下：在文本框Text1中输入明文，单击“加 密”按钮Command1后在文本框Text2中显示加密后的密文，运行界面如下图所示。

其中加密算法如下：
①将明文中的ASCII码每3个字节为一组（该明文字符串均为ASCII码，且字节数为3的倍数），顺次连接 后得到24位二进制数
②将①中的24位二进制数每8位进行一次翻转操作，比如原来的“0101 0001”变为“1000 1010”
③将②所得24位二进制数逐位取反，比如原来的“1110”变为“0001”
④将③中所得的24位二进制数每6位一组转换为相应的十进制数，即得到对应的密文
⑤将所有密文顺序连接并输出 实现上述功能的VB程序如下，请回答下列问题：
（1）按照上述加密算法进行加密，则“ABC”的密文是________（已知“A”的ASCII码值为65）
（2）请在划线处填入合适代码：
Dim a(1 To 24) As Integer, k As Integer
Private Sub Command1_Click()
Dim mw As String, ch1 As Integer, ch2 As String, ch3 As String, s As String
Dim m As Integer, i As Integer, j As Integer
s = ""
mw = Text1.Text    ‘mw存储明文字符串
For i = 1 To Len(mw) Step 3
For j = 1 To 24    ‘初始化数组，用于存储三个字节的二进制数
a(j) = 0
Next j k=1
ch1 = Asc(Mid(mw, i, 1))
ch2 = Asc(Mid(mw, i + 1, 1))
ch3 = Asc(Mid(mw, i + 2, 1))
Convert (ch1)    ‘调用自定义过程Convert
Convert (ch2)
Convert (ch3)
For j = 1 To 24    ‘逐位取反
①____________
Next j
For j = 1 To 4 m = 0
For p =  ②____________ To j * 6    ‘每6位一组进行权值相加
m = m * 2 + a(p) Next p
s = s & m‘&连接运算符，连接数字和字符串时，会将数字自动转换为字符串 Next j
Next i
Text2.Text = s
End Sub
Sub Convert(x As Integer)
Dim i As Integer, j As Integer
Do While x > 0
a(k) = x Mod 2
x = x \ 2
k = k + 1
Loop
j = ③_____    ‘8位二进制数，高位补“0”
k = k + j
End Sub

(二进制转十六进制)从文本框 TextB 输入一串不带符号位的二进制整数，单击“转换”按钮，将二进制转换为十六进制并显示在文本框 TextH 中。程序界面如图所示：

转换方法：先从右往左将二进制数分割成 4 位一组，若最左边的一组不足4位，则用 0 将高位补足，然后将每 4 位二进制数转换为 1 位十六进制数。
（1）观察程序代码，可知“转换”按钮的对象名为____________。（单选，填字母：

A．TextB/ B.TextH/

B．Command1/

C．Convert/

D．转换）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Convert_Click()
Dim a(1 To 100) As Integer, temp As Integer
Dim s As String, res As String, n As Integer, r As Integer
res = ""
s=TextB.text
n = Len(s)
For i = 1 To n
a(i) = Val(Mid(s, i, 1))
Next i
t = n \ 4
r =   ①    
temp = 0
For i = 1 To r '将最高的 r 位转换为十六进制
 ②     
Next i
If temp > 9 Then
res = Chr(temp + 55)
ElseIf temp > 0 Then
res = CStr(temp) ‘Cstr()函数用于将数值转换为字符串，同时删除前导空格
End If
For i = 1 To t '将t组4位二进制转换为十六进制
Temp=0
For j=1 to 4
temp = temp+a(j+r+4*(i-1))*2^(4-j)
Next j
If temp > 9 Then
res = res + Chr(temp + 55)
Else
res = res + CStr(temp)
End If
Next i
TextH.Text = res
End Sub
第①处代码为______________________________________________ 
第②处代码为______________________________________________    
（3）若在文本框 TextB 中输入“101000111”，则单击”转换”按钮后的输出结果为:_________。

现要求编写VB程序，实现下列功能：计算一个大写字母在26个字母中的位次。程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label1上输出其在26个字母中的位次。

1图
(1)在进行应用程序界面设计时，需要添加“计算”按钮，可使用如第2图所示的“控件工具箱”中的 (填写相应编号)，并在如第12题－3图所示的“属性窗口”中，将 属性值设置为“计算”。

(2)该程序的源代码如下，请根据题意将代码补充完整，使程序能正常运行。
Private Sub Command1_Click()
Dim ch As String, pos As Integer
 （3） ＝Text1.Text
pos＝Asc(ch) – 64
Label2.   （4）  ＝”第”＋Str(pos)＋”个字母”
End Sub