学进去

为了提高群众的安全意识，需要从各个学校挑选志愿者做好防诈骗宣传。组委会从数据库中看到k（1<=k<=11）个不同的学校共上报了n（k<=n<=100）位志愿者。由于人数太多，为了快速决定志愿者人选，组委会决定从中选择一段连续的区间，这个区间内每个报名的学校至少包含1名志愿者，同时要求满足条件的区间长度最小，输出区间内的志愿者名单。
例如，有10条报名数据，来自5个不同的学校，学校编码依次是2，1，2，4，3，3，5，5，3，5，则包含5个学校的最短区间是从第2个到第7个，并从List2中显示所选区间中的志愿者姓名，程序界面如图所示。
（1）要使窗体Forml标题显示“选取志愿者”，则需修改该窗体的_____（单选，填字母：A.Text，,B.Caption/，C.Name（名称））属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。

Dim bm(1 To 100) As Integer, k As Integer
Dim xm(l To 100)As String, n As Integer
Private Sub Form_load()
‘本过程从数据库中读入指定数据到数组bm、xm中，并在List1中显示
‘获取k，表示不同学校数；n表示报名记录总数代码略
End Sub
Private Sub Command1_Click()
Dim m As Integer
i=k:j=n
Do While i<=j
m=_______
If judge(m)<>0 Then
j=m-1
ans=m:start=judge(m)
Else
i=m+1
End If
Loop
For i=1 To ans

Next i
Label1. Caption="共选出志愿者"+CStr(ans)+"人"
End Sub
Function judge(m As Integer) As Integer   ‘judge函数用于返回区间起始位置
Dim f(1 To 11)As Integer             ’f(i)表示i学校是否包含在区间
Dim t As Integer
judge=0
For i=1To n-m+1      ’枚举以i为起点的区间内是否包含各个学校
t=0
For j=i To i+m-1
If_____Then t=t+1
f(bm(j))=1
Next j
If t=k Then_____:Exit Function
For j=l To k
f(j)=0
Next j
Next i
End function
（3）程序中加框处代码有错，请改正_____。