学进去

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

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

'人员编号和笔试成绩分别存储到数组变量 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 ___ 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 =___

j=num+1

Do while j<=n

If  Then Exit Do

j=j+1

Loop

For k=_____

List2.AddItem Str(k) + " " + id(k) + " " + Str(score(k))

Next k

End Sub