数组排序问题：如何得到最高分与最低分？

[大可山人]

<%@ page language="VB" debug="true"%>
<Script Language="VB" Runat="Server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim Scores(4,3) As Integer
Scores(0, 0) = 85 : Scores(0, 1) = 90: Scores(0, 2) = 88: Scores(0, 3) = 88
Scores(1, 0) = 91 : Scores(1, 1) = 93: Scores(1, 2) = 90: Scores(1, 3) = 88
Scores(2, 0) = 77 : Scores(2, 1) = 86: Scores(2, 2) = 100: Scores(2, 3) = 88
Scores(3, 0) = 70 : Scores(3, 1) = 88: Scores(3, 2) = 65: Scores(3, 3) = 88
Scores(4, 0) = 73 : Scores(4, 1) = 82: Scores(4, 2) = 76: Scores(4, 3) = 88
'以上数组对应多个学生的各科成绩。

Dim I,J,temp As Integer
For I = 0 To UBound(Scores,1)
Response.Write("第" & I+1 & "个学生的总分为")
For J=0 To UBound(Scores,2)
temp=temp+Scores(I,J)
Next
Response.Write(temp.ToString & "<Br>")
temp=0
Next
End Sub
</Script>

我想得到某学生的单科最高分与最低分，还要得到所有学生的某科的最高分与最低分，如何实现？

[cmsoft]

设定一个最大分100，和最低分0
当比0大时就替换现在的，当比现在大的，也替换，否则不替换，这样最终会得到最大的

相反会得到最低分的

[暗石绿]

用冒泡法排序。

[大可山人]

ASP.net下有个System.Array.Sort(数组名)的排序方法，好像只支持一维数组，不知道支持或如何才能实现多维数组的排序。
一维数组时：
Dim Scores() As Integer={85,60,54,91,77,100,38}
system.Arrary.Sort(Scores)
Response.write("最高分是：" & Scores(6) & "<br>")
Response.write("最低分是：" & Scores(0) & "<br>")
多维数组呢？

[youngby]

偶写个存储过程给你。.....

[aquariusBoy]

存储过程？？？
expecting~~~~~~

[大可山人]

不知使用一定方法将多维数组改为一维数组然后排序，不知可行否？