某校每年都举办校园十佳歌手比赛，小明用VB编写了一个计分用的程序用于统计处理比赛成绩，运行界面如图所示。
在输入区域输入选手编号和每位评委给该选手的打分后，单击“计算平均得分”按钮Command1，得到当前选手的最终得分，并显示在列表框List1中。所有选手的成绩输入完毕后，单击“排名”按钮Command2，在列表框List2中显示按编号顺序排列的选手得分及名次（若得分一样，排名相同），再在列表框List3中显示按名次顺序排列的前十位选手的编号及得分。
实现上述功能的VB程序如下，代码加框处有错，请改正。
Const rs=20'参赛总人数为20
Dim num（1 To rs）As Integer'存放选手编号
Dim se（1 To rs）As Double'存放选手得分
Dim rk（1 To rs）As Integer'存放选手名次
Private Sub Command1_Click（　　）
'计算每位选手的平均得分并显示到列表框List1中，代码略
End Sub
Private Sub Command2_Click（　　）
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）&“号选手“&““&Format（Str（sc（i）），“00.00“）&““&rk（i）
          Nxet i
'在列表框List3中按名次顺序显示选手信息，代码略
End Sub
加框①处的代码应改为：

for j=1 to rs

for j=1 to rs

；加框②处的代码应改为：

rk（i）=mc+1

rk（i）=mc+1

。