学进去

某同学编写了一段模仿 Excel 的 Rank 排位函数 VB 程序，运行界面如图。 程序功能如下：程序运行后 先自动生成 1000 个取值范围在 [1, 100]的随机数（保留两位小数） 并显示在 List1 中，在 Text1 和 Text2 中输入排序范围的起始位置和结束位置，在 b(i)中存储 a(i) 在该范围中的排位，并输出排位到列表框 List2, 实现上述功能的 VB 程序如下，但加框处代码 有错，请改正。
Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load()
Randomize '生成 1000 个随机数 For i = 1 To 1000
   a(i) = ((Rnd * 99 + 0.05) * 1000 \ 10) / 100 + 1   '产生随机数，保留二位小数
b(i) = 1                                          '初始排位为 1
  List1.AddItem "a(" & i & ")=" & a(i) Next i
End Sub
Private Sub Command1_Click()
Dim ks As Integer, js As Integer ks = Val(Text1.Text) 
js = Val(Text2.Text) For i = ks To js
For j = ks To js
    If a(j) < a(j-1) Then b(i) = b(i) + 1
Next j
List2.AddItem "a(" & i & ")" & "在 a(" & ks & ")~a(" & js & ")中排位为" & b(i) Next i
End Sub