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

VB程序運(yùn)行界面如圖2所示，在文本框Text1中輸入查詢的等級(jí)，單擊“查詢”按鈕Command1，在列表框List1中顯示所有該等級(jí)的學(xué)生學(xué)號(hào)和姓名，并按照學(xué)號(hào)從小到大排序，并在標(biāo)簽Label2處顯示學(xué)生的人數(shù)，如果人數(shù)為0，則在列表框中顯示“沒有該等級(jí)的學(xué)生”．按此要求編寫程序如下，但加框處代碼有錯(cuò)誤，請(qǐng)改正．
Private Sub Command1_Click （　?。?br />Dim stuna（1To 100）As String'存放學(xué)生姓名的數(shù)組定義為stuna
Dim stunum（1To 100）As String'存放學(xué)生學(xué)號(hào)的數(shù)組定義為stunum
Dim i As Integer,j As Integer,n As Integer
Dim t As String
'連接數(shù)據(jù)庫
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.jye.ai“
cn.Open
strSQL=“select*from Chinese where 語文等級(jí)='“+Text1．Text+“'“
Set rs.ActiveConnection=cn
rs.Open strSQL
n=0
Do While Not rs.EOF
n=n+1
stuna（n）=rs.Fields（“姓名“）．Value
stunum（n）=rs.Fields（“學(xué)號(hào)“）．Value
rs.NextMove'①
Loop
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
List1．Clear'清除列表框
If n=0Then
List1．AddItem“沒有該等級(jí)的學(xué)生“
Else
For i=1To n-1'按姓名排序
For j=n To i+1Step-1
If stuna（j）＜stuna（j-1）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=“該等級(jí)的學(xué)生共有“+Str（n）+“名“
End If
End Sub
（1）加框處①有錯(cuò)，應(yīng)改為

rs.MoveNext

rs.MoveNext

．
（1）加框處②有錯(cuò)，應(yīng)改為

stunum（j）＜stunum（j-1）

stunum（j）＜stunum（j-1）

．