【加试题】Excel 筛选功能中，有一种筛选方式是筛选出最大或最小的n项．当数据项中有相同项时，筛选出来的数据条数则可能会超过设定的项数，如图1所示，设置筛选条件为最大的5项，由于有4 个“87”的值并列第四，因此最后筛选结果就有7 条，而不应该是5条．

现利用VB 编写一个类似功能的程序．功能如下：数组xh、kh 和cj 分别存储了序号、考号和成绩数据，窗体加载时，序号、考号和成绩显示在列表框list1中．在文本框Text1中输入数值N，点击“筛选”按钮，可以将成绩最大的前 N 项筛选出来，并按由大到小的顺序显示在列表框list2 中．程序运行界面如图2所示．
    实现上述功能的VB代码如下，但加框处代码有错，请改正．
Dim num As Integer
Dim xh（1 To 1000）As String
Dim kh（1 To 1000）As String
Dim cj（1 To 1000）As Integer
Private Sub Form_Load（　　）
’本过程从数据库中将序号、考号、成绩分别存入
数组 xh、kh、cj 中，并将人数赋值给了 num
’代码略
End Sub
Private Sub Command1_Click（　　）
Dim N As Integer,i As Integer,j As Integer
Dim t1 As String,t2 As Integer
N=Val（Text1．Text）
List2．Clear
For i=1 To N
k=i

If cj（k）＜cj（j） Then k=j
Next j
If k＜＞i Then
t1=xh（i）：xh（i）=xh（k）：xh（k）=t1
t1=kh（i）：kh（i）=kh（k）：kh（k）=t1
t2=cj（i）：cj（i）=cj（k）：cj（k）=t2
End If
List2．AddItem xh（i）+““+kh（i）+““+Str（cj（i））
Next i
’以下代码是处理可能存在的重复项
For i=N+1 To num

List2．AddItem xh（i）+““+kh（i）+““+Str（cj（i））
End If
Next i
End Sub.