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
        
  • 10
    点赞
  • 45
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值