学进去

疫情期间，教师回校在教师宿舍隔离上网课，后勤人员连续一周轮流给教师送三餐。本校后勤人员共25人，每天安排2个人一起送餐，要求其中一名必须是年龄在40岁以下（包括40岁）的男后勤工作人员（本校符合该条件的后勤人员超过7个），另一名按如下规则进行安排：优先安排年轻的工作人员配送。每人最多安排一天的配送工作。
编写VB程序，根据后勤人员信息安排一周每天的送餐人。运行程序，在列表框List1中输出学校每个后勤人员的基本信息，单击“安排”命令按钮Command1，在列表框List2中显示每天的送餐人编号（编号是01,02,03,04，……，24,25）。程序运行界面如图a所示。

图a

请回答下列问题：
（1）要使程序运行时自动将窗体标题改为"三餐配送安排"，则语句Form1.Caption="三餐配送安排"应放在_______（单选，填字母：A.Form1_Load() / B.Form_Load() / C.Form1_Click() / D.Form_Click() ）事件处理过程中。
（2）实现上述功能程序代码如下，完善划线处语句。
（3）程序加框处代码有问题，请修改。
Dim num As Integer, bh(1 To 25) As String, xm(1 To 25) As String
Dim xb(1 To 25) As String, age(1 To 25) As Integer
Dim flag(1 To 25) As Boolean   '表示相应的员工是否已经被安排过配送任务
Dim zudui(1 To 7) As String '表示每天的配送人员组合
Private Sub Form_Load()
'从数据库中获取本校后勤人员所有信息，将编号、姓名、性别、年龄分别存入数组bh、xm、xb、age中，总人数在num变量中。并在list1中输出后勤人员信息。代码略。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer,
Dim k As Integer, t1 As String, t2 As Integer
k = 1
For i = 1 To num
If xb(i) = "男" And age(i) <= 40 Then

zudui(k) = bh(i)

flag(Val(bh(i))) = True

k = k + 1

If ______①_______   Then Exit For

End If
Next i
For i = 1 To 7
k = i
For j = i + 1 To num

If flag(j) = False Then

If Then k = j ______

End If

Next j
If k <> i Then

t1 = bh(k): bh(k) = bh(i): bh(i) = t1

t1 = xm(k): xm(k) = xm(i): xm(i) = t1

t1 = xb(k): xb(k) = xb(i): xb(i) = t1

t2 = age(k): age(k) = age(i): age(i) = t2

End If
_________②______________
zudui(i) = zudui(i) + bh(i)
List2.AddItem "第" + Str(i) + "天：" + Mid(zudui(i), 1, 2) + "   " + ______③_______
Next i
End Sub