程序代码如下，为实现上述功能，请在画线处填写合适的代码。

Dim bh(10 000)As String        ‘存储学生编号

Dim jf(10 000)As Integer       ‘存储学生获得的积分值

Dim n As Integer               ‘存储学生总人数

Function Search(x As Integer)As Integer

    Search=0

    i=1：j=n：flag=True

    Do While i<=j And flag=True

      m=Int((i+i)／2)

      If x=jf(m) Then

         flag=False

             ①  

      Elself    ②     Then

        i=m+1

      Else

        j=m-1

      EndIf

    Loop

End Function

Private Sub Form_Load()

    ‘从数据库中读取学生编号和积分，分别存储到bh数组和jf数组中，并按积分值从小到大排序，显示在列表框List1中

End Sub

Private Sub Command1_Click()

    Dim Top As Integer，Bottom As Integer，Topxb As Integer，Bottomxb

As Integer

    List2．Clear

    Top=Val(Text1．Text)

    Bottom=Val(Text2．Text)

    If Top>Bottom Then t=Top：Top=Bottom：Bottom=t

    If Top>jf(n)Or Bottom<jf（1）Then Exit Sub

    Do While Search(Top)=0

      Top=Top+1

    Loop

    Do While Search(Bottom)=0

      Bottom=Bottom-1

    Loop

    Topxb=Search(Top)

    Do While jf(Topxb)=jf(Topxb-1)And Topxb>l

      Topxb=Topxb-1

    Loop

    Bottomxb=Search(Bottom)

    Do While jf(Bottomxb)=jf(Bottomxb+1)And Bottomxb<n

      Bottomxb=Bottomxb+1

    Loop

    For i=    ③    

       List2.AddItem bh(i)&"    "&jf(i)

    Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} ③{#blank#}3{#/blank#} 

  n=0

  i=1

  j=6

  key=Val(Text1．Text)

  f=False

  Do While i<=j And Not f

    m=(i+j+1)＼2

    n=n+1

    If key=d(m)Then

       f=True

    ElseIf key>d(m)Then

       i=m-1

    Else

      i=m+1

    EndIf

  Loop

数组元素d（1）到d（6）的值依次为“87，72，53，41，29，18”，若该程序段运行结束后，n的值为2，则key的值是（  ）

L = 1: R = 10: Key = 21

Do While L <= R

    m = (L + R) \ 2

    If a(m) <= Key Then

        L = m + 1

    Else

        R = m - 1

    End If

Loop

数组元素 a(1)到 a(10)的值依次为“ 3， 9， 21， 21， 21， 21， 27， 28， 39， 40”，执行该程序段，变量R、a(R)的值分别是（  ）

Const n=10

key=Val(Text1.Text)

L=1:R=n

If check(key) Then    'check(x)为自定义函数，判断x为否偶数，若是返回True，否则为False

Do While Not check(a(L))

L=L+1

Loop

Else

Do While check(a(R))

R=R-1

Loop

End If

Do While L<=R

m=(L+R)\2

If key=a(m) Then Exit Do

If key>a(m) Then

L=m+1

Else

R=m-1

End If

Loop

若数组元素a(1)到a(10)依次为“1,3,5,7,9,2,4,6,8,10”，执行以上程序段，依次对该组数据进行查找，平均查找次数(平均查找次数=总查找次数/数据总个数)为（  ）

Dim a(1 To 10) As Integer

Dim s As String, n, key As Integer

a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77

i = 1: j = 6: c = 0: key = 35

Do While i <= j

c = c + 1

m = (i + j) \ 2

If (j - i + 1) Mod 2 = 0 Then m = m + 1

If a(m) = key Then Exit Do

If key < a(m) Then j = m - 1 Else i = m + 1

Loop

该程序段运行后，下列各变量的值不正确的是（  ）

   i = 1: j = 10

Do While i <= j

       m = (i + j) \ 2

       If a(m) = Key Then text1.Text = "查找成功": Exit Do

       If Key < a(m) Then j = m - 1

       If Key > a(m) Then i = m + 1

Loop