i=1：j=8：s="  "  ‘数组a下标为从1到8

  key=Val(Text1．Text)

  Do While i<=j

    m=(i+j)＼2

    s=s+Str(m)

    If a(m)=key Then Exit Do

    If a(i)<a(m)Then

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

    Else

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

    End If

  Loop

  Text2．Text=s

数组元素a（1）至a(8)的数据分别为“3，4，5，6，7，8，1，2”，运行该程序段，若在文本框Text1中输入1，则在文本框Text2中显示（  ）

  K=Val(Text1．Text)

  left1=1：right1=10

  Do While(left1<=right1)

    mid1=(left1+right1)＼2

    If a(mid1)<=k Then left1=mid1+1 Else right1=mid1-1

  Loop

  Text2.Text=Str(right1)

已知数组a(1)到a(10)的原始数据为1，4，5，5，5，5，8，9，9，10。程序运行时，在文本框Text1中输入5，文本框Text2显示的内容是（  ）

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

Key = Val(Text1.Text)

Do While i <= jAnd flag = True

    m = (i + j) \ 2

    If a(m) = Key Then

        flag = False

    ElseIf a(m) < Key Then

        i = m + 1

        n = n - 1

    Else

        j = m– 1

        n = n + 1

    End If

Loop

数组元素a(1)到a(10)的值依次是“5,16,22,28,35,43,52,67,78,89”，变量n的值最终是0，则文本框Text1输入的数值范围可能是（   ）

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10    ‘数组元素的总数

Dim a(1 To n) As Integer

Private Sub Form_Load()

‘该过程对数组a进行赋值,并在列表框List1中显示，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer,flag(1 To n) As Boolean

‘flag(i)记录第i个元素是否重复出现

For i = 1 To n      ‘flag(i)=true开始假设都只出现1次

 flag(i) = True

Next i

For i = 1 To n

 If flag(i) Then

  For j = i + 1 To n

    If Then flag(i) = False: flag(j) = False    ‘①

  Next j

 End If

Next i

For i = 1 To n

  If Then List2.AddItem Str(a(i))    ‘②

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

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

key=Val(Text1.Text)

Do While i<=j and Not f

    n=n+1

    m=Fix((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)的值依次为“12，19，27，31，46，55”，文本框Text 1中输入“31”后运行该程序，则以上程序段运行结束后，下列说法不正确的是（   ）