为此，编写了一个 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#}

  Function search(key As Integer)As String

    Dim pos As Integer，i As Integer，j As Integer

    Dim nc As String

    i=1：j=6：nc=“”

    Do While i<=j

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

        nc=nc+Str(m)

        If d(m)=key Then

            Exit Do        ‘Exit Do表示退出Do While循环

        ElseIf key<d(m)Then

             j=m-1

        Else

             i=m+1

    End If

      Loop

      search=nc

    End Function

数组元素d(1)到d(6)的值依次为“23，34，45，65，78，98”，则下列说法正确的是 （  ）

i=1 : j=8 : s=""

key=Text1.Text Do While i<=j

   m=(i+j)\2

If key=a(m) Then

      s=s+"M"

Exit Do

Elseif Key > a(m) Then j=m-1: s=s+"L"

Else

      i=m+1: s=s+"R" End if

Loop Text1.Text=s

数组元素a(1)到a(8)的值依次为“tiger,snake,sheep,rabbit,pig,mouse,monkey,dog”,若该程序段执行后，文本框Text1中显示的内容不可能是（  ）

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

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  '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 = "历经" + CStr(s) + "步

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)中存放着升序排列的数据。下列说法正确的是（   ）