小王与小李合作编写一个成绩统计的VB程序：小王编写一个过程，该过程从数据库读取某一指定科目的相关数据，存储在数组a中；小李编写一个过程，该过程依据数组a中的相关数据统计各班级平均分，小王与小李约定的数组a各元素含义如下表所示。

发布时间：2025-06-22 15:44

（3）请在划线处填入合适的代码。

Dim a（1 To 600）As Integer '数组大小满足处理要求

Private Sub Command 1_Click（）

'本过程由小王完成，从数据库读取指定科目的各相关数据，存储在数组a中

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.ConnectionString =" provider = Microsoft. ACE.

OLEDB.12.0;datasource="+"Score.Accdb"

conn.Open

Set rs.ActiveConnection=conn

'本过程的其他语句略

End Sub

Private Sub Command 2_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)

Listl. Addltem Str（i）+""+Str(a（i+1）)+""+Str（aver）

Next i

End Sub

① ②