小李与小王合作编写一个成绩统计的VB程序：小王编写一个过程，该过程从数据库读取某一指定科目的相关数据，存储在数组a中；小李编写一个过程，该过程依据数组a中的相关数据统计各班平均分。小李与小王约定的数组a各元素含义如图所示。
程序功能如下：在文本框text1中输入科目名称，单击“读取数据库”按钮command1，程序从数据库读取数据；单击“开始统计”按钮command2，程序进行统计处理，结果输出在列表框list1中。程序运行界面如下图所示。
数组元素 | 数组元素的含义 |
a(1) | 存储班级数n |
a(2) | 从a(2)到a(n+1) 依次存储第1、2、…第n个班级人数
|
… |
a(n+1) |
a(n+2) | 从a(n+2) 依次存储第1班每个学生的单科成绩、第2班每个学生的单科成绩、…第n班每个学生的单科成绩 |
… |
… |
实现上述功能的VB程序如下，请回答下列问题：
（1）根据程序运行界面中的数据及数组a各元素的含义，数组元素a(5)的值为________（填写数值）。
（2）分析程序，可知数据库的文件名为___________________
（3）请在划线处填入合适的代码。
Dim a(1 to 600) as integer ‘数组大小满足处理要求
Private sub command1_click()
‘本过程由小王完成，从数据库读取指定科目的各相关数据，存储在数组a中
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
Conn ConncctionString=”provider=Microsoft.AC
| A．OLEDB.12.0;data source=”+”Score.accdb” Conn.Open Set rs.ActiveConnection=conn ‘本过程的其他语句略 End sub |
Private sub command2_click()
‘依据数组a中的相关数据统计各班级平均分
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 = 1 To n
sum = 0
For j = 1 To a(i + 1)
____________________
p = p + 1
Next j
aver = sum / a(i + 1)
list1.additemstr(i)+" "+str(a(i+1))+" "+str(aver)
Next i
End sub
