根据申请人的QA和QB值，从m个申请人中挑选2人组队参加某挑战赛。条件一是2人的QA值都必须大于指定参数h；条件二是2人的QA值之差（较大值减较小值）小于h。在满足上述两个条件的所有2人组合中，挑选QB值之和最大的一个组合。（QA、QB和h的值均为正整数）
编写VB程序，实现上述挑选功能。运行程序，在文本框Text1中输入参数h后，单击“挑选”按钮Command1，在列表框List1中按QA值降序显示满足条件一的申请人信息，最后在标签Label1中显示组队结果。程序运行界面如图所示。

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

C

C

（单选，填字母：A.List1.Caption=““/B.List1.Text=““/C.List1.Clear）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Constm=20’m表示申请人个数
Dimid（m）AsInteger,qa（m）AsInteger,qb（m）AsInteger
PrivateSubCommand1_Click （　　）
DimiAsIntegerjAsInteger,kAsInteger,tAsInteger,maxAsInteger
DimhAsInteger,nAsInteger’变量n存储满足条件一的申请人个数
DimsAsString
’读取全部申请人的编号、QA和QB值，分别存入数组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表示退出循环
EndIf
Nexti
’满足条件一的申请人信息显示在列表框Listl中，代码略
max=0：s=“没有满足条件的组合”
’在满足条件的组合中，寻找QB值之和最大的组合，若有并列，只保留第一个
Fori=nTo2Step-1
j=i-1
DoWhile②
Ifqb（i）+qb（j）＞maxThen
s=“组队结果：“+Str（id（i））+“号，“+Str（id（j））+“号“
③
EndIf
j=j-1
Loop
Nexti
Label1.Caption=s
EndSub