已知在數(shù)組 score 中存儲(chǔ)了某標(biāo)準(zhǔn)化建設(shè)學(xué)校（每班學(xué)生人數(shù)為 40 ）高三學(xué)生的第一次技術(shù)選考賦分成績(jī)，其中 score（1）存儲(chǔ)班級(jí)數(shù) class,score（2）開(kāi)始順序存儲(chǔ)1至 class 各班技術(shù)賦分成績(jī)。例score（2）-score（41）存儲(chǔ) 1班學(xué)生成績(jī)，score（42）-score（81）存儲(chǔ) 2 班學(xué)生成績(jī)。小李根據(jù)上述描述，設(shè)計(jì)了一個(gè)統(tǒng)計(jì)各班技術(shù)分?jǐn)?shù)段人數(shù)分布的VB 程序。單擊“統(tǒng)計(jì)”按鈕 Commandl,每個(gè)班級(jí)按分?jǐn)?shù)段統(tǒng)計(jì)人數(shù)，分?jǐn)?shù)段分為：40-49 分、50-59 分、60-69 分、70-79 分、80-89 分、90-99 分、100 分若干段。并在列表框 Listl 中顯示數(shù)組 score 各個(gè)元素的值，在列表框 List2 中顯示各班各個(gè)分?jǐn)?shù)段人數(shù)。程序界面如圖所示。

請(qǐng)回答下列問(wèn)題：
（1）若要清空列表框 Listl,能實(shí)現(xiàn)該功能的語(yǔ)句是

C

C

（單選，填字母）。
A.Listl.Caption=11 11/
B.Listl.Text=11 11 I
C.Listl.Clear
（2）實(shí)現(xiàn)各分?jǐn)?shù)段統(tǒng)計(jì)功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（3）程序中（*）處代碼有錯(cuò)，請(qǐng)改正。
Dim score（1 To 1000）As Integer
Dim class As Integer,n As Integer,m As Integer Private Sub Commandl _Click （　?。?br />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