某校質量檢測共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.