Dim a(5) As Integer

Dim i As Integer, j As Integer, t As Integer

a(1) = 52: a(2) = 15: a(3) = 37: a(4) = 22: a(5) = 35

i = 1

Do While i < 5

    t = i: j = i + 1

    Do While j <= 5

        If a(j) > a(t) Then t = j

        j = j + 1

    Loop

    x = a(t): a(t) = a(i): a(i) = x

    i = i + 1

Loop

Text1.Text = Str(a(2))

运行该段代码后，文本框Text1中显示的内容为（   ）

  Key=Val(Text1．Text)

  i=1：j=10

  flag=False

  s=””

  Do While i<一i And NOt flag

  mid1=Int(i+(j-i)／3)

  mid2=Int(j-(i-i)／3)

  If Key=a(mid1)Then

    flag=True

  ElseIf Key<a(mid1) Then

    j=mid1-1

  ElseIf Key=a(mid2) Then

    flag=True

  ElseIf Key>a(mid2) Then

    j=mid2+1

    Else

      i=mid1+1

      i=mid2-1

      End If

      s=s&”  ”＆ mid1 ＆ “：”&  mid2

 Loop

 Text2．Text=s

已知数组a(1 To 10)中的数据分别是12，21，34．45，59，63，72，86，94，100，在文本框Text1中输入34，程序运行后文本框Text2中显示的内容是（  ）

a(l) = 5: a(2) = 16: a(3) = 22: a(4) = 28: a(5) = 35

a(6) = 43: a(7) = 52: a(8) = 67: a(9) = 78: a(10) = 89

i = 1: j = 10: n = 0: flag = True

Key = Val(Textl. Text)

Do While i <= j And flag = True

  m = (i + j) \ 2

  If a(m) = Key Then

    flag = False

  Elself a(m) < Key Then

    i = m + 1

    n = n - 1

  Else

    j = m - 1

    n = n + 1

  End If

Loop

变量n的值最终为0，则文本框Text1输入的数值范围可能是（  ）

i=1: j=5: k=0: s=""

key=Int(Rnd*100)

Do While i <=j

  k=k+1

  m=(i+j) \ 2

  s=s+Str(a(i))

  If key=a(m) Then

   Exit Do     ‘Exit Do表示退出循环

  ElseIf key < a(m) Then

   j=m-1

  Else

   i=m+1

  End If

Loop

Text1.Text=s

数组元素a(1)到a(5)的值依次为“6，18，25，37，49”。若该程序段执行后，k的值为3，则key的值不可能为（  ）

t=“”: i=0 : j=9 : key=62: f=False

Do While i<=j And Not f

    m=Fix((i+j) / 2)

    t=t+Str(rn)

    If a(m)=key Then

        f=True

    Elself a(m) > key Then

         i=m+1

         t=t+“→”

    Else

        j=m-1

        t=t+“←”

    End If

Loop

数组元素a⑹到a⑼的值依次为“99, 94, 90, 87, 78, 70, 63, 56, 45, 36”,执行该程序段，t的值是（  ）

key = Val(Text1.Text)

i=1:j=n

Do While i<j

    m=(i+j)\2

    If  Then

        i=m+1

    Else

    End If

Loop

If a(i)=key Then Label1.Caption =Str(i) Else Label1.Caption ="找不到"

上述程序段两个方框处的语句分别为（  ）