（加试题）小明基于冒泡排序思想设计了一个改进的排序算法。该算法先用冒泡法将数组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

数组d中存放了一组数据如表所示。采用选择排序对这组数据进行递增次序排序。第二遍加工过程中，进行数据交换的数组元素是(    )

d1	d2	d3	d4	d5	d6	d7	d8
90	84	85	72	80	71	66	70

 

A．d2与d3

B．d2与d1

C．d2与d8

D．d2与d7

（加试题）某排序算法的VB程序段如下：
n = 10
Text1.Text = ""
For i = 1 To 5
For j = n To i + 1 Step -1
If a(j) < a(i) Then
temp = a(j): a(j) = a(i): a(i) = temp
End If
Next j
Next i
For i = 1 To 10
Text1.Text = Text1.Text + Str(a(i))
Next i
数组元素a(1)到a(10)的值依次为“965,155,195,444,106,734,172,983,898,360”，执行该程序段，文本框Text1中显示的是

A．106 155 172 195 360 444 734 898 965 983

B．106 155 172 195 360 734 444 983 898 965

C．983 965 898 734 444 360 172 195 155 106

D．106 155 172 195 360 965 444 734 898 983

n个数据的冒泡升序排序需要经过n-1遍的加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面，在第i遍加工过程中需要进行n-i对数据的比较，在某些情况下，第i遍加工过程中，在上面部分较小数据已经有序情况下，不需要再进行n-i对数据的比较。如对“17,18,19,24,23,20”这6个数据排序中，第1遍排序结束后数据为“17,18,19,20,24,23”，第2遍排序时不再需要对20及其前面4个数据进行比较。程序界面如下图所示

以下程序实现了冒泡排序的优化，请在划线处填写合适的代码。
Dim n As Integer
Dim a (1 to 100) As Integer
Private Sub Form_Load()
‘n=10，排序前生成的数据存储在数组a中，并在列表框List1中显示
‘代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, start As Integer, t As Integer
①_________________
Do While i < n
start = n
For j = n To i Step ②_______________
If a(j) < a(j - 1) Then
t = a(j): ③____________ : a(j - 1) = t
start = j
End If
Next j
④______________
Loop
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub

（加试题）随机数排序程序。程序功能如下：窗体加载时生成10，100范围内的随机整数10 个存储在数组 a 中,并在列表框 List1 中显示原始数据，单击“排序”按钮，这 10 个数据按 降序排序后显示在列表框 List2 中。程序运行效果如图所示。实现上述功能的 VB代码如下，但 加框处代码有错，请改正。

 

 
Dim a(1 To 10) As Integer
Private Sub Command1 Click()
Dim i As Integer, j As Integer, x As Integer p = True
i = 1
Do While i <= 9 And p p = False
For j = 10 To i + 1 Step -1
If   a(j)< a(i)   Then   '①________
k = a(j): a(j) = a(j - 1): a(j - 1) = k: p = True
End If
Next j
i = i + 1
Loop
For i = 1 To 10

List2.AddItem Str(a(i)) Next i

End Sub
Private Sub Form_Load() Dim i As Integer
List1.Clear
Randomize ' 初始化随机函数 Rnd
For i = 1 To 10
a(i) =   Int(Rnd * 100)   '②________ List1.AddItem   Str(a(i))
Next i
End Sub