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

key=val(Text1.Text)

Do while i<=j and f=False

   n=n+1

   m=(i+j)\2

   If key=d(m) then f=True

   If key<d(m) then j=m-1 Else i=m+1

Loop

数组元素d(1)到d(6)的值依次为“13，18，25，30，35，59”。文本框Text1中输入33后运行该程序，运行结束后下列说法不正确的是（   ）

为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer        '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

For i = 2 To n

t = a(i)  :   j = i - 1

Do  While  t < a(j)

 a(j + 1) = a(j) j = j – 1

If     Then Exit Do  ①

Loop

       ②

Next i

For i = 1 To n

 List2.AddItem Str(a(i))

Next i

End Sub

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

该程序采用两种查询方式：

⑴按的汽车的排量查询信息

在文本框Text1中输入需要的汽车的排量，单击Command1按钮，在列表框List1中显示等于该排量汽车的相关车辆信息。

⑵按车主查询信息

在文本框Text1中输入车主信息(手机号码或姓名)，单击Command2按钮，在列表框List1中显示车辆信息。

该程序运行时的界面如图2所示。

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

key = Val(Text1.Text)

i = 1: j = 10

Do While i <= j

  m = (i + j) \ 2

  If  Then

    Text2.Text = "在第" + Str(m) + "个"

    Exit Do  'Exit Do 表示退出循环

  ElseIf  Then

     i = m + 1

  Else

  End If

Loop

If i >j Then Text2.Text = "找不到目标"

上述程序中方框处可选语句为：

①i = m - 1     ②j = m – 1   ③d(m) = key   ④d(m) > key   ⑤d(m) < key

则(1)、(2)、(3)处语句依次是（  ）

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”后运行该程序，则以上程序段运行结束后，下列说法不正确的是（   ）