積分循環賽是棋類比賽中經常使用的賽制之一它能有效地避免種子選手一開始就交鋒、拼掉。若有n（n一定為偶數）支隊伍進行r輪比賽采用積分循環賽，則比賽規則如下：
①第一輪比賽前，先給各隊伍隨機排名，設定隊伍編號：排名i的編號為i
②第一輪比賽：第1名和第2名、第3名和第4名、…、第n-1名和第n名，各進行一場比賽。每場比賽勝者得1分，負者得0分（已知所有隊伍的實力值不同，且實力值高的隊伍一定可以打敗實力值低的隊伍）
③根據比賽得到的分數，按照分數從高到低排名，若分數相同則編號小的隊伍排在前面。
④接下去的r-1輪比賽均采用②的規則進行比賽，且每比完一場比賽都按照③的規則對隊伍順序排名，排名的結果是下一輪比賽隊伍的順序。
程序界面如下圖。

（1）若有4支編號依次為“1，2，3，4”隊伍進行2輪比賽，且各支隊伍實力值依次為“12，9，16，15”，則2輪比賽后隊伍“1，2，3，4”的分數依次是

1，0，2，1

1，0，2，1

。（分數用逗號隔開）
（2）請在橫線處完成代碼填空。
Dim a（1 To 100）Integer,b（1 To 100）As Integer
Dim num（1 To 100）As Integer,win（1 To 100）As Integer,lose（1 To 100）As Integer
Dim win_num As Integer,lose_num As Integer
Dim As Integer,r As Integer,s1 As String,As String,53 As String
Private Sub Command1_Click ____
讀取已打亂的隊伍信息，編號、實力分別存在數組num和數組a中，且將數組b置0
代碼略
End Sub
Private Sub Command2_Click ____
Dim i As Integer,j As Integer,t As Integer
ori=1 To Step2  先比第一輪
If a（i）＞a（+1）Then b（i）=1 Else ____
Next i
For i=1Ton-1   將第一輪結果排序
For j=1 Ton-i
If cmp（

b（i+1）=1

b（i+1）=1

） Then
t=num（j）：num（j）=num（j+1）：num（j+1）=t End If
Next j
Next i
For i=1 To r-1'比剩下的 r-1 輪比賽
win_num=0：lose_num=0
For j=1 To n Step 2
win_num=win_num+1：lose_num=lose_num+1
If a（num（j））＞a（num（j+1）） Then
b（num（j））=b（num（j））+1
win（win_num）=num（j）：lose（lose_num）=num（j+1）
Else
b（num（j+1））=b（num（j+1））+1
win（win_num）=num（j+1）：lose（lose_num）=num（j）
End If
Next j
Call merge'調用過程，合并勝利組和失敗組Next i
s1=“編號：“：s2=“分數：“
For i=1 To n
s1=s1+format（num（i））
s2=s2+format（

cmp（num（j+1），mun（j））

cmp（num（j+1），mun（j））

）
Next i
List2.AddItem s1 List2.AddItem s2
End Sub
Sub merge

b（mum（i））

b（mum（i））

'合并過程
'將勝利組與失敗組按照分數合并，生成下一輪比賽順序并存回數組 num 中
'代碼略End Sub
Function format（x As Integer） As String'格式化字符串函數'將輸入數字格式化為 3 個字符長度，代碼略
End Function
Function cmp（i As Integer,j As Integer） As Boolean'比較函數cmp=False
If b（i）=b（j） Then
If i＜j Then cmp=True
ElseIf b（i）＞b（j） Then  cmp=True
End If
End Function