編寫VB程序，功能是根據(jù)各城市初賽成績（城市數(shù)為偶數(shù)，每個城市初賽人數(shù)≥3）前3名的選手進行復(fù)賽分組。其中各城市選手編號由城市代碼+編號組成，例如“A001“表示A市001號，復(fù)賽分組規(guī)則如表所示：

第1組	第2組	第3組	……	第7組	第8組	第9組
A市第1名	A市第2名	A市第3名	……	E市第1名	E市第2名	E市第3名
B市第3名	B市第2名	B市第1名	……	F市第3名	F市第2名	F市第1名

程序運行界面如圖所示：

（1）若存儲初賽成績的數(shù)據(jù)表中增加一條記錄“選手編號為B058，選手成績?yōu)?7.6”，重新運行該程序讀取數(shù)據(jù)，點擊“分組”后，與選手“A001”分到一組進行復(fù)賽的選手編號為

B006

B006

。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Const nc=6′nc個城市參賽
Dim result（1 To 1000）As Single′存儲選手的初賽成績
Dim player（1 To 1000）As String′存儲各城市選手編號
Dim n As Integer′存儲初賽總?cè)藬?shù)
Dim record（1 To 3*nc）As Integer
Dim i As Integer
Private Sub Form_Load

（　?。?/div>

（　?。?/div>
′從數(shù)據(jù)庫中讀取初賽選手編號、選手成績，存人數(shù)組player,result中，代碼略
End Sub
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
Dim group（1 To nc）As Integer
Dim i As Integer,k As Integer,w As Integer
For i=1 To nc
group（i）=0
Next i
For i=1 To n
k=

Asc（Mid（player（i），1，1））-64

Asc（Mid（player（i），1，1））-64

group（k）=group（k）+1
If group（k）=1 Then
record（（k-1）*3-1）=i
Else If group（k）＜=3 Then

w=find（group（k），k）

w=find（group（k），k）

record（（k-1）*3+w）=i
Else
If result（i）＞result（record（（k-1）*3+3））Then
w=find（3，k）
record（（k-1）*3-w）=i
End If
End If
Next i
For i=1 To 3*nc
List1.AddItem player（record（i））&“選手成績：“&result（record（i））
Next i
List2.AddItem“選手編號“&“Vs“&“選手編號“
For i=1 To nc/2
For j=1 To 3
t=（i-1）*6
List2.AddItem player（record（t+j））&“VS“&.player（record（t+7-j））
Next j
Next i
End Sub
Function find（m As Integer,k As Integer） As Integer
Do While m＞1
If

result（i）＞result（record（（k-1）*3+m-1））

result（i）＞result（record（（k-1）*3+m-1））

Then
record（（k-1）*3+m）=record（（k-1）*3+m-1）
m=m-1
Else
Exit Do
End If
Loop
Find=m
End Function