某校質(zhì)量檢測共n名學(xué)生參加，李老師編寫了一個試場號座位號查詢軟件，輸入學(xué)號就能查詢該生的姓名和試場號座位號．?dāng)?shù)組a、b分別保存了本次考試所有學(xué)生的學(xué)號和姓名信息．第i個學(xué)生的學(xué)號保存在a（i）中，對應(yīng)的姓名保存在b（i）中．程序界面如圖所示，在文本框Text1中輸入學(xué)號，單擊“開始查詢”按鈕（Command1），電腦就開始查找該學(xué)號的信息，如果找到對應(yīng)的信息，就顯示所屬學(xué)生的姓名和選考組合，并顯示在Text2和Text3中，Text4語數(shù)外的試場信息，Label（1），Label（2），Label（3）分別顯示選考科目，相對應(yīng)的Text5（1），Text5（2），Text5（3）分別顯示對應(yīng)的試場信息；如果沒有找到，則顯示“找不到”．

相應(yīng)程序如下，在程序①和②橫線處填入適當(dāng)?shù)恼Z句和代碼，把程序補充完整．
（1）程序段Function部分主要采用了

對分查找

對分查找

 算法（填：順序查找/對分查找）；
（2）在程序畫線①處應(yīng)填入

Search（x）

Search（x）

；
在程序畫線②處應(yīng)填入

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

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

．
Dim n As Integer'考生數(shù)
Dim a（1000）As String,b（1000）As String
Dim xk（1 To 3）As String
Private Sub Command1_Click （　?。?br /> Dim x As string
 s1=“政治歷史地理物理化學(xué)生物技術(shù)“
    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“學(xué)生信息“
    n=0
    m=0
    Do While Not rs.EOF'到記錄集最后一條記錄后退出循環(huán)
        n=n+1'計數(shù)
        a（n）=rs.Fields（“學(xué)號“）
        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（“語數(shù)外“）
   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.