小明編寫(xiě)了一個(gè)統(tǒng)計(jì)成績(jī)的VB程序：編寫(xiě)一個(gè)過(guò)程，該過(guò)程從數(shù)據(jù)庫(kù)讀取學(xué)生的物理，化學(xué)，生物科目成績(jī)，分別存儲(chǔ)到數(shù)組a、b、c中；另又編寫(xiě)一個(gè)過(guò)程，該過(guò)程依據(jù)數(shù)組a,b,c中的相關(guān)數(shù)據(jù)統(tǒng)計(jì)班級(jí)物理、化學(xué)、生物三門(mén)成績(jī)大于

門(mén)數(shù)	學(xué)號(hào)	說(shuō)明
只有一門(mén)＞=85分	1，10	d（i）存放每個(gè)學(xué)號(hào)對(duì)應(yīng)的大于等于85分科次
只有兩門(mén)＞=85分	2，3，4，6，12
只有三門(mén)＞=85分	7，8，9，11

等于85分的學(xué)號(hào)。部分學(xué)號(hào)的成績(jī)統(tǒng)計(jì)如圖所示。
程序功能如下：?jiǎn)螕簟敖y(tǒng)計(jì)”按鈕Command2，程序進(jìn)行統(tǒng)計(jì)處理，結(jié)果輸出在列表框
List1、List2、List3中。程序運(yùn)行界面如圖所示。
（1）在Command1_Click （　?。┻^(guò)程中變量n的作用是。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（1to 600）as integer'數(shù)組a存放物理成績(jī)
Dim b（1to 600）as integer'數(shù)組b存放化學(xué)成績(jī)
Dim c（1to 600）as integer'數(shù)組c存放生物成績(jī)
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ù)賦值到相應(yīng)數(shù)組
n=n+1
a（n）=rs.Fields（“物理“）
b（n）=rs.Fields（“化學(xué)“）
c（n）=rs.Fields（“生物“）
rs.MoveNext
Loop
'本過(guò)程的其他語(yǔ)句略
End sub
Private Sub Command2_Click （　　）
'依據(jù)數(shù)組a中的相關(guān)數(shù)據(jù)統(tǒng)計(jì)各學(xué)生每門(mén)課大于等于85分的學(xué)號(hào)
Dim i As Integer
Dim d（1to n） As Integer
For i=1to n
①
Next i
List1．AddItem“三門(mén)學(xué)科＞=85分的學(xué)號(hào)有：“
List2．AddItem“兩門(mén)學(xué)科＞=85分的學(xué)號(hào)有：“
List3．AddItem“一門(mén)學(xué)科＞=85分的學(xué)號(hào)有：“
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