学进去

某校新初一学生共288人，根据分班考成绩平行分成6个班。规则如下：首先对全年级学生按女生在前、男生在后，根据分班考试成绩降序排序，然后进行蛇形分班，如图a所示：

编写VB程序，实现上述平行分班功能。运行程序，单击“读学生成绩”按钮Cmd1，从数据库文件中读取学生的编号、姓名、性别、分班考成绩，分别保存在数组no、xm、xb、cj中，再单击“平行分班”按钮Cmd2，在列表框List1中输出分班结果。程序运行界面如图b所示。
请回答下列问题：
（1）若要清空列表框List1，能实现该功能的语句是(        )单选，填字母：
A． List1．Caption = "" / B． List1．Text = "" / C． List1．Clear）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。

Const num = 288, class = 6
Dim no(1 To num) As Integer' 编 号 no
Dim xm(1 To num) As String' 姓 名 xm
Dim xb(1 To num) As String' 性 别 xb
Dim cj(1 To num) As Single'分班考成绩 cj
Dim bj(1 To num) As Integer '分到班级 bj
Dim w As Integer'女生人数 w
Private Sub Cmd1_Click()
'从数据库文件中分别读取学生的编号、姓名、性别、分班考成绩，分别保存在数组 no、xm、xb、cj 中
'统计女生人数保存在 w 中，代码略
End Sub
Private Sub Cmd2_Click()
Dim i As Integer, j As Integer, k As Integer Dim t As Integer, c As String
For i = 1 To num - 1

______

For j = i To num - 1

'排序时，女生在前、男生在后降序排序，分班考成绩相同时不作特别处理

k = j

Next j

If k <>i Then

t = no(k): no(k) = no(i): no(i) = t

t = cj(k): cj(k) = cj(i): cj(i) = t

c = xm(k): xm(k) = xm(i): xm(i) = c

c = xb(k): xb(k) = xb(i): xb(i) = c

End If

Next i
j = 1: k = 1
For i = 1 To num

______

j = j + k

If i = w Then

j = 1: k = 1

If j = class + 1 Or j = 0 Then

_____

j = j + k

End If

Next i
List1．AddItem "班级姓名性别成绩"
For i = 1 To num

List1．AddItem Str(bj(i)) + "" + xm(i) + "" + xb(i) + "" + Str(cj(i))

Next i
End Sub
（3）程序中加框处代码有错，请改正______。