小明編寫了一個統(tǒng)計成績的VB程序：編寫一個過程，該過程從數(shù)據(jù)庫讀取學生的物理，化學，生物科目成績，分別存儲到數(shù)組a、b、c中；另又編寫一個過程，該過程依據(jù)數(shù)組a,b,c中的相關數(shù)據(jù)統(tǒng)計班級物理、化學、生物三門成績大于

門數(shù)	學號	說明
只有一門＞=85分	1，10	d（i）存放每個學號對應的大于等于85分科次
只有兩門＞=85分	2，3，4，6，12
只有三門＞=85分	7，8，9，11

等于85分的學號。部分學號的成績統(tǒng)計如圖所示。
程序功能如下：單擊“統(tǒng)計”按鈕Command2，程序進行統(tǒng)計處理，結果輸出在列表框
List1、List2、List3中。程序運行界面如圖所示。
（1）在Command1_Click （　?。┻^程中變量n的作用是。
（2）請在橫線處填入合適的代碼。
Dim a（1to 600）as integer'數(shù)組a存放物理成績
Dim b（1to 600）as integer'數(shù)組b存放化學成績
Dim c（1to 600）as integer'數(shù)組c存放生物成績
Dim n as integer
PrivateSub Command1_Click （　?。?br />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'從數(shù)據(jù)表中讀取各科的數(shù)據(jù)賦值到相應數(shù)組
n=n+1
a（n）=rs.Fields（“物理“）
b（n）=rs.Fields（“化學“）
c（n）=rs.Fields（“生物“）
rs.MoveNext
Loop
'本過程的其他語句略
End sub
Private Sub Command2_Click （　?。?br />'依據(jù)數(shù)組a中的相關數(shù)據(jù)統(tǒng)計各學生每門課大于等于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