某單位招聘人員，根據(jù)應聘人員的筆試成績從高到低取一定比例的人員進入面試，若按比例計算出的人數(shù)為小數(shù)，則直接取整（不四舍五入），若進入面試的最后1名有多個同分人員，同分人員也進入面試。程序運行界面如下，請完成后面的小題：
（1）程序運行時自動清空文本框Text1中顯示的內(nèi)容，應該在

A

A

事件處理過程執(zhí)行相關命令
A.Form_ load             B.Text1_Change             C.Command1_Click

（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正

score（j）＜score（j-1）

score（j）＜score（j-1）

。
'人員編號和筆試成績分別存儲到數(shù)組變量 id 和 score 中，應聘總人數(shù)存儲在變量n中面試比例在文本框Text1中輸入，所輸入比例值必須使面試人數(shù)大于1且小于n,代碼略。
Private Sub Command1_Click ____
Dim i As Integer'j As Integer,st As String,t As Integer
For i=1 To n-1'按筆試成績從高到低排序
k=i
For j=i+1 To n
If 

score（j）＞score（k）

score（j）＞score（k）

 Then k=j
Next j
If k＜＞i Then
st=id（k）：id（k）=id（i）：id（i）=st
t=score（k）：score（k）=score（i）：score（i）=t
End If
Next i
num=

Int（Val（Text1.jye.ai）*n/100）或Val（Text1.jye.ai）*n/100

Int（Val（Text1.jye.ai）*n/100）或Val（Text1.jye.ai）*n/100

j=num+1
Do while j＜=n
If  Then Exit Do
j=j+1
Loop
For k=

1 to j-1

1 to j-1

List2.AddItem Str（k）+““+id（k）+““+Str（score（k））
Next k
End Sub