某校质量检测共n名学生参加，李老师编写了一个试场号座位号查询软件，输入学号就能查询该生的姓名和试场号座位号．数组a、b分别保存了本次考试所有学生的学号和姓名信息．第i个学生的学号保存在a（i）中，对应的姓名保存在b（i）中．程序界面如图所示，在文本框Text1中输入学号，单击“开始查询”按钮（Command1），电脑就开始查找该学号的信息，如果找到对应的信息，就显示所属学生的姓名和选考组合，并显示在Text2和Text3中，Text4语数外的试场信息，Label（1），Label（2），Label（3）分别显示选考科目，相对应的Text5（1），Text5（2），Text5（3）分别显示对应的试场信息；如果没有找到，则显示“找不到”．

相应程序如下，在程序①和②横线处填入适当的语句和代码，把程序补充完整．
（1）程序段Function部分主要采用了

对分查找

对分查找

 算法（填：顺序查找/对分查找）；
（2）在程序画线①处应填入

Search（x）

Search（x）

；
在程序画线②处应填入

Mid（s1，j,1）=xk（i）

Mid（s1，j,1）=xk（i）

．
Dim n As Integer'考生数
Dim a（1000）As String,b（1000）As String
Dim xk（1 To 3）As String
Private Sub Command1_Click （　　）
 Dim x As string
 s1=“政治历史地理物理化学生物技术“
    Dim conn As New ADODB．Connection
    Dim rs As New ADODB．Recordset
    conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“& App.Path &“\students.jye.ai“
    conn.Open
    Set rs.ActiveConnection=conn
    rs.Open“学生信息“
    n=0
    m=0
    Do While Not rs.EOF'到记录集最后一条记录后退出循环
        n=n+1'计数
        a（n）=rs.Fields（“学号“）
        b（n）=rs.Fields（“姓名“）
        rs.MoveNext'移动到下一条记录
    Loop
    rs.MoveFirst
 x=Text1．Text
 pos=①
 If pos＞0 Then
   rs.Move pos
   zh=rs.Fields（“选考组合“）
   Text2．Text=b（pos）
   Text3．Text=zh
   Text4．Text=rs.Fields（“语数外“）
   For i=1 To 3
     xk（i）=Mid（zh,i,1）
     For j=1 To 13 Step 2
         If       ②Then
            Label（i）．Caption=Mid（s1，j,2）
            Text5（i）．Text=rs.Fields（xk（i））
         End If
    Next j
  Next i
 Else
   Text2．Text=“找不到“
 End If
End Sub

Function Search（Key As String） As Integer
  Dim i As Integer,j As Integer
   i=1
   j=n
   Do While i＜=j
    m=Fix（（i+j）/2）
    If Key=Val（a（m）） Then
      Search=m
      Exit Function
    ElseIf a（m）＞Key Then
        j=m-1
    Else
        i=m+1
    End If
  Loop
  Search=0
End Function.