某夏令營按兩門考試科目總分從高分到低分依次錄取學(xué)生。如果錄取學(xué)生的最后一名出現(xiàn)有總分并列的情況，則并列的學(xué)生全部錄取。編寫VB程序?qū)崿F(xiàn)以上功能，程序運行時在列表框List1中顯示全部學(xué)生的信息，在文本框Text1中輸入計劃招生人數(shù)，點擊“錄取”按鈕Command1后，在列表框List2中輸出錄取的學(xué)生信息，并在標(biāo)簽Label1上顯示最終錄取的人數(shù)。程序運行界面如圖所示。

請回答下列問題：
（1）如圖所示，按鈕Command1上顯示的“錄取”是該按鈕對象的

D

D

（單選，填字母：A.對象名/B.屬性名/C.方法名/D.屬性值）
（2）實現(xiàn)上述功能的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

（　?。?/div>

（　?。?/div>
'讀取num個學(xué)生的姓名、科目1、科目2的成績，分別存儲到數(shù)組xm、km1、km2。'在列表框List1中輸出所有學(xué)生的姓名與成績，代碼略。
End Sub
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
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=“共錄取學(xué)生“+

str（count）或Str（i-1）

str（count）或Str（i-1）

+“人“
End Sub