編寫(xiě)VB程序，功能是根據(jù)各城市初賽成績(jī)（城市數(shù)為偶數(shù)，每個(gè)城市初賽人數(shù)≥3）前3名的選手進(jìn)行復(fù)賽分組。其中各城市選手編號(hào)由城市代碼+編號(hào)組成，例如“A001“表示A市001號(hào)，復(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名

程序運(yùn)行界面如圖所示：

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

B006

B006

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

（　　）

（　?。?/div>
′從數(shù)據(jù)庫(kù)中讀取初賽選手編號(hào)、選手成績(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））&“選手成績(jī)：“&result（record（i））
Next i
List2.AddItem“選手編號(hào)“&“Vs“&“選手編號(hào)“
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