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中显示的内容是（  ）

请回答下列问题：

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer

Dim s As String

i = 1: j = 6

Key = Text1.Text：s = ""

Do While i <= j

m = Int((i + j) / 2 + 0.5)

s = s + " " + a(m)

If Key > a(m) Then

i = m + 1

Else

j = m - 1

End If

Loop

Text1.Text = s

End Sub

i=1:j=1000:flag=True:p=0

key=val(Text1.Text)

Do While i<=j And flag

    m=(i+j)\2

    p=p+1

    if a(m)=key Then flag=False

    if a(m)>key Then j=m-1 Then i=m+1

Loop

数组元素a(1)到a(1000)中存放着升序排列的数据。下列说法正确的是（   ）

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)+“步”