学进去

（加试题）某次考试考生的编号、姓名和成绩保存在数据库中。现按考生人数的20%录取，由于相同分数可能有多名考生，找出最接近考生总人数20%比例的考生的成绩，作为录取分数。小吴为此编写了VB程序，程序运行时，界面如图所示：

单击“计算"按钮Commandl后，在文本框Text1中输出运行结果。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim n As Integer       ’存储考生总人数
Dim bh (3000) As String，cj(3000) As Single   ’存储考生编号和成绩
Private Sub Form_Load( )
’本过程从数据库中读取每位考生的编号及成绩，编号存储在数组bh中，成绩存储在数组cj中，然后按成绩从高分到低分排序，并显示在列表框List1中。
’代码略
End Sub；
Private Sub Commandl_Click(     )
Dim i As Integer，j As Integer
Const bl As Single = 0.2       ’设定的录取比例20%
Dim min As Single           ’当前人数比例与设定比例差值的绝对值的最小值
min=bl
For i = 1 To n-l
If__ Then                     ’(1)
If  Abs (i/n-bl) < min Then
min = Abs (i/n-b1)
___             ’(2)
End If
End If
Next i
Textl.Text = Str(cj(j))
End Sub