输入一个一维数组。
如果有需要可以直接在输入中添加其他输入量,例如索引之类的,也是同样的排序方法。
Private Function Sortnum(ByVal Mat() As Double)
Dim p As Double ‘中间变量
For i = 0 To Mat.Count - 2
For j = 0 To Mat.Count - i - 2
If Mat(j) < Mat(j + 1) Then
p = Mat(j)
Mat(j) = Mat(j + 1)
End If
Next
Next
Return Mat
End Function