某单位招聘人员，根据应聘人员的笔试成绩从高到低取一定比例的人员进入面试，若按比例计算出的人数为小数，则直接取整（不四舍五入），若进入面试的最后1名有多个同分人员，同分人员也进入面试。程序运行界面如下，请完成后面的小题：
（1）程序运行时自动清空文本框Text1中显示的内容，应该在

A

A

事件处理过程执行相关命令
A.Form_ load             B.Text1_Change             C.Command1_Click

（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正

score（j）＜score（j-1）

score（j）＜score（j-1）

。
'人员编号和笔试成绩分别存储到数组变量 id 和 score 中，应聘总人数存储在变量n中面试比例在文本框Text1中输入，所输入比例值必须使面试人数大于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