数组a中存储了n个学生的学号和成绩数据，其中奇数位置存储学号信息，偶数位置存储成绩信息，数组存储结构如下表所示：

1	2	3	4	5	6	……	2n-1	2n
学号	成绩	学号	成绩	学号	成绩	……	学号	成绩
第1个学生信息		第2个学生信息		第3个学生信息		……	第n个学生信息

 
小迪同学使用选择排序思想对上述n个同学按成绩进行降序排序（成绩相同的按学号升序排列），并依据成绩插入各位同学的名次信息，处理结束的数组a存储结构如下表所示：

1

2

3

4

5

6

7

8

9

……

3n-2

3n-1

3n

名次

学号

成绩

名次

学号

成绩

名次

学号

成绩

……

名次

学号

成绩

第1个学生信息

第2个学生信息

第3个学生信息

……

第n个学生信息

 
小迪同学使用VB编写了成绩处理程序，程序运行界面如下图所示：

实现上述功能的VB程序如下，请回答下列问题。
Const n=20
Dim a(1 To 3* n)As Integer
Private Sub Command1_ Click()

＇读取数据，存储在数组a中，并显示于列表框List1中

＇代码略

End Sub
Private Sub Command2_ Click()
＇①改错
k=i
For j=l To i-l
If a(2*j)<a(2*k)Or ② Then
k=j
End if

Next j

A(3*i=a(2*k)
A(3*i-1)=a(2*k-1)
③
A(2*k-1)=a(2*i-1)
Next i
List2. AddItem"第1名：学号+CStr(a(2))+"，分数"+str(a(3))
A(1)=1
mc=1
For j=2 To n

If     ④ Then mc=i

List2. AddItem"第"+Str(mc)+"名：学号"+CStr(a(3*i-1))+"，分数"十Str(a(3*i))a(3*i-2)=mc

Next i

End sub
（1）已知窗体名称为Form1，要使程序加载时，窗体标题自动显示为“第15题程序”，则可在_____________（单选，填字母）事件过程中添加代码： Form1. Caption=“第15题程序”。

A．Form_ Click()

B．Form_ Load()

C．Form1_ Click()

D．Forml_ Load()

（2）程序加框处的For循环语句有错，请改正。
（3）请将程序②③④划线处代码补充完整。

有一组数：1、2、4、7、……，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。求其前20项的和。
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s

某算法的部分流程图如图所示。
   
执行这部分流程，输入11，变量i和f的值分别是（   ）

A．10，True

B．10，False

C．11，True

D．11，False

小王编写了一个统计多选题分数的VB程序。得分规则是：多选题共有6个候选项（A、B、C、D、E、F），全部答对得2分，部分答对得1分，未作答或有错误答案0分。设计一个能够评分的程序，要求如下：在文本框Text1中输入标准答案，在文本框Text2中输入学生答案（输入时必须按字母从小到大顺序输入）。点击评分按钮Command1后，将得分显示在标签Label4中。程序界面如题图所示：
（1）要使程序运行后，窗体Form1的标题栏中显示“评分”，正确的做法是______（单选，填字母）

A．将窗体的Text属性改为“评分”

B．在Form_Load()事件中输入代码 Form1.Caption="评分"

C．在Form1_Load()事件中输入代码

Form．Name="评分"
（2）实现上述功能的程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim cans As String ,ans As String ,ch As String ,c As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text
ans = ①____________
c = 0
For i = 1 To 6
f(64+i)=False
Next i
For i = 1 To Len(cans)
ch = Mid(cans, i, 1)
f(Asc(ch) - 64) = True
Next i
For i = 1 To ②___________     
ch = Mid(ans, i, 1)
If f(Asc(ch) - 64) = False Then
c = 0: Exit For
Else
c  = c + 1
End If
Next i
If c = 0 Then
Label4.Caption = "0分"
ElseIf c = Len(cans) Then    
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
（3）若去除加框处代码，且将文本框Text2的内容改为“BCD”，标签Label4显示的内容是________。

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面左图所示。

 

 

 (1)在设计程序界面时，应使用上方右图所示“控件工具箱”中的______(填写相应编号)添加文本框Text1。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ’用于标记是否为素数
Randomize
n = Int(①_____________)*2+1
Text1.Text = Str(n)
flag = True ’标记为素数
i = 3
Do While i <= n - 1 And flag = True
If  n Mod i = 0  Then
flag = False
End If 
i = i + 2
Loop
If ②______________ Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是___________(单选，填字母）。

A．  n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i