程序功能如下:在文本框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班每个学生的单科成绩 |
… | |
… |
(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.ACE.OLEDB.12.0;data source=”+”Score.accdb”
Conn.Open
Set rs.ActiveConnection=conn
‘本过程的其他语句略
End subPrivate 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同类型试题
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2