17.小李與小王合作編寫一個成績統(tǒng)計的VB程序:小王編寫一個過程,該過程從數(shù)據(jù)庫讀取某一指定科目的相關(guān)數(shù)據(jù),存儲在數(shù)組a中;小李編寫一個過程,該過程依據(jù)數(shù)組a中的相關(guān)數(shù)據(jù)統(tǒng)計各班平均分.小李與小王約定的數(shù)組a各元素含義如圖所示.
程序功能如下:在文本框text1中輸入科目名稱,單擊“讀取數(shù)據(jù)庫”按鈕command1,程序從數(shù)據(jù)庫讀取數(shù)據(jù);單擊“開始統(tǒng)計”按鈕command2,程序進(jìn)行統(tǒng)計處理,結(jié)果輸出在列表框list1中.程序運(yùn)行界面如圖所示.
數(shù)組元素 |
數(shù)組元素的含義 |
a(1) |
存儲班級數(shù)n |
a(2) |
從a(2)到a(n+1)依次存儲第1、2、…第n個班級人數(shù) |
… |
a(n+1) |
a(n+2) |
從a(n+2)依次存儲第1班每個學(xué)生的單科成績、第2班每個學(xué)生的單科成績、…第n班每個學(xué)生的單科成績 |
… |
… |
實(shí)現(xiàn)上述功能的VB程序如下,請回答下列問題:
(1)根據(jù)程序運(yùn)行界面中的數(shù)據(jù)及數(shù)組a各元素的含義,數(shù)組元素a(5)的值為
(填寫數(shù)值).
(2)分析程序,可知數(shù)據(jù)庫的文件名為
(3)請在橫線處填入合適的代碼.
Dim a(1to 600)as integer‘?dāng)?shù)組大小滿足處理要求
Private sub command1_click ( )
‘本過程由小王完成,從數(shù)據(jù)庫讀取指定科目的各相關(guān)數(shù)據(jù),存儲在數(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
‘本過程的其他語句略
End sub
Private sub command2_click ( ?。?br />‘依據(jù)數(shù)組a中的相關(guān)數(shù)據(jù)統(tǒng)計各班級平均分
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.