学进去

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

请回答下列问题：
（1）若要清空列表框List1，能实现该功能的语句是_________（单选，填字母：A. List1. Caption ＝ "" / B. List1.Text ＝ "" / C. List1. Clear）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Const m ＝ 20         ’m表示申请人个数
Dim id（m）As Integer，qa（m）As Integer，qb（m）As Integer
Private Sub Command1_Click（）
Dim i As Integer j As Integer，k As Integer，t As Integer，max As Integer
Dim h As Integer，n As Integer   ’变量n存储满足条件一的申请人个数
Dim s As String
’读取全部申请人的编号、QA和QB值，分别存入数组id、qa和qb，代码略
h ＝ Val（Text1. Text）：n ＝ m
For i ＝ 1 To m — 1
k ＝ i
For j ＝ i ＋ 1 To m
If qa（j）＞ qa（k）Then k ＝ j
Next j
If  Then
If 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 ＝    ①
Exit For      ’Exit For表示退出循环
End If
Next i
’满足条件一的申请人信息显示在列表框Listl中，代码略
max ＝ 0：s ＝ “没有满足条件的组合”
’在满足条件的组合中，寻找QB值之和最大的组合，若有并列，只保留第一个
For i ＝ n To 2 Step — 1
j ＝ i — 1
Do While   ②
If qb（i）＋ qb（j）＞ max Then
s ＝ "组队结果：" ＋ Str（id（i）） ＋ "号，" ＋ Str（id（j）） ＋ "号"
___③
End If
j ＝ j — 1
Loop
Next i
Label1. Caption ＝ s
End Sub