数组升序

Question

下面是一个数组降序的程序。
  Ary(i) < Ary(j)改Ary(i) > Ary(j)就可改为升序数组。
请问各位大侠，你们还有什么更好方法。
  
Function Bubble_Sort(Ary)
   Dim aryUBound, i, j
   aryUBound = UBound(Ary)
   For ii = 0 To aryUBound
     Ary(ii) = Val(Round(Ary(ii), 2))
   Next ii
   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
   Bubble_Sort = Ary
End FunctionFunction Swap(a, b)
   Dim tmp
   tmp = a
   a = b
   b = tmp
End Function

Answer 1

如果数据量特别大，可以放入recordset中用sort方法排序，这是个取巧的办法，但大数量下效率比你这个高...