学进去

某夏令营按两门考试科目总分从高分到低分依次录取学生。如果录取学生的最后一名出现有总分并列的情况，则并列的学生全部录取。编写VB程序实现以上功能，程序运行时在列表框List1中显示全部学生的信息，在文本框Text1中输入计划招生人数，点击“录取”按钮Command1后，在列表框List2中输出录取的学生信息，并在标签Label1上显示最终录取的人数。程序运行界面如图所示。

请回答下列问题：
(1)如图所示，按钮Command1上显示的“录取”是该按钮对象的_______（单选，填字母：A.对象名/B.属性名/C.方法名/D.属性值）
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
(3)程序中加框处代码有错，请改正________。
Cons tnum=15
Dim xm(num) As String
Dim km1(num) As Integer, km2(num)As Integer
Private Sub Form_Load()
'读取num个学生的姓名、科目1、科目2的成绩，分别存储到数组xm、km1、km2。'在列表框List1中输出所有学生的姓名与成绩，代码略。
End Sub
Private Sub Command1_Click()
Dim rs As Integer, count As Integer, flag As Boolean
Dim i As Integer, j As Integer, t As Integer, tmp As String
rs=Val(Text1.Text)
List2.AddItem"姓名科目1 科目2"
count=0:i=1
___
Do While And flag
For j=num-1 To i Step-1

If___Then

tmp=xm(j):xm(j)=xm(j+1):xm(j+1)=tmp
t=km1(j):km1(j)=km1(j+1):km1(j+1)=t
t=km2(j):km2(j)=km2(j+1):km2(j+1)=t

End If

Next j
flag=False
If i<=num Or km1(i)+km2(i)=km1(i-1)+km2(i-1)Then
count=i
flag=True
End If
i=i+1
Loop
For i=1 To count
List2.AddItemxm(i)+"    "+Str(km1(i))+"    "+Str(km2(i))
Next i
Label1.Caption="共录取学生"+___+"人"
End Sub