某校为学生期末考试分配考场，并编制准考证号。每个班级有班号，每位学生有班内序号，班内序号是按班级现有人数从1开始逐个编排的。准考证号格式为“入学年份+班号+班内序号”。每个考场有30个座位，座位号从1开始。连续分配座位的两个学生不属于同一个班级。
分配方法是：按考场号递增、同一考场座位号递增的顺序逐一分配座位。每次分配，先选班级，再选学生。选择班级时，在班级降序序列（按未分配人数）中选择第1个班级，但如果该班和前一次分配选定的班级相同，则改选第2个班级。选定班级后，再为该班未分配学生中序号最大的学生分配考场座位，并维护班级降序序列（按未分配人数）。
编写VB程序，实现考场分配功能：在文本框Text1中填写入学年份，单击“读取”按钮Commandl后，将各班数据按人数降序显示在列表框List1中，然后单击“分配”按钮Command2，在列表框List2中显示分配结果。程序运行界面如图所示。

请回答下列问题：
（1）下列对象中，有 Caption属性的是

A

A

（单选，填字母：A．Command 1/B．Text 1/C．List 1）。
（2）实现考场分配功能的VB程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim n As Integer,y As String
Dim cla（1 To 20）As Integer,num（I To 20）As Integer
Dim room As Integer'存储考场号
Dim seat As Integer'存储座位号
Function fm（k As Integer） As String
'返回整数k（1≤k≤99）对应的数字字符串，不足两位左侧补“0”，代码略
End function
Private Sub Command 1_ Click （　　）
'从Text l中读取入学年份存入变量y,从数据库中读取该入学年份的班级数据，
'将班级个数存入变量n（1＜n≤20），各班班号和人数分别存入数组ela和num,
'各班班号均大于0，各班人数均未超过总人数的一半，
'将数组cla和num按班级人数降序排列后，显示在List l中，代码略
End Sub
Private Sub Command 2_ Click （　　）
Dim i As Integer,t As Integer,s As Integer
Dim choice As Integer,m As Integer,f As Boolean
room=1：seat=1：choice=0
①
Do While f=True
If cla （1）＜＞choice Then m=1 Else m=2
choice=cla（m）
'在列表框List2中显示准考证号、考场号、座位号
List 2．Addltem y+fm（ela（m））+fm（num（m））+″″+fm（room）+″″+fm（seat）
seat=seat+1
If seat＞30 Then

seat=1
End If
num（m）=num（m）-1
For i=②To n-1'维护班级降序序列（按未分配人数）
If num（i）＜num（i+1）Then
t=num（i）：num（i）=num（i+1）：num（i+1）=t
s=ela（i）：ela（i）=ela（i+1）：ela（i+1）=s
Else
Exit For'ExitFor表示退出循环
End If
Next i
If③Then f=False
Loop
End Sub