题目

某学校要对班主任进行满意度调查，有20个评分项（为方便程序处理，评分项具体的名称本题中不显示，仅以序号代替），每个评分项学生可以打A、B、C 三个等级中的一个，现在已经收集所有学生对班主任的评价，为了保证隐私，不显示学生姓名，只显示班级，并存储在数据库的表中，点击command2（读取数据），读取原始数据显示在左侧list1中，左侧列表显示的原始评价数据第一条表示高二（01）班有1位同学在第9项给班主任打A，依次类推，点击command1（统计），统计出各项目的评价统计（A+B所占的百分比）。 （1） 根据以下代码可知，本程序访问的数据库名称是 （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中的末尾位置 Dim k As Integer       ‘存储班级数量 Dim testall(1 To 20) As Integer        ‘存储每一项总选择人数，例如testall（1）里存储这评价项目1里的总人数，testc（1）里存储评价项目1里选C的人数 Dim testc(1 To 20) As Integer          ‘存储每一题（项）选c的人数 ‘确定每个班级的起止位置，存储到cstart数组和cend数组 cstart(1) = 1 temp = classname(1) k = 1 For i = 1 To n   If classname(i) <> temp Then             k = k + 1        cstart(k) = i        temp = classname(i)   End If Next i cend(k) = n  For i = 1 To k    ‘每个班级分别统计评价项目        For q = 1 To 20    ‘对testall和testc数组初始化，      testall(q) = 0      testc(q) = 0    Next q    For j = cstart(i) To cend(i)    ‘对第i个班级进行统计       testall(xiangmu(j)) = testall(xiangmu(j)) + 1       If selectabc(j) = "C" Then     Next j    For p = 1 To 20    ‘统计完成后输出这个班级的20个项目的A+B所占百分比       s = s &""&Str(Round((testall(p) - testc(p)) / testall(p) * 100, 1))    Next p    List2.AddItem s  Next i End Sub 答案： 【1】pingjia.accdb 【1】cend(k)=i-1【2】s=classname(cstart(i))或s=classname(cend(i))【3】testc(xiangmu(j))= testc(xiangmu(j))+1

查看本题答案和解析