实现某排序算法的部分VB 程序如下:
For i=1 To 6
k=i
For j=i+1 To 7
If a(j)<a(k) Then k=j
Next j
If i<>k Then
t=a(i):a(i)= a(k):a(k)= t
End If
Next i
在排序过程中,经过某一遍排序“加工”后,数组元素a(1)到a(7)的数据依次为“10,41,75,12,63,11,85”｡则下一遍排序“加工”后数组元素a(1)到a(7)的数据依次是(  )

A．10,11,41,75,12,63,85	B．10,11,75,12,63,41,85
C．10,11,12,75,63,41,85	D．10,11,12,41,63,75,85

（加试题）编写一个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

小明基于选择排序算法编写了一个VB程序,功能如下：某班有50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样（所给的数据保证能选10个）。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const  n = 50
Dim d(0 To n) As single , name(1 to n) as string
'读入50个学生的身高，依次存入d(1)…d(50), 最高身高小于2，姓名存入name(1)…name(50)
'代码略
Private Sub Command1_Click()

Dim i As Integer, j As Integer, temp As single, k As Integer,r as string

d(0) = 2

For i = 1 To 10

  For j = i To n

    If d(j) < d(i - 1) Then

If  Then

k = j

End If

    End If

  Next j

  If k <> i Then

temp = d(k):  d(k) = d(i):  d(i) = temp

r=name(k) : name(k)=name(i) : name(i)=r

  End If

Next i

For i = 1 To 10  ‘输出被选的10个人的名字和身高。

  List2．AddItem  name(i) & d(i)

Next i

End Sub

（加试题）（改编）有一段 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