某人編寫(xiě)了一個(gè)VB程序?qū)σ唤M隨機(jī)數(shù)進(jìn)行排名．程序運(yùn)行時(shí)，產(chǎn)生10個(gè)隨機(jī)整數(shù)，并在列表框List1中顯示，單擊按鈕Command1，在列表框List2中顯示降序排序后數(shù)據(jù)及名次，若數(shù)值相同則名次相同．實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Const　n=10
Dim　d（1 To  n）As　Integer,pm（1 To n）As　Integer
Private　Sub　From_-Load（　?。?br />'代碼略，本過(guò)程功能：產(chǎn)生10個(gè)隨機(jī)整數(shù)，存儲(chǔ)在數(shù)組變量d中并在列表框'List1中顯示
End　Sub
Private　Sub　Command_Click （　?。?br />   Dim  i　As　Integer,j　As　Integer,k　As　Integer,t  As　Integer
   i=1
   Do　While  i＜=n-1
       k=i
       For　j=i+1 To n
          IfThen  k=j'（1）
          Next　j
          If  i＜＞k  Then  t=d（i）：d（i）=d（k）：d（k）=t
          i=i+1
     Loop
     pm（1）=l
     For　i=2 To n
          IfThen'（2）
               pm（i）=i
           Else
               pm（i）=pm（i-1）
            EndIf
      Next  i
      For　i=1  To n
           List2．AddItemStr（i）+““+Str（d（i）））+““+“第“+Str（pm（i）））+“名“
      Next i
End　Sub
（1）處應(yīng)改為

d（j）＞d（k）

d（j）＞d（k）

；
（2）處應(yīng)改為

d（i）＜＞d（i-1）

d（i）＜＞d（i-1）

．