有如下程序段，若在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

某校有100个学生的期末成绩存储在数据库中，并已经按学号升序排序，学号编号从1到100。现要求找出成绩最高的学生的得分。如果有多个符合要求的学生，只输出学号排在前面的。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出最大成绩。实现上述功能的VB代码如下，请补全代码。
Dim a(1 To 100) As Single '依次存储100个学生成绩
Const n = 100
Private Sub Form_Load()
'本过程从数据库中读取1到100号学生成绩，并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As single
max =    ①       （1分）
For i =" 2" To n
if     ②     (2分)
Next i
Text1.Text = "成绩最高分是：" + Str(max)
End Sub
(1)程序中①画线处应填入    。
(2)程序中②画线处应填入    。

下面程序段运行后，变量T的值为（   ）
T=1：K=1
Do While K<=5
T=T*K
K=K+2
Loop

A．3

B．15

C．120

D．60

素数是指除了1和本身不能被任何数整除的数。请将3到100间的素数添加到LIST1中。
PRIVATE   SUB    FORMCLICK
FOR  I = 3  TO 　________1
F=0
FOR  J= 2  TO  I-1
IF ________2 THEN
F=1
EXIT  FOR
END   IF
NEXT  J
IF   F=0   THEN  ________3
________4
END  SUB

编写“数字序列”程序，实现如下功能：在文本框Text1中输入100,500范围内的整数，单击“生成”按钮Command1，在列表框List1中显示9个该序列的数字。数字序列的生成规则为：该项的数字+该数百位上的数字+该数十位上的数字+该数个位上的数字=下一项的数字，例如：365+3+6+5=379。小明编写了VB程序，运行的界面如图所示，程序代码如下：

（1）代码“Private Sub Command1_Click()”中的Command1_Click()是_________。
（单选，填字母：

A．对象名

B．事件

C．事件处理过程

D．方法   ）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click(   )
Dim n As Integer, i As Integer
Dim a As Integer,b As Integer
Dim c As Integer
List1.Clear
n = Val(Text1.Text)
If n >= 100 And n <= 500 Then
For i = 1 To 9
 
a = n \ 100
b = (n - 100 * a) \ 10
c = n Mod 10
_______________________
   
Next i

Else
List1.AddItem "输入数值有误"
End If

End Sub
（3）上述代码段中缺少了List1.AddItem Str(i)+"."+Str(n)，此句代码应该加在_____（填字母）位置。
（4）若输入的数字为123，则List1中第三行为__________________。