小明编写了一个统计成绩的VB程序：编写一个过程，该过程从数据库读取学生的物理，化学，生物科目成绩，分别存储到数组a、b、c中；另又编写一个过程，该过程依据数组a,b,c中的相关数据统计班级物理、化学、生物三门成绩大于

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

等于85分的学号。部分学号的成绩统计如图所示。
程序功能如下：单击“统计”按钮Command2，程序进行统计处理，结果输出在列表框
List1、List2、List3中。程序运行界面如图所示。
（1）在Command1_Click （　　）过程中变量n的作用是。
（2）请在横线处填入合适的代码。
Dim a（1to 600）as integer'数组a存放物理成绩
Dim b（1to 600）as integer'数组b存放化学成绩
Dim c（1to 600）as integer'数组c存放生物成绩
Dim n as integer
PrivateSub Command1_Click （　　）
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Conn ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“+“Score.jye.ai“
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（1to n） As Integer
For i=1to n
①
Next i
List1．AddItem“三门学科＞=85分的学号有：“
List2．AddItem“两门学科＞=85分的学号有：“
List3．AddItem“一门学科＞=85分的学号有：“
For i=1To n
If a（i）＞=85Then
d（i）=d（i）+1
End If
If b（i）＞=85Then d（i）=②
If ③ Then
d（i）=d（i）+1
End If
Next i
For i=1To n
If d（i）=3Then List1．AddItem Str（i）
If d（i）=2Then List2．AddItem Str（i）
If d（i）=1Then List3．AddItem Str（i）
Next i
End Sub