学进去

有n个小组（编号1至n），每个小组有m个成员，每个成员都有一个大于0的得分。现要从小组总分超过640分的组别中找出个人分数最高的num名选手（如果有多名成员并列第num名，则全部显示）。按上述要求，编写VB程序，功能如下：在列表框List1中按组别升序显示各小组每个成员的姓名和得分，单击“统计”按钮Command1后，在列表框List2中显示小组总分超过640的小组编号和总分，在列表框List3中显示符合条件的成员名单，程序运行界面如图所示。

请回答下列问题：
（1）能实现清空列表框List2内容的语句是_____________（单选，填字母：A.List2.Caption=""/
B.List2.Clear/ C.List2.Text=""）。
（2）请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Const n = 10, m = 8, num = 5
Dim df(n * m) As Integer, xm(n * m) As String, b(n * m) As Integer
Private Sub Form_Load()
'读取n个小组每个成员的姓名和得分，按组别从小到大依次存入数组xm和数组df，
'xm（1）到xm（m）和df（1）到df（m）分别存储第1小组m个成员的姓名和得分，
'xm（m+1）到xm（2*m）和df（m+1）到df（2*m）分别存储第2小组m个成员的姓名和得分，
'以此类推，并按顺序显示在List1中，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer,p As Integer, c(n) As Integer
List2.AddItem "组别 总分"
For i = 1 To n

For j = 1 To m

________①       

Next j

If c(i) > 640 Then List2.AddItem Str(i) & " " & Str(c(i))
Next i
p = 0
For i = 1 To n

If____②      Then

For j = (i - 1) * m + 1 To i * m

p = insert(p, j)

Next j

End If

Next i
List3.AddItem "组别 姓名 得分"
For i = 1 To p

List3.AddItem Str((b(i) - 1) \ m + 1) + " " + xm(b(i)) + " " + Str(df(b(i)))

Next i
End Sub
Function insert(p As Integer, k As Integer) As Integer
Dim j As Integer, t As Integer, last As Integer
j = p + 1: b(j) = k
Do While _____

t = b(j): b(j) = b(j - 1): b(j - 1) = t

j = j - 1

Loop
last = ____③
If last > num Then

If df(b(last)) <> df(b(last - 1)) Then last = last - 1

If df(b(num)) <> df(b(num + 1)) Then last = num

End If
insert = last
End Function