程序功能如下:在文本框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程序如下,请回答下列问题:
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 |
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)
____________________Next j
aver = sum / a(i + 1)
list1.additemstr(i)+" "+str(a(i+1))+" "+str(aver)
Next i
End sub