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

实现上述功能的VB代码如下,
Private Sub Command1_Click()
Dim team(1 To 20) As String
Dim n As Integer, c As Integer, result As String
Dim i As Integer, j As Integer, temp As String
n = __________
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 n
result = ""
For j = 1 To c \ 2
result = result & team(j) & "-" & __________ & ";"
Next j
List1.AddItem "第" & Str(i) & "轮:" & result
temp = team(c)
For j = c To 2 Step -1
team(j) = _________
Next j
team(2) = temp
Next i
End Sub