数组内数值的排序

抱着轮胎压马路

已于 2022-09-15 23:19:55 修改

阅读量375

点赞数

分类专栏： VBA 文章标签：算法数据结构经验分享

于 2022-09-15 22:56:51 首次发布

本文链接：https://blog.csdn.net/m0_73280369/article/details/126881362

版权

VBA 专栏收录该内容

12 篇文章 2 订阅

订阅专栏

Sub 数组内排序()
    Dim arr, i, j, t
    Rows(4).Clear
    arr = Application.Transpose(Application.Transpose([A1:I1]))
    For i = 1 To UBound(arr) - 1
        For j = 1 To UBound(arr) - 1
            If arr(j) > arr(j + 1) Then
                t = arr(j)
                arr(j) = arr(j + 1)
                arr(j + 1) = t
            End If
        Next j
    Next i
    Range("a4").Resize(1, UBound(arr)) = arr
End Sub
-------------------------------------------------------------------------------------------Sub 选择性升序排序()
    Dim arr, i, j, t, d
    d = Timer
    Rows(5).Clear
    arr = Application.Transpose(Application.Transpose([A1:Z1]))
    For i = 1 To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                t = arr(i)
                arr(i) = arr(j)
                arr(j) = t
            End If
        Next
    Next
    Range("a5").Resize(1, UBound(arr)) = arr
    MsgBox "耗时:" & Timer - d & "秒"
End Sub