有如下VB程序段：
For i=1 To 6
a(i)=Int(Rnd()^*10)+1
If a(i) Mod 2◇i Mod 2 Theni=i-1
Next i
For i=1 To 5
For j=6 To i+2 Step-1

If a(j)<a(j-2) Then

t=a(j)：a(j)=a(j-2)：a(j-2)=t

End If

Next j
Next i
执行程序后，a数组各元素可能是

A．1，2，3，4，5，6

B．1，0，3，6，5，8

C．3，2，7，6，11，8

D．2，1，4，3，10，9

小孟为提高效率，对选择排序算法进行了如下改进：在数组的所有元素中找出最小和最大数据的元素，然后将这两个元素分别与第一个和最后一个元素交换数据，在余下的元素中找出最小和最大数据的元素，分别与第二个和倒数第二个元素交换数据，以此类推，直到所有元素的数据按升序排列。小赵编写的VB程序段如下：
p = 1: q = 10
Do While p < q
iMin = p: iMax = p
For i = p + 1 To q
If a(i) < a(iMin) Then
iMin = i
elseIf a(i) > a(iMax) Then
iMax = i
endif
Next i
t = a(iMax): a(iMax) = a(q): a(q) = t
    ①    
t = a(iMin): a(iMin) = a(p): a(p) = t
p = p + 1:q = q -1
Loop
要使程序实现上述算法思想，则方框中的语句是

A．If iMax = q Then iMax = iMin	B．If iMin = q Then iMin = iMax
C．If iMax = q Then iMin = iMax	D．If iMin = q Then iMax = iMin

某 VB 程序代码如下：
For i = 1 To 3
For j = 5 To i Step -1
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
List1.AddItem Str(a(i)) Next i
数组元素 a(1)到 a(6)的数据依次为“1，5，7，6，9，3”，经过该程序段加工后，列表框 list1 中显示的内容是（ ）

A．9 7  6

B．1  3 5

C．9 7 6 1 5 3

D．9 7  6  5 3  1

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