vb内部排序7大算法

版权声明：本文为CSDN博主「OrganicNeptune」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/OrganicNeptune/article/details/103652875

排序算法（以数组a(n)降序为例）

初始化变量值

Option Explicit
Const n = 8	'n为要排序数组元素个数
Dim a(1 To n + 1) As Integer 'a(n)为待排序数组
Dim temp(1 To n + 1) As Integer	'temp(n)在归并排序里会用到

定义交换函数（在以下所有代码块中都会用到）：

Private Sub Swap(a As Integer, b As Integer)
    Dim temp As Integer
    temp = a: a = b: b = temp
End Sub

1、冒泡排序（Bubble Sort）

1.0 性质总结

时间复杂度：

• 平均情况：O(n^2)
• 最好情况：O(n)
• 最坏情况：O(n^2)

空间复杂度：O(1)

稳定性：稳定

1.1 基本思想

重复的遍历待排序的数组，依次比较两个相邻的元素，若它们的顺序错误则调换位置，直至没有元素再需要交换为止。

1.2 具体步骤

1. 比较两个相邻元素，如果前一个比后一个大，则交换这两个相邻元素
2. 从头至尾对每一对相邻元素进行步骤1的操作，完成1次对整个待排序数字列表的遍历后，最大的元素就放在了该列表的最后一个位置上了
3. 对除最后一个元素的所有元素重复上述步骤，这第二次遍历后第二大的元素就也放在了正确的位置（整个列表的倒数第二位置上）
4. 不断重复上述步骤，每次遍历都会将一个元素放在正确的位置上，从而下次遍历的元素也会随之减少一个，直至没有任何一对数字需要比较

1.3 代码实现

Private Sub BubbleSort(n As Integer) 
    Dim i As Integer
    Dim J As Integer
    For i = 1 To n - 1
        For J = n To i + 1 Step -1
            If a(J) > a(J - 1) Then Call Swap(a(J), a(J - 1))
        Next J
    Next i
End Sub

1.4改进的冒泡排序

Private Sub ImprovedBubbleSort(n As Integer) 
    Dim i As Integer
    Dim J As Integer
    Dim Flag As Boolean
    For i = 1 To n - 1
        Flag = True
        For J = n To i + 1 Step -1
            If a(J) > a(J - 1) Then Call Swap(a(J), a(J - 1)): Flag = False