（加试题）某排序算法思想如下：每一趟将一个待排序的记录，按其关键字的大小插入到已经排好序的一组记录的适当位置上，直到所有待排序记录全部插入为止。例如(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

（加试题）编写一个VB程序实现数据左右交替上升排序。功能如下：随机产生n个不重复的整数存数组a，并在列表框listl中显示，单击“排序”按钮Commandl，在列表框list2中显示排序后的数据。某遍程序运行后，数组a中存储的左右交替上升排序的n个正整数，如下表所示：

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
1	4	7	……	8	6	2

 
实现该功能的VB程序如下，但加框处代码有错，请改正。
Constn=10
Dima(1 To n) As Integer
Private Sub Form_Load()
‘随机产生n个不重复的整数存数组a，并在列表框listl中显示。代码略。
End Sub
Private Sub Command1_Click()

Dim i As Integer，j As Integer，t As Integer

Dim i minl As Integer，imin2 As Integer

For i=1 To n\2

Imin l=i：imin2=i+1
If a(iminl)>a(imin2) Then t=iminl：iminl=imin2：imin2=t
For j=i+2 To n-i+1
If a(j)<a(imin1) Then
imin2=iminl；iminl=j
    ‘(1)  _______________________________ 
imin 2=j
End If
Next j
If i◇imin 1 Then t=a(i)：a(i)=a(imin1)：a(imin1)=t
If imin 2=i Then      ‘(2)  _______________________________ 
If n-i+1◇imin2 Then t=a(n-i+1)：a(n-i+1)=a(imin2)：a(imin2)=t

Next i

For i=1 To n

Text2.Text=Text2.Text+Str(a(i))

Next i

End Sub

（加试题）小明基于冒泡排序思想设计了一个改进的排序算法。该算法先用冒泡法将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理。算法的VB程序段如下，但加框处代码有错，请改正。
’待排序数据存储在数组a中（a（1）~ a（n）），要求升序排列
For i = 1 To (n - 1) \ 2
For j = 1 To n - i * 2
If    a(j) > a(j + 1)   Then ____________________________
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
Next j
Next i
For i = 1 To n \ 2
j = 2 * i - 1
If a(j) > a(j+1) Then t = a(j): a(j) = a(j+1): a(j+1) = t
Next i
For i =   1 To n   Step 2 ________________________
t = a(i): j = i - 1
Do While t < a(j) 
a(j + 1) = a(j): j = j - 1
Loop
a(j + 1) = t
Next i

有一组正整数，要求仅对其中的偶数进行降序排序。排序后偶数在前，奇数在后。排序示例如下。

排序前	75	78	60	86	61	75	36	88
排序后	88	86	78	60	36	75	61	75

 
程序运行界面如下图所示。
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 8
Dim a(1 To n) As Integer Private Sub Form_Load()
'排序前数据存储在数组 a 中，并在文本框 Text1 中显示代码略 End Sub
Private Sub Command1_Click()
Dim k As Integer, i As Integer, j As Integer, t As Integer
i = 1
Do While i <= n - 1
k = i
For j = i + 1 To n
  '①
k = j
ElseIf a(k) Mod 2 = 0 And a(j) Mod 2 = 0 And a(j) > a(k) Then
k = j
End If
Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If
  '② 
Loop

'依次输出排序后的数据。代码略 End Sub