VB 数据排序

Public Sub SortArray(pArray, Optional Col As Integer = -1)
    Dim i As Integer, j As Integer
    Dim temp
    Dim m As Integer
   
    If Col < 0 Then
        For i = LBound(pArray) To UBound(pArray) - 1
            For j = UBound(pArray) To i + 1 Step -1
                If pArray(j) < pArray(j - 1) Then
                    temp = pArray(j)
                    pArray(j) = pArray(j - 1)
                    pArray(j - 1) = temp
                End If
            Next j
        Next i
    Else
        For i = LBound(pArray, 1) To UBound(pArray, 1) - 1
            For j = UBound(pArray, 1) To i + 1 Step -1
                If pArray(j, Col) < pArray(j - 1, Col) Then
                    temp = pArray(j, Col)
                    pArray(j, Col) = pArray(j - 1, Col)
                    pArray(j - 1, Col) = temp
                End If
            Next j
        Next i
    End If
End Sub