下列关于循环结构的叙述，正确的是（  ）

A．For与Next语句必须成对使用，有一个For必有一个Next与之对应

B．循环体执行次数确定的情况，只能用For…Next循环

C．For…Next循环只能与For…Next嵌套使用，而不能与Do while…Loop嵌套使用

D．在For…Next循环语句中，终值必须大于初值

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（1）“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100内的随机数*27+2，……，“Z”变为一个1到100内的随机数*27+26；
（2）每个字母变为数字后会加上一个“—”用来分割数字；
（3）其他空格和标点字符都按原来的表示。
李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序会将密文解密并将解密后的内容显示在文本框Text2中。程序运行界面如图所示：

（1）根据描述，若密文为“1905-1442-”，则表示的是：_______________
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, yw As String, tAs String
Dim value As Integer    '用于存储某字母在密文中对应数值的临时变量
s = Text1.Text
value = 0
yw = ""
For i = 1 To Len(s)
t =①____________
If  t >= "0" And t <= "9" Then
value = value * 10 + Val(t)
ElseIf  t = "—" Then
yw = yw + Chr(Asc("A") + value Mod 27 -1)
②________________
Else
yw = yw + t
End If
Next  i
Text2.Text = yw
End Sub

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

实现上述功能的 VB 程序如下：
Private Sub Command1_Click()
Dim s As String, a As String, ans As String Dim c As Integer, i As Integer
Dim c1 As Integer, c2 As Integer Dim d1 As String, d2 As String
s = Text1.Text ans = ""
For i = 1 To Len(s) a = Mid(s, i, 1) c = Asc(a)
c1 = c \ 16
c2 = ①
d1 = Mid(Str(c1), 2, 1) '使用 Str(c1)将在字符 c1 前增加一个空字符
If c2 >= 10 Then        ②  Else d2 = Mid(Str(c2), 2, 1)
ans = ③
Next i
Text2.Text = ans
End Sub
（1）按照上述加密算法，明文“B”生成的密文是   。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
①_____________________________________
②______________________________________
③______________________________________

用 VB 程序编写了一个找最大值的程序，程序功能：在文本框中输入数字串（数据间用逗号分隔，以数字开头，逗号结尾），单击“寻找”按钮 Command1 后，在 Label3中输出最大的数值。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, max As Integer, j As Integer
Dim s As String, c As String, t As String
s = Text1.Text
i = 1 : j = 1
max = 0 : t = ""
Do While j <= Len(s)
c = Mid(s, j, 1)

If c = , Then

t = Mid(s, i, j - i)
If Val(t) > max Then max = Val(t)
①
End If
②     
Loop
Label3.Caption = Str(max)
End Sub
将划线处代码补充完成，正确的是（ ）

A．① i=i+1   ② j=j+1	B．① i=j+1   ② j=j+1
C．① j=j+1   ② i=i+1	D．① j=i+1   ② i=i+1

有如下VB程序段：
a=1:b=1:n=12
f(1)=a:f(2)=b
For i=3 To n

c=a+b

f(i)=c Mod 4

a=b

b=c

Next i
执行该段程序后,数组元素f(12)的值为（   ）

A．0

B．1

C．2

D．3