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

Dim a(1 To 6)As Integer, I AS Integer, maxi As Integer

a(1)=12：a(2)=8：a(3)=14：a(4)=13：a(5)=12：a(6)=11

Maxi=1

For i=2 To 6

If a(i)>a(maxi)Then maxi=i

Next i

a(1)=a(1)+a(maxi)：a(maxi)=a(1)-a(maxi)：a(1)=a(1)-a(maxi)

执行该程序段后，数组元素a(1)~a(6)的值是（  ）

i=1：j=12：k=0：s=””

key= Va1(TextI Text)： c=N： flag= False

Do While i<= j And flag= False

m=(i1+j+1)\2：k=k+1

If key= a(m) Then c=Y： flag=True

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

s=s& Str(a(m))

Loop

Text2 Text s： Text3 Text= c

数组a(1)到a(12)的值依次为“991．85．76，68．61，53，42．34，27，20，13”，执行该程序段后，下列说法正确的是（  ）

key＝Val(Text1.Text)

s＝“ ”

i ＝ 1 : j ＝ 10

Do While i ＜＝ j

  m ＝(i＋j)\2

  s ＝ s＋ Str(a(m))

  If a(m)＞ key Then j ＝ m -1 Else i ＝ m ＋1

Loop

Text2.Text ＝ s

数组元素a(1)到a(10)的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text1中输入待查找的数，执行该程序段，则文本框text2中显示的内容可能的是 （  ）

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中显示的内容是（    ）