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

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

程序功能如下：單擊“統(tǒng)計(jì)”按鈕Command2，程序進(jìn)行統(tǒng)計(jì)處理，結(jié)果輸出在列表框
List1、List2、List3中。程序運(yùn)行界面如圖所示。
（1）在Command1_Click

（　　）

（　?。?/div>過程中變量n的作用是

存儲(chǔ)數(shù)據(jù)表中的記錄數(shù)

存儲(chǔ)數(shù)據(jù)表中的記錄數(shù)

。
（2）請?jiān)跈M線處填入合適的代碼。
Dim a（1to 600）as integer'數(shù)組a存放物理成績
Dim b（1to 600）as integer'數(shù)組b存放化學(xué)成績
Dim c（1to 600）as integer'數(shù)組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.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
'本過程的其他語句略
End sub
Private Sub Command2_Click （　?。?br />'依據(jù)數(shù)組a中的相關(guān)數(shù)據(jù)統(tǒng)計(jì)各學(xué)生每門課大于等于85分的學(xué)號(hào)
Dim i As Integer
Dim d（1to n） As Integer
For i=1to n

①

①

Next i
List1．AddItem“三門學(xué)科＞=85分的學(xué)號(hào)有：“
List2．AddItem“兩門學(xué)科＞=85分的學(xué)號(hào)有：“
List3．AddItem“一門學(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