编写VB程序，功能是根据各城市初赛成绩（城市数为偶数，每个城市初赛人数≥3）前3名的选手进行复赛分组。其中各城市选手编号由城市代码+编号组成，例如“A001“表示A市001号，复赛分组规则如表所示：

第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）若存储初赛成绩的数据表中增加一条记录“选手编号为B058，选手成绩为97.6”，重新运行该程序读取数据，点击“分组”后，与选手“A001”分到一组进行复赛的选手编号为

B006

B006

。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Const nc=6′nc个城市参赛
Dim result（1 To 1000）As Single′存储选手的初赛成绩
Dim player（1 To 1000）As String′存储各城市选手编号
Dim n As Integer′存储初赛总人数
Dim record（1 To 3*nc）As Integer
Dim i As Integer
Private Sub Form_Load

（　　）

（　　）

′从数据库中读取初赛选手编号、选手成绩，存人数组player,result中，代码略
End Sub
Private Sub Command1_Click

（　　）

（　　）

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