<%
Dim MyArray
MyArray = Array(87, 89, 90, 92, 88, 83, 93, 91, 76, 87, 94)
Call Paixu(MyArray)
Response.Write "排名第一:" & MyArray(0) & "<br>"
Response.Write "排名第二:" & MyArray(1) & "<br>"
Response.Write "排名第三:" & MyArray(2) & "<br>"
Response.Write "倒数第三:" & MyArray(UBound(MyArray) -2) & "<br>"
Response.Write "倒数第二:" & MyArray(UBound(MyArray) -1) & "<br>"
Response.Write "倒数第一:" & MyArray(UBound(MyArray)) & "<br>"
%>
<%
Function Paixu(ary)
Dim aryUBound, i, j
aryUBound = UBound(ary)
For i = 0 To aryUBound
For j = i + 1 To aryUBound
If ary(i) < ary(j) Then
Swap ary(i), ary(j)
End If
Next
Next
End Function
Function Swap(a, b)
Dim tmp
tmp = a
a = b
b = tmp
End Function
%>
