某校每年都舉辦校園十佳歌手比賽，小明用VB編寫(xiě)了一個(gè)計(jì)分用的程序用于統(tǒng)計(jì)處理比賽成績(jī)，運(yùn)行界面如圖所示。
在輸入?yún)^(qū)域輸入選手編號(hào)和每位評(píng)委給該選手的打分后，單擊“計(jì)算平均得分”按鈕Command1，得到當(dāng)前選手的最終得分，并顯示在列表框List1中。所有選手的成績(jī)輸入完畢后，單擊“排名”按鈕Command2，在列表框List2中顯示按編號(hào)順序排列的選手得分及名次（若得分一樣，排名相同），再在列表框List3中顯示按名次順序排列的前十位選手的編號(hào)及得分。
實(shí)現(xiàn)上述功能的VB程序如下，代碼加框處有錯(cuò)，請(qǐng)改正。
Const rs=20'參賽總?cè)藬?shù)為20
Dim num（1 To rs）As Integer'存放選手編號(hào)
Dim se（1 To rs）As Double'存放選手得分
Dim rk（1 To rs）As Integer'存放選手名次
Private Sub Command1_Click（　?。?br />'計(jì)算每位選手的平均得分并顯示到列表框List1中，代碼略
End Sub
Private Sub Command2_Click（　?。?br />Dim i As Integer,j As Integer,me As Integer
    List2．Clear：List3．Clear
    For i=1 To rs
         mc=0
'①
                 If  sc（i）＜sc（j）   Then mc=mc+1
         Next j
'②
          Nxet i
          For i=1 To rs
          List2．AddItem num（i）&“號(hào)選手“&““&Format（Str（sc（i）），“00.00“）&““&rk（i）
          Nxet i
'在列表框List3中按名次順序顯示選手信息，代碼略
End Sub
加框①處的代碼應(yīng)改為：

for j=1 to rs

for j=1 to rs

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

rk（i）=mc+1

rk（i）=mc+1

。