根據(jù)申請(qǐng)人的QA和QB值，從m個(gè)申請(qǐng)人中挑選2人組隊(duì)參加某挑戰(zhàn)賽。條件一是2人的QA值都必須大于指定參數(shù)h；條件二是2人的QA值之差（較大值減較小值）小于h。在滿足上述兩個(gè)條件的所有2人組合中，挑選QB值之和最大的一個(gè)組合。（QA、QB和h的值均為正整數(shù)）
編寫VB程序，實(shí)現(xiàn)上述挑選功能。運(yùn)行程序，在文本框Text1中輸入?yún)?shù)h后，單擊“挑選”按鈕Command1，在列表框List1中按QA值降序顯示滿足條件一的申請(qǐng)人信息，最后在標(biāo)簽Label1中顯示組隊(duì)結(jié)果。程序運(yùn)行界面如圖所示。

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

C

C

 （單選，填字母：A.List1.Caption=““/B.List1.Text=““/C.List1.Clear）。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（3）程序中（*）處代碼有錯(cuò)，請(qǐng)改正。
Const m=20‘m表示申請(qǐng)人個(gè)數(shù)
Dim id（m）As Integer,qa（m）As Integer,qb（m）As Integer
PrivateSubCommand1_Click （　?。?br />Dim i As Integer,j As Integer,k As Integer,t As Integer,max As Integer
Dim h As Integer,n As Integer’變量n存儲(chǔ)滿足條件一的申請(qǐng)人個(gè)數(shù)
Dim s As String
’讀取全部申請(qǐng)人的編號(hào)、QA和QB值，分別存入數(shù)組id、qa和qb,代碼略
h=Val（Text1.Text）：n=m
For i=1Tom-1
k=i
For j=i+1Tom
If qa（j）＞qa（k）Then k=j
Next j
Ifqa qa（i）＞h Then（*）
f k＜＞i Then
t=qa（i）：qa（i）=qa（k）：qa（k）=t
t=qb（i）：qb（i）=qb（k）：qb（k）=t
t=id（i）：id（i）=id（k）：id（k）=t
End If
Else
n=①

i-1

i-1

Exit For’ExitFor表示退出循環(huán)
End If
Next i
’滿足條件一的申請(qǐng)人信息顯示在列表框Listl中，代碼略
max=0：s=“沒(méi)有滿足條件的組合”
’在滿足條件的組合中，尋找QB值之和最大的組合，若有并列，只保留第一個(gè)
For i=n To 2 Step-1
j=i-1
Do While ②

j＞=1 and qa（j）-qa（i）＜h

j＞=1 and qa（j）-qa（i）＜h

If qb（i）+qb（j）＞max Then
s=“組隊(duì)結(jié)果：“+Str（id（i））+“號(hào)，“+Str（id（j））+“號(hào)“
③

max=qb（i）+qb（j）

max=qb（i）+qb（j）

End If
j=j-1
Loop
Next i
Label1.Caption=s
EndSub