实现上述功能的VB代码如下，但划线处代码有错，请改正。

Const n  As Integer = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

    Dim i As Integer

    Randomize

    For i = 1 To n

       a(i) = Int(Rnd * 100)

       List1.AddItem Str(a(i))

    Next

End Sub

Private Sub Command1_Click()

    Dim tmp  As Integer, i As Integer, j As Integer, k As Integer

    For i = 1 To n - 1

        k = 0

        For j = n To i + 1 Step -1

            If a(j) > a(j - 1) Then

               tmp = a(j): a(j - 1) = a(j): a(j) = tmp 

               k = k + 1

            End If

        Next j

        If   k > 0   Then i = n

    Next i

    For i = 1 To n

        List2.AddItem Str(a(i))

    Next i

    End Sub

End Sub

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

Private Sub Command1_Click()

Dim a(1 To 100) As Integer

x = Val(Text1.Text)

y = Val(Text2.Text)

For i = 1 To 100

     (1)

  List1.AddItem Str(a(i))

Next i

For i = x To y - 1

  k = i

  For     (2)

    If a(k) > a(j) Then k = j

  Next j

  If k <> i Then

    t = a(k): a(k) = a(i): a(i) = t

  End If

Next i

For i = x To y

  List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#}  ⑵{#blank#}2{#/blank#} 

i=1: j=8: n=1

k=Val(Text1. Text)

Do While i<=j

    m=(i+j)2

    IF k<d(m) Then j=m-1 Else i=m+1

    n=n+1

Loop

数组元素d(1)到d(8)依次为3，9，14，17，25，29，32，35，在文本框 Text1输人“14”。执行程序后，下列说法不正确的是（  ）