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

（1）若有4支編號(hào)依次為“1，2，3，4”隊(duì)伍進(jìn)行2輪比賽，且各支隊(duì)伍實(shí)力值依次為“12，9，16，15”，則2輪比賽后隊(duì)伍“1，2，3，4”的分?jǐn)?shù)依次是

1，0，2，1

1，0，2，1

。（分?jǐn)?shù)用逗號(hào)隔開）
（2）請(qǐng)?jiān)跈M線處完成代碼填空。
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 ____
讀取已打亂的隊(duì)伍信息，編號(hào)、實(shí)力分別存在數(shù)組num和數(shù)組a中，且將數(shù)組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   將第一輪結(jié)果排序
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'調(diào)用過程，合并勝利組和失敗組Next i
s1=“編號(hào)：“：s2=“分?jǐn)?shù)：“
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））

'合并過程
'將勝利組與失敗組按照分?jǐn)?shù)合并，生成下一輪比賽順序并存回?cái)?shù)組 num 中
'代碼略End Sub
Function format（x As Integer） As String'格式化字符串函數(shù)'將輸入數(shù)字格式化為 3 個(gè)字符長(zhǎng)度，代碼略
End Function
Function cmp（i As Integer,j As Integer） As Boolean'比較函數(shù)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