小明编写了一个查名次的程序。程序功能如下：运行程序，读取数据库，将相关信息读入到数组中（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