用选择排序每次选出最大值对数据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

（加试题）随机数排序程序。程序功能如下：窗体加载时生成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

（加试题）实现某排序算法的部分VB程序如下：
For i＝1 To 5
k＝i
For j＝i＋1 To 6
If a(k)＜a(j) 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(6)的数据依次为“96，90，91，88，95，94”。则下一遍排序“加工”后数组元素a(1)到a(6)的数据依次是(　　)

A．96，95，91，90，88，94	B．96，95，94，91，88，90
C．96，95，91，88，90，94	D．96，95，94，91，90，88

（加试题）以下一段程序其功能是对数组a(下标范围为1 to n)中的数据进行升序排序，划线处应填入的正确语句是（    ） 
For i =   
For j = 2 To i
If a(j) > a(j - 1) Then
k = a(j): a(j) = a(j -1): a(j -1) = k
End If
Next j
Next i

A．n to 2 Step -1

B．2  to  n

C．n-1 to 1 Step -1

D．1 to n -1

单循环赛制是一种较为公平合理的比赛制度，比赛过程中所有参赛队伍均能相遇一次。其秩序编排可采用“逆时针轮转方法”：数字 1～ n 依次作为队伍编号，把编号按 U 型走向分成均等两边（若 n 为奇数，则在末尾增加编号 0，使总数为偶数），即可得到第一轮的比赛秩序，例如，5 个队伍的比赛编排情况如图 a 所示；第二轮，固定编号 1，其余编号均按逆时针方向移动一个位置，即为该轮比赛秩序；以后各轮比赛秩序以此类推，与编号 0 对阵的表示本轮轮空。
小赵这此编写了 VB 程序，功能如下：在文本框 Text1 中输入参赛队伍数 n，单击“编排”按钮 Command1，在列表框 List1 中输出每轮比赛秩序。程序运行效果如图 b 所示。

实现上述功能的 V B代码如下，请将程序代码补充完整。
Private Sub Command1_Click()
Dim team(1 To 20) As String    
Dim n As Integer, c As Integer
Dim result As String
Dim i As Integer, j As Integer, temp As String
n=Val(Text1.Text)
For i=1 To n
team(i)=Str(i)
Next i
c=n+n Mod 2    
If c<>n Then team(c)=Str(0)
For i=1 To c-1
result=""
For j=1 To c\2
result=result&team(j)&"-"&______________&"；" ‘(1)
Next j
List1.AddItem "第"&Str(i)&"轮"&result   
temp=team(c)
For j=c To 2 Step -1
_________________    ‘(2)
Next j 

_________________     ‘(3)

Next i
End Sub