小明利用所學(xué)的信息技術(shù)知識幫助語文老師設(shè)計一個語文學(xué)考等級查詢系統(tǒng)，要求如下：輸入某個等級，就能查出該等級的所有學(xué)生學(xué)號和姓名，并統(tǒng)計出該等級學(xué)生的人數(shù)，以便語文老師方便了解學(xué)生的學(xué)考情況．語文學(xué)考成績分A、B、C、D、E五個等級，學(xué)生信息存儲在數(shù)據(jù)庫文件“stugrade.jye.ai”的數(shù)據(jù)表“Chinese”中，數(shù)據(jù)表“Chinese”的結(jié)構(gòu)如圖1所示．

VB程序運行界面如圖2所示，在文本框Text1中輸入查詢的等級，單擊“查詢”按鈕Command1，在列表框List1中顯示所有該等級的學(xué)生學(xué)號和姓名，并按照學(xué)號從小到大排序，并在標(biāo)簽Label2處顯示學(xué)生的人數(shù)，如果人數(shù)為0，則在列表框中顯示“沒有該等級的學(xué)生”．按此要求編寫程序如下，在橫線處填上合適的代碼．
Private Sub Command1_Click （　?。?br />Dim stuna（1To 100）As String'存放學(xué)生姓名的數(shù)組定義為stuna
Dim stunum（1To 100）As String'存放學(xué)生學(xué)號的數(shù)組定義為stunum
Dim i As Integer,j As Integer,n As Integer
Dim t As String
Dim cn As New ADODB．Connection'連接數(shù)據(jù)庫
Dim rs As New ADODB．Recordset
Dim strSQL As String
cn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\stugrade.jye.ai“
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（“學(xué)號“）．Value
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
List1．Clear'清除列表框
If n=0Then
List1．AddItem“沒有該等級的學(xué)生“
Else
For i=1To 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=1To n
List1．AddItem stunum（i）+““+stuna（i）
Next i
Label2．Caption=“該等級的學(xué)生共有“+Str（n）+“名“
End If
End Sub
①

Chinese

Chinese

②

n=n+1

n=n+1

③

i+1

i+1

④

stunum（j）＜stunum（j-1）

stunum（j）＜stunum（j-1）

．