有如下的 Visual Basic 程序段：
s = 0 : x = 1
Do While x <= 5 s = s + x

x = x + 2

Loop
该程序段运行后，语句 s = s + x 执行的次数是

A．1

B．2

C．3

D．5

有流程图如图所示。

执行该算法，输出变量i的值为（   ）。

A．3

B．4

C．5

D．6

（加试题）小明编写了一个统计成绩的VB程序：编写一个过程，该过程从数据库读取学生的物理，化学，生物科目成绩，分别存储到数组a、b、c中；另又编写一个过程，该过程依据数组a，b，c中的相关数据统计班级物理、化学、生物三门成绩大于等于85分的学号。部分学号的成绩统计如图所示。

门数	学号	说明
只有一门>=85分	1,10	d(i)存放每个学号对应的大于等于85分科次
只有两门>=85分	2,3,4,6,12
只有三门>=85分	7,8,9,11

 
程序功能如下：单击“统计”按钮Command2，程序进行统计处理，结果输出在列表框List1、List2、List3中。
程序运行界面如图所示。

（1）在Command1_Click()过程中变量n的作用是_____________。
（2）请在划线处填入合适的代码。
Dim a(1 to 600) as integer  '数组a存放物理成绩
Dim b(1 to 600) as integer  '数组b存放化学成绩
Dim c(1 to 600) as integer  '数组c存放生物成绩
Dim n as integer
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Conn ConnectionString="provider=Microsoft.AC

A．OLEDB.12.0;data source="+"Score.accdb"

Conn.Open
Set rs.ActiveConnection=conn
rs.Open "SELECT * FROM whs"
n=0 
Do While Not rs.EOF '从数据表中读取各科的数据赋值到相应数组
n=n+1 
a(n)=rs.Fields("物理") 
b(n)=rs.Fields("化学") 
c(n)=rs.Fields("生物") 
rs.MoveNext
Loop
'本过程的其他语句略
End sub
Private Sub Command2_Click()
'依据数组a中的相关数据统计各学生每门课大于等于85分的学号
Dim i As Integer
Dim d(1 to n) As Integer
For i= 1 to n
____________①
Next i
List1.AddItem "三门学科>=85分的学号有:"
List2.AddItem "两门学科>=85分的学号有:"
List3.AddItem "一门学科>=85分的学号有:"
For i = 1 To n
If a(i) >= 85 Then
d(i) = d(i) + 1
End If
If b(i) >= 85 Then d(i) = _____________②
If ___________③  Then
d(i) = d(i) + 1
End If
Next i
For i = 1 To n
If d(i) = 3 Then List1.AddItem Str(i)
If d(i) = 2 Then List2.AddItem Str(i)
If d(i) = 1 Then List3.AddItem Str(i)
Next i
End Sub

下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（   ）
Function max(a, b As Integer) As Integer
If a > b Then max = a  Else  max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub

A．Command1_Click

B．function

C．max

D．max(a, b As Integer)

数组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）请将程序②③④划线处代码补充完整。