小明班有50個同學(xué)，某次技術(shù)考試的成績保存在數(shù)據(jù)庫文件“Student.jye.ai”的“技術(shù)成績”表中，表結(jié)構(gòu)如圖所示，實現(xiàn)如下功能：窗體加載時，能自動讀取“技術(shù)成績”表中的數(shù)據(jù)，并且顯示在列表框list1中，當點擊“顯示名次”按鈕，可將相應(yīng)學(xué)生的姓名和名次顯示在列表框list2中名次的設(shè)置要求是：若比甲同學(xué)分數(shù)高的有x人，則甲同學(xué)名次為x+1．
實現(xiàn)上述功能的VB代碼如下，請在橫線處填入合適代碼．
Const n=50
Dim a（1 to n） As String
Dim b（1 to n） As Single
Dim c （1 to n） As Integer
Private Sub Form _-Load（　?。?br />Dim conn As New ADDODB．Connection
Dim rs As New ADODB．Recordset
Dim i As Integer
conn.ConnetionString=“Provider=Microsoft.ACE．
OLEDB.12.0；Data Suurce=“+App.Path+“\Student.jye.ai“
conn.Open
Set.rs.ActiveConnection=conn
rs.Open“SEECT#FROM 技術(shù)成績“
For i=1 to n
    a（i）=rs.Fieds（1）
    b（i）=rs.Fields（2）
    List1．AddIten a（i）+str（b（i））
    rs.MoveNext
Next i
rs.Close
conn.Close
End Sub
Private Sub Commandl-Click（　　）
Dim rank As Integer,x As Single
c（1）=1
rank=1
x=b（1）
For i=2 to n
    If b（i）＜＞x Then

rank=i

rank=i

'①
        x=b（i）
    End If

c（i）=rank

c（i）=rank

'②
Next i
For i=1 to n
    List2．AddItem

a（i）+str（c（i））

a（i）+str（c（i））

'③
Next i
End Sub.