已知在數組 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