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

實現上述功能的VB程序如下：
（1）通過分析代碼可知該數據表的名稱為

score

score

（2）實現上述功能的VB程序如下：請在橫線處填入合適代碼。
Dim xh（n） As Strin
Dim xm（n）As String
Dim zf（n） As Integer
Dim mc（n） As Integer
Private Sub Form _Load （　　）
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.jye.ai”
conn open
Set rs,ActiveConnection=conn
rs,“Open SELECT*FROM score“
ListI．Additem“學號”+“”+“姓名”+”“”+“總分“
n=0
Do While not rs EOF'到最后一條記錄后退出循環
n=n+1
xh（n）=rs.Fields（“學號”）
xm（n）=s.Fields（“姓名“）
zf（n）=rs.Fields（“總分“）
ListI，AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））

①

①

‘移動到下一條記錄
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“學號“+“”+“姓名”+“總分”+“名次”
For i=I To n
List2 AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））+“”+

④

④

Next i
End Sub