（加试题）某排序算法思想如下：每一趟将一个待排序的记录，按其关键字的大小插入到已经排好序的一组记录的适当位置上，直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序；第一步 3 插入到有序记录(9)，得到(3,9)；第二步 1 插入到有序记录(3,9)，得到(1,3,9)；第三步 4 插入到有序记录(1,3,9)，得到最终有序记录为“1,3,4,9”。
为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中显示经过上述排
序算法后的数据，运行结果如图所示。实现上述功能的 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  j = 1   Then Exit Do  ;改正：_______________

Loop

a(j) = a(j + 1)    ;改正：_______________

Next i
For i = 1 To n

List2.AddItem Str(a(i))

Next i
End Sub

用选择排序每次选出最大值对数据7,6,3,9,2进行降序排序，两轮后的结果是（ ）。

A．2,3,6,9,7

B．9,6,3,7,2

C．9,7,3,6,2

D．9,7,6,3,2

某排序算法，其VB代码如下：
i = 1
Do While i<= 5
If i = 0 Or a(i - 1) <= a(i) Then
i = i + 1
Else
t = a(i): a(i) = a(i - 1): a(i - 1) = t
i = i - 1
End If
Loop
数组元素a(0)到a(5)依次为：“0，61，22，43，89，27”，经过该程序段处理后，数组元素a(4)的值为（ ）

A．43

B．89

C．61

D．27

（加试题）（改编）有一段 VB程序，代码如下：
For i = 1 To 2
For j = 8 To i + 1 Step -1
If a(j) < a(i) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
数组元素 a(1)到 a(8)的值依次为“35,18,14,20,30,15,28,26”，运行该程序段后，a(5)到a(8)的值依次是（   ）

A．30,26,28,35

B．14,15,18,20

C．26,15,18,14

D．26,28,30,35

（加试题）下列 VB 程序段的功能是将数组元素 a(1)到 a(n)按非递减序排序：
For i = 1 To n - 1
For j = 补充代码
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
方框中的代码将会是以下四句中的一句：
① i To n - 1 ② n - 1 To i Step -1
③ 1 To n - i ④ n To i+1 Step -1
正确的选项是

A．①②

B．③④

C．①④

D．②③