(2)
完成划线处的代码填空:
Dim classname(1 To 8000) As String '存储原始数据中的班级名称
Dim selectabc(1 To 8000) As String '存储原始数据选项的值
Dim xiangmu(1 To 8000) As String '存储原始数据选项的序号
Dim n As Integer
Private Sub Command2_Click() '从数据库读取数据,并且按班级名称排序
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="&App.Path&"\pingjia.accdb"
conn.Open
Dim rs As New ADODB.Recordset
Set rs.ActiveConnection = conn
rs.Open "select * from data"
n = 0' 记录评价的总条数
'读取数据,并按班级排序,代码略
End Sub
Private Sub Command1_Click()
Dim cstart(1 To 50) As Integer '存储每个班级在数组classname中的起始位置
Dim cend(1 To 50) As Integer '存储每个班级在数组classname中的末尾位置<