key = Val(Text1.Text)

i = 0: j = 9:  s = 0

Do While i <= j

m = Fix((i + j) \ 2 + 0.5)

s = s + 1

If key = a(m) Then

Label1.Caption = Label1.Caption + "→" + Str(m)

Exit Do  'Exit Do表示退出循环

End If

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

Label1.Caption = Label1.Caption + "→" + Str(m)

Loop

Label2.Caption = "历经" + CStr(s) + "步"

i=1:j=6:flag=False key=Val(Text1.Text)

Do While i<=j And flag = False

   m=(i+j)\2

   If key=a(m) Then flag=True

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

数组元素a(1)到a(6)的值依次为“7，9，15，27，34，51”。文本框Text1中输入“27”后运行该程序，运行结束后，下列说法不正确的是（  ）

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

Key=Int(Rnd()*10)+28

Do While i <=j And flag=True

 m=(i+j) \ 2 : cs=cs+1

 If a (m)=Key Then

  flag=False

 Else If a(m) < Key Then

  i=m+1

 Else

  j=m-1

 End If

Loop

数组元素a(1)到a(10)依次是3 10 17 23 27 30 35 40 45 50，变量cs的值可能是（  ）

Key = Int(Rnd * 49) * 2 + 1

s = 0: i = 1: j = 10

Do While i <= j

m = (i + j) \ 2

If Key = a(m) Then Exit Do If Key < a(m) Then

j = m - 1: s = 2 * s

Else

i = m + 1: s = 2 * s + 1

End If Loop

数组a(1)到a(10)的值依次为“2,6,7,15,20,24,27,43,52,63”，执行该程序段后，s的值不可能为（  ）

Dim d(1 To 9) As Integer, s As String

Dim L As Integer, R As Integer, M As Integer, key As Integer

L = 1: R = 9

s = "": key =13

Do While L <= R

M = (L + R + 1) \ 2

If d(M) = key Then L = 10

If d(M) < key Then L = M + 1 Else R = M - 1

s = s + Str(M)

Loop

    a(1) = 1

    For i = 2 To 12

      a(i) = a(i - 1) + Int(Rnd * 2) + 1

    Next i

    Key = Val(Text1.Text)

    i = 1: j = 12: cnt = 1: flag = False

    Do While i <= j And flag = False

      cnt = cnt + 1

      m = (i + j + 1) \ 2

      If a(m) = Key Then

        flag = True

      ElseIf Key > a(m) Then

        i = m + 1

      Else

        j = m - 1

      End If

    Loop

程序运行后，下列说法正确的是（  ）