有如下程序段，若在text1中输入"abcd + BC + cdef + DE"，请问程序执行后list1中第3行中出现的值为
Dim a(1 To 26) As Integer
s = Text1.Text : n = Len(s)
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then

a(Asc(c) - 96) = a(Asc(c) - 96) + 1

ElseIf c >= "A" And c <= "Z" Then

a(Asc(c) - 64) = a(Asc(c) - 64) + 1

End If
Next i
For i = 1 To 26
List1.AddItem Str(a(i))
Next i

A．1

B．2

C．3

D．4

有如下VB程序段：
For i = 1 To 3
j = 1
Do While j <= n - i - 1
If a(j) > a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
j = j + 1
Loop
Next i
如果n=7，数组元素a(1)到a(7)的值依次是“13，12，10，12，1，0，14”，程序段运行结束后，a(5)、a(6)、a(7)的值依次为

A．10，0，1

B．13，0，14

C．12，13，14

D．13，12，14

   （加试题）小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：

实现上述功能的VB程序如下：
Private Sub Command1_Click()  
Dim a(1 To 1000) As String   '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text 
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ①
If ch = c Then
n = n + 1
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text =  ② 　
End Sub
以上程序段运行时，为了实现上述功能，划线处①和②应填入的代码分别为： 
（1）_______________________________; （2）_______________________________

在 VB 中，下列程序段执行后，变量 s 的值是
s=1
For k="1" To 3
s=s+1
Next k

A．1

B．3

C．4

D．6

有一种数字加密算法如下：将该数位与其位置相加得到X，X除以10的余数即为编号，若余数为0，编号取10，再从密码表中找出与编号对应的加密字符，其密码表如下：

编号	1	2	3	4	5	6	7	8	9	10
加密字符	H	o	w	A	r	e	Y	O	U	?

 
例如：数字2018加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	12 mod 10=2
加密字符	w	o	A	o

 
按照上述方法，设计一个字符加密的VB程序，运行程序时，在文本框Text1中输入明文数字，单击加密按钮Command1，程序将明文加密，并将加密后的密文显示在文本框Text2中。程序运行效果如图所示。

（1）将命令按钮上显示的文本Command1”改为“加密”，可在其属性窗口中将____属性的属性值修改为“加密”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim jm As String, s1 As String, s2 As String, x As Integer
jm = "HowAreYOU?"
s1 = ____________________
For i = 1 To Len(s1)
x = Val(Mid(s1, i, 1)) + i
x = ____________________
If x = 0 Then x = 10
s2 = ____________________
Next i
Text2.Text = s2
End Sub
（3）若密文是“YwUH”,则明文是____________________。