学进去

某校将举行“希望杯”欢乐四项赛，比赛项目有跳绳、颠球、套圈、飞镖四项。团体   赛规则：每班由 2 名选手参加；每名选手参赛项目不限；每项每班由 1 名选手参赛；团体成绩为 4 项得分的总和。根据团体赛规则，为推选出最优组合参赛，班级制定了如下推荐办法：个人总分前 5 名入围，在入围的选手中依据单项得分之和最高推选两位选手组队参赛（若有多组符合要求，则选择编号靠前的选手组队）。
编写 VB 程序，实现选手推荐功能：单击“入围”按钮 Command1 后，将入围选手名单及成绩按总分降序显示在列表框 List1 中，然后单击“推荐”按钮 Command2，在标签Label1 中显示推荐结果，程序运行界面如图所示。

（1）要使窗体 Form1 标题显示“比赛选手推荐”，则需修改该窗体的_____属性。（单选， 填字母：A.Font /B.Caption /C.BackColor）
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。Const rs = 30 '初赛人数
Dim ts(rs) As Integer, dq(rs) As Integer, tq(rs) As Integer, fb(rs) As Integer Dim xm(rs) As String, zf(rs) As Integer, bh(rs) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, t As Integer
'读取选手姓名及四项比赛成绩，依次存入数组 xm、ts、dq、tq、fb，代码略
For i = 1 To rs
zf(i) = ts(i) + dq(i) + tq(i) + fb(i)
bh(i) = i
Next i
For i = 1 To rs - 1
k = i
For j = i + 1 To rs
If   ____ Then k = j
Next j
If k <> i Then t = bh(i): bh(i) = bh(k): bh(k) = t
If i > 5 And zf(bh(i)) < zf(bh(i - 1)) Then
n = ① ____
Exit For       'Exit For 表示退出循环End If
Next i
'按要求将入围选手显示在列表框 List1 中，代码略End Sub
Private Sub Command2_Click()
Dim smax As Integer, s As Integer, i As Integer, j As Integer Dim xs1 As String, xs2 As String
smax = 0
For i = 1 To n - 1   
For j = i + 1 To n
s = sum(bh(i), bh(j))
If s > smax Then
____②
xs1 = xm(bh(i))
xs2 = xm(bh(j))
End If
Next j
Next i
Label1.Caption = xs1 + " " + xs2
End Sub
Function sum(x As Integer, y As Integer) As Integer sum = 0
If ts(x) > ts(y) Then sum = sum + ts(x)
Else sum = sum + ts(y)
If dq(x) > dq(y) Then sum = sum + dq(x)
Else sum = sum + dq(y)
If tq(x) > tq(y) Then sum = sum + tq(x)
Else sum = sum + tq(y)
If fb(x) > fb(y) Then sum = sum + fb(x)
Else sum = sum + fb(y)
End Function