VB 数据排序

最新推荐文章于 2021-06-25 01:03:55 发布

l3300

最新推荐文章于 2021-06-25 01:03:55 发布

阅读量1.4k

点赞数

分类专栏：工作文章标签： vb integer

本文链接：https://blog.csdn.net/l3300/article/details/1505621

版权

工作专栏收录该内容

2 篇文章 0 订阅

订阅专栏

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