小明班有50個同學，某次技術考試的成績保存在數據庫文件“Student.jye.ai”的“技術成績”表中，表結構如圖所示，實現如下功能：窗體加載時，能自動讀取“技術成績”表中的數據，并且顯示在列表框list1中，當點擊“顯示名次”按鈕，可將相應學生的姓名和名次顯示在列表框list2中名次的設置要求是：若比甲同學分數高的有x人，則甲同學名次為x+1．
實現上述功能的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（　　）
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 技術成績“
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.