小李與小王合作編寫一個(gè)成績(jī)統(tǒng)計(jì)的VB程序：小王編寫一個(gè)過(guò)程，該過(guò)程從數(shù)據(jù)庫(kù)讀取某一指定科目的相關(guān)數(shù)據(jù)，存儲(chǔ)在數(shù)組a中；小李編寫一個(gè)過(guò)程，該過(guò)程依據(jù)數(shù)組a中的相關(guān)數(shù)據(jù)統(tǒng)計(jì)各班平均分．小李與小王約定的數(shù)組a各元素含義如圖所示．
程序功能如下：在文本框text1中輸入科目名稱，單擊“讀取數(shù)據(jù)庫(kù)”按鈕command1，程序從數(shù)據(jù)庫(kù)讀取數(shù)據(jù)；單擊“開始統(tǒng)計(jì)”按鈕command2，程序進(jìn)行統(tǒng)計(jì)處理，結(jié)果輸出在列表框list1中．程序運(yùn)行界面如圖所示．
| 數(shù)組元素 |
數(shù)組元素的含義 |
| a（1） |
存儲(chǔ)班級(jí)數(shù)n |
| a（2） |
從a（2）到a（n+1）依次存儲(chǔ)第1、2、…第n個(gè)班級(jí)人數(shù) |
| … |
| a（n+1） |
| a（n+2） |
從a（n+2）依次存儲(chǔ)第1班每個(gè)學(xué)生的單科成績(jī)、第2班每個(gè)學(xué)生的單科成績(jī)、…第n班每個(gè)學(xué)生的單科成績(jī) |
| … |
| … |
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問(wèn)題：
（1）根據(jù)程序運(yùn)行界面中的數(shù)據(jù)及數(shù)組a各元素的含義，數(shù)組元素a（5）的值為
33
33
（填寫數(shù)值）．
（2）分析程序，可知數(shù)據(jù)庫(kù)的文件名為
Score.accdb
Score.accdb
（3）請(qǐng)?jiān)跈M線處填入合適的代碼．
Dim a（1to 600）as integer‘?dāng)?shù)組大小滿足處理要求
Private sub command1_click （ ?。?br />‘本過(guò)程由小王完成，從數(shù)據(jù)庫(kù)讀取指定科目的各相關(guān)數(shù)據(jù)，存儲(chǔ)在數(shù)組a中
Dim conn As New ADODB．Conncction
Dim rs As New ADODB．Recordset
Conn ConncctionString=”provider=Microsoft.ACE．OLEDB.12.0；data source=”+”Score.accdb”
Conn.Open
Set rs.ActiveConnection=conn
‘本過(guò)程的其他語(yǔ)句略
End sub
Private sub command2_click （ ?。?br />‘依據(jù)數(shù)組a中的相關(guān)數(shù)據(jù)統(tǒng)計(jì)各班級(jí)平均分
Dim i As Integer,j As Integer,n As Integer
Dim p As Integer,sum As Integer,aver As Single
①p=n+2
For i=1To n
sum=0
For j=1To a（i+1）
②p=p+1
Next j
aver=sum/a（i+1）
list1．a(chǎn)dditemstr（i）+““+str（a（i+1））+““+str（aver）
next i
End sub.
