Dim n As Integer     ‘用于存储运动员总人数

Dim a（1000）As Integer, b（1000）As String, c（1000）As String

Private Sub Form_Load( )

  Dim conn As New ADODB. Connection

  Dim rs As New ADODB. Recordset

  conn. ConnectionString ="Provider =Microsoft. Jet. OLEDB. 4.0；DATA Source=" &App. Path & "\sport.accdb"

    conn.Open

    Set rs. ActiveConnection=conn

    rs.Open"Select*from号码牌"

    Do While Not rs. EOF  ‘到记录集rs的最后一条记录后退出循环

      n=n+1

      a（n）=rs. Fields（"号码牌"）    ‘读取当前记录“号码牌”字段值

      b（n）=     ①                ‘读取当前记录“班级”字段值

      c（n）=rs. Fields（"姓名"）      ‘读取当前记录“姓名”字段值

          ②                        ‘移动到下一条记录

    Loop

‘号码牌按升序排序后，显示在列表框List1中，其他代码略

End Sub

Private Sub Command1_Click( )

    Dim x As Integer

    x=Val（Text1.Text）

    pos=        ③         

    If pos>0 Then

      Text2.Text=b（pos）：Text3.Text=c（pos）

    Else

      Text2.Text="未找到"

    End If

End Sub

  Function Search（Key As Integer）As Integer

    Dim i As Integer，j As Integer

    i=1：j=n：Search=0

    Do While i<=j

        m=Fix（（i+j）/2）

        If Key=a（m）Then

            Search=m：Exit Function

        ElseIf   ④   Then

            j=m-1

        Else

            i=m+1

        End If

    Loop

End Function

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②；③；④。