【加試題】如圖a所示，在Excel中使用Rank函數(shù)可以快速地返回一個(gè)數(shù)字在數(shù)字列表中的排位，而且是同分同名次，非常方便．小明想用VB編寫一個(gè)程序來實(shí)現(xiàn)類似Rank排名次的功能，程序運(yùn)行時(shí)，隨機(jī)產(chǎn)生10個(gè)[60，100]之間的隨機(jī)數(shù)，并顯示在列表框List1中，單擊“排名”按鈕Command1，在列表框List2中輸出數(shù)據(jù)及其排名，程序運(yùn)行界面如圖b所示．

實(shí)現(xiàn)上述功能的VB程序如下，代碼加框處有錯(cuò)，請改正．
加框①處代碼應(yīng)改為：

a（i）＞=a（j）

a（i）＞=a（j）

；加框②處代碼應(yīng)改為：

b（i）=n+1

b（i）=n+1

．
Dim a（1 To 10）As Integer'存放原始數(shù)據(jù)
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 n=n+1'①

       Next j'②
   Next i
   For i=1 To 10
       List2．AddItem a（i） &““& b（i）
   Next i
End Sub
Private Sub Form_Load（　?。?br />'隨機(jī)產(chǎn)生10個(gè)[60，100]之間的隨機(jī)數(shù)，并顯示在List1中，代碼略
End Sub.