1. (2021高二下·德清月考) 如图 a 所示，在 excel 中使用Rank函数可以快速地返回一个数字在数字列表中的排位，而且是同分同名次，非常方便。小明想用Vb编写一个程序来实现类似Rank排名次的功能，程序运行时，随机产生10个[60,100]之间的随机数，并显示在列表框List1中，单击“排名”按钮Command1，在列表框List2中输出数据及其排名，程序运行界面如图 b 所示。

1. （1） 随机产生[60,100]之间的随机数的代码为：
3. （2） 实现上述功能的 VB 程序如下，代码加框处有错，请改正。
5. （3） 划线处填入正确代码。

   Dim a(1 to 10) As Integer     ‘存储原始数据

   Dim b(1 to 10)As Integer    ‘存放名次

   Private Sub Command1_Click()

       Dim i As Integer, j As Integer, n As Integer

       For i=1 To 10 n=0

           For j=1 To 10

               If  Then

           Next j

       Next i

       b(i)= n

       For i= 1 to 10

           List2.Additem str(a(i))&“ ”&

       Next i

   End Sub

   Private Sub Form_Load()

   ‘随机产生 10 个[60,100]之间的随机数，并显示在 List1 中，代码略。

   End Sub