小明班有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.