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

A

A

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

（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（3）程序中加框處代碼有錯(cuò)，請(qǐng)改正

score（j）＜score（j-1）

score（j）＜score（j-1）

。
'人員編號(hào)和筆試成績(jī)分別存儲(chǔ)到數(shù)組變量 id 和 score 中，應(yīng)聘總?cè)藬?shù)存儲(chǔ)在變量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'按筆試成績(jī)從高到低排序
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