已知在数组 score 中存储了某标准化建设学校（每班学生人数为 40 ）高三学生的第一次技术选考赋分成绩，其中 score（1）存储班级数 class,score（2）开始顺序存储1至 class 各班技术赋分成绩。例score（2）-score（41）存储 1班学生成绩，score（42）-score（81）存储 2 班学生成绩。小李根据上述描述，设计了一个统计各班技术分数段人数分布的VB 程序。单击“统计”按钮 Commandl,每个班级按分数段统计人数，分数段分为：40-49 分、50-59 分、60-69 分、70-79 分、80-89 分、90-99 分、100 分若干段。并在列表框 Listl 中显示数组 score 各个元素的值，在列表框 List2 中显示各班各个分数段人数。程序界面如图所示。

请回答下列问题：
（1）若要清空列表框 Listl,能实现该功能的语句是

C

C

（单选，填字母）。
A.Listl.Caption=11 11/
B.Listl.Text=11 11 I
C.Listl.Clear
（2）实现各分数段统计功能的 VB 程序如下，请在横线处填入合适的代码。
（3）程序中（*）处代码有错，请改正。
Dim score（1 To 1000）As Integer
Dim class As Integer,n As Integer,m As Integer Private Sub Commandl _Click （　　）
Dim num（1 To 7）As Integer
Dim result As String,rs As String,bj As String
列表框 List2 中输出第一行信息，代码略
①

class=score（1）

class=score（1）

n=class*40+1 For i=1 Ton
Listl.Addltem Str（score（i））Next i
For i=1 To 7
num（i）=0
Next i m=O
For i=2 Ton
x=score（i）\10（*）
num（x）=num（x）+1
If i Mod 40=1 Then
 ②

m=m+1；num（k）=0

m=m+1；num（k）=0

result=Str（m）+“班”
Fork=1 To 7
rs=Str（num（k））+“人”
result=result+rs Nextk
List2.Addltem result Fork=1 To 7
 ③

x=score（i）\10-3

x=score（i）\10-3

Nextk End If
Next i End Sub