急！请帮我看看这个排序～

先把前半段的代码贴出来～
Private Sub Form_Click()
 Const m = 10, n = 6
 Dim data(m, n + 1) As Integer, i%, j%, k%, temp%
 Randomize Timer
 For i = 1 To m
 data(i, 0) = 1000 + i
 'Print data(i, 0)
 Next i
 For i = 1 To n
 data(0, i) = i + Asc("A") - 1
 Print Tab(8 * i); Chr(data(o, i));
 Next i
 Print
 For i = 1 To m
 For j = 1 To n
 data(i, j) = 60 + 40 * Rnd
 'Print Spc(4); data(i, j),
 Next j
 'Print
 Next i
 
 For i = 1 To m
 For j = 1 To n
 data(i, n + 1) = data(i, n + 1) + data(i, j)
 'Print data(i, n + 1);
 'Print
 Next j
 Next i
 
 For i = 1 To m
 For j = 0 To n + 1
 Print Tab(8 * j); data(i, j);
 Next j
 Print
 Next i

End Sub

总分降序排列,要用选择法
输出排序后的每个学生的Ｎ门课程成绩和总分

我连只排总分都成问题~~~
排了半天排不�

搞定了~
贴上来给其他同胞看看~
Private Sub Form_Click()
 Const m = 10, n = 6
 Dim data(m, n + 1) As Integer, i%, j%, k%, t%
 Randomize Timer
 For i = 1 To m
 data(i, 0) = 1000 + i
 Next i
 For i = 1 To n
 data(0, i) = i + Asc("A") - 1
 Next i
 
 For i = 1 To m
 For j = 1 To n
 data(i, j) = 60 + 40 * Rnd
 Next j
 Next i
 
 For i = 1 To m
 For j = 1 To n
 data(i, n + 1) = data(i, n + 1) + data(i, j)
 Next j
 Next i
 
 For i = 1 To n
 Print Tab(8 * i + 1); Chr(data(0, i));
 Next i
 Print
 
 For i = 1 To m
 For j = 0 To n + 1
 Print Tab(8 * j); data(i, j);
 Next j
 Print
 Next i

For i = 1 To 80
 Print "-";
Next i
Print

For i = 1 To 9
 For j = i + 1 To 10
 If data(i, n + 1) < data(j, n + 1) Then
 For k = 0 To n + 1
 t = data(i, k)
 data(i, k) = data(j, k)
 data(j, k) = t
 Next k
 End If
 Next j
Next i


 For i = 1 To n
 Print Tab(8 * i + 1); Chr(data(0, i));
 Next i
 Print
 
For i = 1 To m
 For j = 0 To n + 1
 Print Tab(8 * j); data(i, j);
 Next j
 Print
 Next i
End Sub