（加试题）小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1 中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2 中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, bottom As Integer
'获取排序前数据依次存储在数组a 中，并在文本框Text1 中显示。代码略
bottom = n : i = 1
Do While i <= bottom - 1

For j = bottom To i + 1 Step -1

If a(j) < a(i) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理
a(bottom)=a(j)   
bottom = bottom - 1
End If

Next j

i = i + 1

Loop
Text2.Text = " "
For i = 1 To bottom

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

Next i
End Sub

将6名选手的歌唱比赛成绩存放在数组a中，如下表所示：

若按升序排列，采用冒泡排序算法自右向左进行比较和交换，那么完成前二轮的数据处理，比较的总次数为

A．10

B．4

C．9

D．5

单循环赛制是一种较为公平合理的比赛制度，比赛过程中所有参赛队伍均能相遇一次。其秩序编排可采用“逆时针轮转方法”：数字 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

（加试题）以下一段程序其功能是对数组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