n=0：i=1：j=8

    Key=Val(Text1．Text)

    Do While i<=j

    m=(i+j)＼2

    If Key=d(m)Then Exit Do ‘Exit Do退出循环

    If Key>d(m)Then

    j=m-1：n=n-1

    Else

    i=m+1：n=n+1

    End If

    Loop

    Label1．Caption=Str(n)

当输A不同的Key值，运行该程序段后，在标签Label1中显示的不同结果共有：（  ）

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

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

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

    End if

    if Key<a(m) Then j=m-1  Else  i=m+1

    Label1.Caption=Label1.Caption+“→”+Str(m)

Loop

Label2.Caption=“经历”+ Str(s)+“步”