小明編寫了一個(gè)查名次的程序。程序功能如下：運(yùn)行程序，讀取數(shù)據(jù)庫(kù)，將相關(guān)信息讀入到數(shù)組中（xh存放學(xué)號(hào)，xm存放姓名，zf存放總分，mc存放名次）并在列表框 list I中顯示學(xué)生的相關(guān)信息，單擊“排名次”按鈕，在列表框list2中顯示帶有名次的學(xué)生相關(guān)信息（總分相同的名次一樣）。在文本框中輸入學(xué)生的學(xué)號(hào)，單擊“查名次”按鈕，則在窗體中顯示該學(xué)號(hào)對(duì)應(yīng)的學(xué)生姓名與名次。程序運(yùn)行效果如圖所示。

實(shí)現(xiàn)上述功能的VB程序如下：
（1）通過分析代碼可知該數(shù)據(jù)表的名稱為

score

score

（2）實(shí)現(xiàn)上述功能的VB程序如下：請(qǐng)?jiān)跈M線處填入合適代碼。
Dim xh（n） As Strin
Dim xm（n）As String
Dim zf（n） As Integer
Dim mc（n） As Integer
Private Sub Form _Load （　?。?br />Dim conn As New AlXODB Connection
Dim rs as new adodb,recordset
Dim n As Integer i As Integer,k As Integer
conn,ConncctionString-“Provider=Microsoft.ACE OLEDB，12.0：Data Source=
+App.Path+“\student.accdb”
conn open
Set rs,ActiveConnection=conn
rs,“Open SELECT*FROM score“
ListI．Additem“學(xué)號(hào)”+“”+“姓名”+”“”+“總分“
n=0
Do While not rs EOF'到最后一條記錄后退出循環(huán)
n=n+1
xh（n）=rs.Fields（“學(xué)號(hào)”）
xm（n）=s.Fields（“姓名“）
zf（n）=rs.Fields（“總分“）
ListI，AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））

①

①

‘移動(dòng)到下一條記錄
Loop
rs Close
conn.Close
Set rs=Nothing
Set conn=Nothing
Private Sub Commandl Click（　　）
For i=I To n
k=i
For j=i+I To n
If zf（j）＜zf（k） Then k=j
Next j
If

②

②

Then
Templ xh（i）：xh（i）=xh（k）：xh（k）=Templ
Temp2=xm（i）：xm（i）=xm（k）：xm（k）=Temp2
Temp3=zf（i）：zf（i）=zf（k）：zf（k）=Temp3
End If
Next i
mc（1）=1
For i=2 To n
If zf（i）=zf（i-1）Then

③

③

Else
mc（i）=i
End If
Next i
List2．AddItem“學(xué)號(hào)“+“”+“姓名”+“總分”+“名次”
For i=I To n
List2 AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））+“”+

④

④

Next i
End Sub