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

请回答下列问题：
（1）如图所示，按钮Command1上显示的“录取”是该按钮对象的

D

D

（单选，填字母：A.对象名/B.属性名/C.方法名/D.属性值）
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正

i＜=rs或i＜rs+1或count＜rs

i＜=rs或i＜rs+1或count＜rs

。
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

flag=True

flag=True

Do While And flag
For j=num-1 To i Step-1
If

km1（j）+km2（j）＜km1（j+1）+km2（j+1）或者km1（j）+km2（j）＜=km1（j+1）+km2（j+1）

km1（j）+km2（j）＜km1（j+1）+km2（j+1）或者km1（j）+km2（j）＜=km1（j+1）+km2（j+1）

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=“共录取学生“+

str（count）或Str（i-1）

str（count）或Str（i-1）

+“人“
End Sub