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

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

C

C

（單選，填字母：A.List1.Caption=““/B.List1.Text=““/C.List1.Clear）。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
Constm=20’m表示申請人個數(shù)
Dimid（m）AsInteger,qa（m）AsInteger,qb（m）AsInteger
PrivateSubCommand1_Click （　?。?br />DimiAsIntegerjAsInteger,kAsInteger,tAsInteger,maxAsInteger
DimhAsInteger,nAsInteger’變量n存儲滿足條件一的申請人個數(shù)
DimsAsString
’讀取全部申請人的編號、QA和QB值，分別存入數(shù)組id、qa和qb,代碼略
h=Val（Text1.Text）：n=m
Fori=1Tom-1
k=i
Forj=i+1Tom
Ifqa（j）＞qa（k）Thenk=j
Nextj
IfThen
Ifk＜＞iThen
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
EndIf
Else
n=①
ExitFor’ExitFor表示退出循環(huán)
EndIf
Nexti
’滿足條件一的申請人信息顯示在列表框Listl中，代碼略
max=0：s=“沒有滿足條件的組合”
’在滿足條件的組合中，尋找QB值之和最大的組合，若有并列，只保留第一個
Fori=nTo2Step-1
j=i-1
DoWhile②
Ifqb（i）+qb（j）＞maxThen
s=“組隊結(jié)果：“+Str（id（i））+“號，“+Str（id（j））+“號“
③
EndIf
j=j-1
Loop
Nexti
Label1.Caption=s
EndSub