学进去

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

程序运行界面如图所示：

（1）若存储初赛成绩的数据表中添加一条记录“选手编号2058，选手成绩为97.6”，重新运行该程序读取数据，点击“分组”后，与选手“1001”分到一组进行复赛的选手编号为____。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const bj = 6
Dim result(1 To 600) As Single
Dim player(1 To 600) As String
Dim n As Integer, i As Integer
Dim record(1 To 3 * bj) As Integer
Private Sub Form_Load()
'从数据库中读取初赛选手编号、选手成绩，存入数组player，result中，代码略
End Sub
Private Sub Command1_Click()
Dim group(1 To bj) As Integer
Dim j As Integer, k As Integer, w As Integer
For i = 1 To bj

group(i) = 0

Next i
For i = 1 To n

_____

group(k) = group(k) + 1

If group(k) = 1 Then

record((k - 1) * 3 + 1) = i

ElseIf group(k) <= 3 Then

______

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 bj

List1.AddItem   player(record(i)) & "选手成绩：" & result(record(i))

Next i
List2.AddItem   "选手编号" & "VS" & "选手编号"
For i = 1 To bj / 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   ____ 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