题目

某单位招聘人员，根据应聘人员的笔试成绩从高到低取一定比例的人员进入面试，若按比例计算出的人数为小数,则直接取整（不四舍五入），若进入面试的最后1名有多个同分人员，同分人员也进入面试。程序运行界面如下，请完成后面的小题： （1） 程序运行时自动清空文本框Text1中显示的内容，应该在            事件处理过程执行相关命令 A . Form_load B . Text1_Change C . Command1_Click （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。 '人员编号和笔试成绩分别存储到数组变量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 （3） 程序中加框处代码有错，请改正 答案： A 【1】score(j)>score(k)【2】Int(Val(Text1.text)*n/100)或Val(Text1.text)*n\100【3】1 to j-1 score(j)<>score(num)   或 score(j)<score(num)或score(j)<>score(j-1)  或score(j)<score(j-1)

查看本题答案和解析