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

先把前半段的代码贴出来～
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

看不懂你在说什么?
重打一下你的要求.

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

你可以先按总分排一下,把它所对应的行值赋给一个数组,然后从下到下按数组里的值print原来行值, 就可以.
我忘了选择法怎么写的了,帮不了你了,书上应该有写法.

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

'这个是选择排序得vb描述！
Private Sub SelectionSort(A() As Long, ByVal N As Long)
 Dim Last, L As Long
 For Last = N - 1 To 1 Step -1
 L = IndexofLargest(A, Last + 1)
 Call Swep(A(L), A(Last))
 Next
End Sub
Private Function IndexofLargest(A() As Long, ByVal size As Long) As Long
 Dim IndexSoFar As Long
 IndexSoFar = 0
 Dim CurrentIndex As Long
 For CurrentIndex = 1 To size - 1
 If A(CurrentIndex) < A(IndexSoFar) Then
 IndexSoFar = CurrentIndex
 End If
 Next
 IndexofLargest = IndexSoFar
End Function
Private Sub Swep(x As Long, y As Long)
 Dim Temp As Long
 Temp = x
 x = y
 y = Temp
End Sub
'使用方法"
' Const N As Long = 4
' Dim B(N) As Long
' B(0) = 64
' B(1) = 234
' B(2) = 567
' B(3) = 75
' Call SelectionSort(B, 4)
' Dim I As Long
' For I = 0 To 3
' Debug.Print B(I)
' Next

汗~~~`看不太懂哦~
谢谢楼上

搞定了~
贴上来给其他同胞看看~
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