vb.net 冒泡排序

输入一个一维数组。

如果有需要可以直接在输入中添加其他输入量，例如索引之类的，也是同样的排序方法。

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