题目

小明利用所学的信息技术知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况。语文学考成绩分A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.accdb”的数据表“Chinese”中，数据表“Chinese”的结构如图所示。 VB程序运行界面如图所示，在文本框Text1中输入查询的等级，单击“查询”按钮Command1，在列表框List1中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签Label2 处显示学生的人数，如果人数为0，则在列表框中显示“没有该等级的学生”。按此要求编写程序如下，在划线处填上合适的代码。 Private Sub Command1_Click()     Dim stuna(1 To 100) As String    '存放学生姓名的数组定义为stuna     Dim stunum(1 To 100) As String    '存放学生学号的数组定义为stunum     Dim i As Integer, j As Integer, n As Integer     Dim t As String     Dim cn As New ADODB. Connection     '连接数据库     Dim rs As New ADODB. Recordset     Dim strSQL As String     cn.ConnectionString =“Provider=Microsoft. ACE. OLEDB. 12. 0; Data Source=”+App. Path+“\stugrade. accdb”     cn. Open     strSQL=“select * from  where语文等级=‘ ”+Text1. Text+“’”     Set rs. ActiveConnection= cn     rs. Open strSQL     n=0     Do While Not rs. EOF                     stuna(n)= rs. Fields(“姓名”). Value         stunum(n)=rs. Fields(“学号”). Value         rs. MoveNext     Loop     rs.Close     cn.Close     Set rs= Nothing     Set cn= Nothing         List1. Clear       '清除列表框     If n=0 Then         List1. AddItem“没有该等级的学生”     Else         For i=1 To n-1       '按学号排序             For j=n To  Step - 1                 If  Then                     t= stunum(j) : stunum(j) =stunum(j- 1) : stunum(j- 1)=t                     t= stuna(j) : stuna(j) = stuna (j- 1) : stuna(j- 1)=t                 End If             Next j         Next i         For i=1 To n             List1. AddItem stunum(i)+“”+stuna(i)         Next i         Label2. Caption=“该等级的学生共有”+Str(n)+“名”     End If End Sub 答案：【1】Chinese【2】n=n+1【3】i+1【4】stunum(j)< stunum(j- 1)

查看本题答案和解析