实现上述功能的 VB 程序如下，请回答下列问题：

  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的值是（  ）

i = 1: j = 6: c = 0: f = False

key = Val(Text1.Text)

Do While i<= j And Not f

  c = c + 1

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

  If key = a(m) Then f = True

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

Loop

数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是（   ）

Dim a(1 To 6)As Integer

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

a(1)=11:a(2)=22:a(3)=33: a(4)=44:a(5)=55:a(6)=66

i=1:j=6:p=0:Key=23

Do While i<=j

p=p+1

  m=(i+j)\2

  If j 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=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)\10

Text2.Text=“”

i=1: j=9: f=False

Do While i<=j And Not f

    m=(i+j)\2

    if a(m) Mod 10=Key Then

        search=m

        f=True

    Elseif a(m) Mod 10>Key Then

        i=m+1

    Else

        j=m-1

    End if

    Text2.Text=Text2.Text+Str(m)

Loop

则在执行该程序后，Text2中显示的内容是（    ）