（加试题）小明编写了一个统计成绩的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

Sub test2()
a = 12：b = 12：c = 5
Label1.Caption = ""
Label2.Caption = ""
If a > b Or Not b<c Then
Label1.Caption = "monday"
Else
Label2.Caption = "tiger"
End If
Label3.Caption =" Label1.Caption+" Label2.Caption
End sub
该程序段运行后，在标签Label3的Caption属性值是(   )

A．"monday"

B．"tiger"

C．"mondaytiger"

D．""

下面VB程序段运行后，文本框Text1和Label1显示的内容分别是（  ）
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text = Text1.Text + Str(n)
If n <= 1 Then
f = 1
Else
f = f(n - 1) + 2
End If
End Function

A．3 2 1 和  5	B．1 2 3 和  5
C．5 和  3 2 1	D．6 和  3 2 1

（加试题）有如下程序段，若有如下数据：64, 57, 22, 96, 71，分别存储在a(1)至a(5)中，经过以下程序段处理后的数据依次为
Dim  a(1 To 6)  As Integer
s = 0
For  i = 1 To 5
If  a(i) Mod 2 = 1  Then  s = s + 1
Next  i
For  i = 1 To 4
If  a(i) Mod 2 = 0  Then
For  j = 5 To i + 1 Step -1
If  a(j) Mod 2 = 1  Then
a(6) = a(i): a(i) = a(j): a(j) = a(6): Exit For
End If
Next  j
End If
Next  i
For  i = s + 2 To 5
k = i - 1
For  j = i To 5
If  a(k) > a(j)  Then  k = j
Next  j
If k <> i - 1 Then
a(6) = a(i - 1): a(i - 1) = a(k): a(k) = a(6)
End If
Next  i

A．22, 57, 64, 71, 96	B．71, 57, 22, 96, 64
C．71, 57, 22, 64, 96	D．57, 71, 22, 64, 96

某排序算法的 VB 程序段如下：
K=1
For i = 1 To 2
For j = 1 To 6 - 2 ∗i
If K∗a(j) < K∗a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
K=-K
Next j
Next i
数组元素 a(1) ~a(6)的初始值依次为“10，15，8，35，26，17”，执行该程序段后，数组 a 元素的值分别为（   ）

A．8，10，15，17，26，35	B．35，26，17，15，10，8
C．26，35，10，17，8，15	D．26，15，10，17，8，35