快速排序法过程演示

最新推荐文章于 2023-04-02 21:06:09 发布
最新推荐文章于 2023-04-02 21:06:09 发布
阅读量128 收藏
点赞数
分类专栏： # 排序算法演示 文章标签： excel 算法 快速排序 排序
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ggggwhw/article/details/120168364
版权

 'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。

功能：演示快速排序法的排序过程。

特点：1．演示的过程实际上也是排序的过程，既能看到数字排序的过程，同时也能看到色块排序的过程。

特点：2．用来排序的数字的多少，数字的分布可以手动设置，也可以随机设置。做到随心测试。

操作：在Sub Yanshi1()中修改参数后(如果不想修改也可以不修改)，点击运行，然后就可以在当前工作表中观看动画过程了。 

Dim Hang1&, Hang2&, Lie1&, Zhenshu1#, Shoudong1&, Time1#, Cha1&
Sub Yanshi1()
    'Excel宏代码原创分享，转发请注明来源，作者：王欢为，WX：13772568903。
    '演示冒泡法进行排序的过程，演示的是升序排列过程。
    Lie1 = 7 '数据所在列号，可以手动修改，Lie1最小取7
    Hang1 = 3 '数据起始行号，可以手动修改，Hang1最小取3
    Hang2 = 20 '数据末尾列号，可以手动修改
    Zhenshu1 = 5 '每秒帧数，仅供参考，可以手动修改
    Shoudong1 = 0 '是否手动输入数据，1为手动，0为自动。
    '如果手动输入数据，需要先全选excel当前工作表，删除 _
    现有数据及背景，然后在Cells(Hang1,Lie1)和Cells(Hang2,Lie1) _
    之间的单元格输入数字，留空的单元格程序会随机补充 _
    0～255之间的数字。
    Call CCYanshikuaisupaixufa
End Sub
'以上为参数设置部分，其中Lie1最少为7， _
如果给的数字小于7，运行过程中会强制改为7。
Private Sub CCYanshikuaisupaixufa()
    If Shoudong1 = 0 Then
        Cells.Delete
    End If
    Cells.Borders.LineStyle = xlContinuous '设置边框
    Dim ii&, Num1#, Num2#, Num3#, Num4&, Row1&, Row2&
    If Lie1 < 7 Then
        Lie1 = 7
    End If
    If Hang1 < 3 Then
        Hang1 = 3
    End If
    Cha1 = 4
    Time1 = 1 / Zhenshu1
    Num1 = 8.8E+307
    Num2 = -8.8E+307
    For ii = Hang1 To Hang2
        If Len(Cells(ii, Lie1)) > 0 Then
            Num3 = Val(Cells(ii, Lie1))
        Else
            Num3 = Int(Rnd(Timer) * 256)
            Cells(ii, Lie1) = Num3
        End If
        If Num1 > Num3 Then
            Num1 = Num3
        End If
        If Num2 < Num3 Then
            Num2 = Num3
        End If
    Next ii
    If Num1 < Num2 Then
        Num3 = 255.99 / (Num2 - Num1)
        For ii = Hang1 To Hang2
            Num4 = Int(Num3 * (Cells(ii, Lie1) - Num1))
            Cells(ii, Lie1 - Cha1).Interior.Color = _
                RGB(255, 255 - Num4, Num4)
        Next ii
    Else
        For ii = Hang1 To Hang2 '设置单元格底色为紫色
            Cells(ii, Lie1 - Cha1).Interior.Color = RGB(255, 0, 255)
        Next ii
    End If
    Cells(1, Lie1 - Cha1) = "快速排序法排序演示"
    Cells(2, Lie1 - Cha1) = "作者：王欢为，13772568903"
    Row1 = Hang1
    Row2 = Hang2
    Call Quicksort(Row1, Row2)
    Cells(1, Lie1) = "已完成排序。"
End Sub
Private Sub Quicksort(ByVal Xuhao1&, ByVal Xuhao2&)
    Call CCdengdai(Time1)
    Cells(Xuhao1, Lie1).Interior.Color = RGB(255, 0, 255)
    Call CCdengdai(Time1)
    Cells(Xuhao2, Lie1).Interior.Color = RGB(0, 255, 0)
    Call CCdengdai(Time1)
    If Xuhao1 < Xuhao2 Then
        If Xuhao1 = Xuhao2 - 1 Then
            If Cells(Xuhao1, Lie1) > Cells(Xuhao2, Lie1) Then
                Call CCjiaohuan(Xuhao1, Xuhao2)
                Call CCdengdai(Time1)
            End If
            Range(Cells(Xuhao1, Lie1), Cells(Xuhao2, Lie1)).Interior.Color = RGB(122, 122, 122)
        Else
            Dim ii&, jj&, Flag1&, ceshi1#, Xuhao3%, Xuhao4%
            ii = Xuhao1
            jj = Xuhao2
            '以下2行是为了增加随机性，可以一并删除。
            Flag1 = Int(Rnd(Timer) * (Xuhao2 - Xuhao1)) + Xuhao1 '该行可以删除
            Cells(1, Lie1) = "在本轮排序的数中随机找一个作为中数。比如：" & Cells(Flag1, Lie1) & "。"
            Cells(Flag1, Lie1).Interior.Color = RGB(0, 255, 255)
            Call CCdengdai(Time1)
            Cells(1, Lie1) = "将中数" & Cells(Flag1, Lie1) & "换到本轮排序的数中第一个数" & Cells(Xuhao1, Lie1) & "的位置。"
            Call CCdengdai(Time1)
            Call CCjiaohuan(Flag1, Xuhao1) '将Flag1放到数组第一位。'该行可以删除
            Cells(Flag1, Lie1).Interior.Color = RGB(255, 255, 255)
            Cells(1, Lie1) = "向上寻找小数，即＜" & Cells(Xuhao1, Lie1) & "的数。"
            Do While ii < jj 'ii<jj表示本轮排序未完成
                '若Flag1放在Xuhao1位置，则先让jj向小变化； _
                若Flag1放在Xuhao2位置，则先让ii向大变化。
                Do While ii < jj And Cells(jj, Lie1) > Cells(Xuhao1, Lie1) 'jj继续向小变化寻找大数群的边界。
                    Cells(1, Lie1) = "向上寻找小数，即＜" & Cells(Xuhao1, Lie1) & "的数。"
                    Call CCdengdai(Time1)
                    Call CCxunzhao(jj, -1)
                    jj = jj - 1
                    If jj = ii Then
                        Cells(ii, Lie1).Interior.Color = RGB(0, 255, 255)
                        Call CCdengdai(Time1)
                    End If
                Loop
                Do While ii < jj And Cells(ii, Lie1) <= Cells(Xuhao1, Lie1) 'ii继续向大变化寻找小数群的边界。
                    Cells(1, Lie1) = "向下寻找大数，即≥" & Cells(Xuhao1, Lie1) & "的数。"
                    Call CCdengdai(Time1)
                    Call CCxunzhao(ii, 1)
                    ii = ii + 1
                    If ii > Xuhao1 Then
                        Cells(ii, Lie1).Interior.Color = RGB(0, 0, 255)
                        Cells(Xuhao1, Lie1).Interior.Color = RGB(255, 0, 0)
                    End If
                    If ii = jj Then
                        Cells(ii, Lie1).Interior.Color = RGB(0, 255, 255)
                    End If
                    Call CCdengdai(Time1)
                Loop
                If ii = jj Then 'ii=jj表示ii和jj现在的位置就是小数群和大数群的交界位置。
                    Cells(1, Lie1) = "将中数" & Cells(Xuhao1, Lie1) & "换到大数和小数交界位置。"
                    Call CCdengdai(Time1)
                    Call CCjiaohuan(ii, Xuhao1) '接着将Flag1放到小数和大数相交的ii位置。
                    Cells(ii, Lie1).Interior.Color = RGB(122, 122, 122)
                    Exit Do
                Else 'ii<jj表示此时，Arr1(ii),Arr1(jj)不满足前小后大关系，小数群和大数群有交叉。
                    Cells(1, Lie1) = "将小数换到上面，大数换到下面。"
                    Call CCdengdai(Time1)
                    Call CCjiaohuan(ii, jj) '交换Arr1(ii),Arr1(jj)这两个元素。
                End If
            Loop
            If ii > Xuhao1 Then
                Cells(1, Lie1) = "对" & Cells(Xuhao1, Lie1) & "到" & Cells(ii - 1, Lie1) & "之间的数排序。"
                Call CCdengdai(Time1)
                Call Quicksort(Xuhao1, ii - 1) '对小数群进行排序
            End If
            If ii < Xuhao2 Then
            Cells(1, Lie1) = "对" & Cells(ii + 1, Lie1) & "到" & Cells(Xuhao2, Lie1) & "之间的数排序。"
            Call CCdengdai(Time1)
            Call Quicksort(ii + 1, Xuhao2) '对大数群进行排序
            End If
        End If
        Range(Cells(Xuhao1, Lie1), Cells(Xuhao2, Lie1)).Interior.Color = RGB(122, 122, 122)
        Call CCdengdai(Time1)
    End If
    Range(Cells(Xuhao1, Lie1), Cells(Xuhao2, Lie1)).Interior.Color = RGB(122, 122, 122)
    Call CCdengdai(Time1)
End Sub
Private Sub CCjiaohuan(Row1&, Row2&)
    Dim Row3&, Row4&, Row5&
    If Row1 <> Row2 Then
        If Row1 < Row2 Then
            Row3 = Row1
            Row4 = Row2
        Else
            Row3 = Row2
            Row4 = Row1
        End If
        Call CCyidong(Row3, 0, Lie1, 1)
        If Row3 = Row4 - 1 Then
           Call CCyidong(Row4, -1, Lie1, 0)
        Else
            Call CCyidong(Row4, 0, Lie1, -1)
            Row5 = Row4 - 1
            Call CCdengdai(Time1)
            Call CCyidong(Row4, Row3 - Row4, Lie1 - 1, 0)
            Call CCyidong(Row3, 0, Lie1 - 1, 1)
        End If
        Row5 = Row3 + 1
        Call CCdengdai(Time1)
        Call CCyidong(Row3, Row4 - Row3, Lie1 + 1, 0)
        Call CCyidong(Row4, 0, Lie1 + 1, -1)
    End If
End Sub
Private Sub CCyidong(Row1&, Num1&, Col1&, Num2&)
    If Len(Cells(Row1, Col1)) > 0 Then
        Cells(Row1 + Num1, Col1 + Num2) = Cells(Row1, Col1)
        Cells(Row1, Col1) = ""
    End If
    'Cells(Row1 + Num1, Col1 + Num2).Interior.Color = Cells(Row1, Col1).Interior.Color
    'Cells(Row1, Col1).Interior.Color = RGB(255, 255, 255)
    Cells(Row1 + Num1, Col1 + Num2 - Cha1).Interior.Color = Cells(Row1, Col1 - Cha1).Interior.Color
    Cells(Row1, Col1 - Cha1).Interior.Color = RGB(255, 255, 255)
    Call CCdengdai(Time1)
End Sub
Private Sub CCxunzhao(Row1&, Num1&)
    Cells(Row1 + Num1, Lie1).Interior.Color = Cells(Row1, Lie1).Interior.Color
    Cells(Row1, Lie1).Interior.Color = RGB(255, 255, 255)
    Call CCdengdai(Time1)
End Sub
Private Sub CCdengdai(ds1#)
    Dim sTimer As Date
    sTimer = Timer
    Do While Format((Timer - sTimer), "0.00") < ds1
        DoEvents
    Loop
End Sub

快速排序法演示地址

https://v.youku.com/v_show/id_XNTgwNDA5OTIwMA==.html

ggggwhw
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
排序——简单的快速排序流程（带图例演示）
N_Peng的博客
08-18 1万+
快速排序（Quicksort），又称划分交换排序（partition-exchange sort），简称快排。它的原理和冒泡排序法一样都是用交换的方式，不过他会在数据中找到一个虚拟的中间值，把小于中间值的数据放在左边，把大于中间值的数据放在右边，再以同样的方式分别处理两边的数据，直到完成排序为止。 执行流程为： 先以第一个值为基准值，设置其索引为par,将这个值放入一个临时变量tmp中，防止在后...
快速排序算法动图演示及解析2021版（附Java代码实现）
qq_38082146的博客
04-06 8127
1、快速排序算法实现方式 快速排序的核心思想是分治法，分而治之。它的实现方式是每次从序列中选出一个基准值，其他数依次和基准值做比较，比基准值大的放右边，比基准值小的放左边，然后再对左边和右边的两组数分别选出一个基准值，进行同样的比较移动，重复步骤，直到最后都变成单个元素，整个数组就成了有序的序列。 简单概括如下： 从数列中挑出一个元素，称为 “基准”（pivot）; 重新排序数列，所有元素比基准值小的摆放在基准前面，所有元素比基准值大的摆在基准的后面（相同的数可以到任一边）。在这个分区退
六大排序算法：插入排序、希尔排序、选择排序、冒泡排序、堆排序、快速排序
热门推荐
HanMeng的博客
07-24 57万+
文章目录：1. 插入排序2.希尔排序 1. 插入排序 步骤： 1.从第一个元素开始，该元素可以认为已经被排序 2.取下一个元素tem，从已排序的元素序列从后往前扫描 3.如果该元素大于tem，则将该元素移到下一位 4.重复步骤3，直到找到已排序元素中小于等于tem的元素 5.tem插入到该元素的后面，如果已排序所有元素都大于tem，则将tem插入到下标为0的位置 6.重复步骤2~5 动图演示如下： 思路：   在待排序的元素中，假设前n-1个元素已有序，现将第n个元素插入到前面已经排好的序列中，使得前n个
超详细八大排序+基数排序（图文并茂+动图演示+C语言代码演示）
总结日常学习内容
04-02 2396
图文详解秒懂各大排序
快速排序（讲解＋动图直观过程）
张^老头的博客
03-11 2566
快速排序 必冒泡排序法更快的排序方法：快速排序` 该方法的基本思想是： 1．先从数列中取出一个数作为基准数。(一般为了方便通常取第一个） 2．分区过程，将比这个数大的数全放到它的右边，小于或等于它的数全放到它的左边。 3．再对左右区间重复第二步，直到各区间只有一个数 简言之：挖坑 + 分治 实现过程（第一部分）： ( i从前寻找比基准数大的，j从后寻找小的） 分成两个区间重复上面的过程。 总结： 1．i =str; j = end; 将基准数挖出形成第一个坑a[i]。 2．j- -由后向前找比它小的数，找
图解快速排序法
Gebo的博客
03-13 360
快速排序法介绍: 快速排序（Quicksort）是对冒泡排序的一种改进。 快速排序法基本思想 通过一趟排序将要排序的数据分割成独立的两部分，其中一部分的所有数据都比另外一部分的所有数据都要小，然后再按此方法对这两部分数据分别进行快速排序，整个排序过程可以递归进行，从而让整个数据变成有序序列。 快速排序法示意图: 代码演示： public class QuickSort { public ...
快速排序法
汪小祯
04-06 320
它的基本思想是： 通过一趟排序将要排序的数据分割成独立的两部分，其中一部分的所有数据都比另外一部分的所有数据都要小，然后再按此方法对这两部分数据分别进行快速排序，整个排序过程可以递归进行，以此达到整个数据变成有序序列。 假设我们有6个数 我们先以第一个数6为基准  比6小的在左边 比6大的在右边 我们采用双边扫描 2比6小 不动 10比6大 我们卡在这个位置 然后从另一边开始  2比6小 卡
快速排序算法演示(PPT).rar
11-27
PPT中的“快速排序演示”部分可能通过动画形式展示了这个过程，使得每一步的变化清晰可见，帮助学习者直观地理解算法的执行。同时，配合"快速排序.cpp"的源代码，可以进一步分析和调试算法，加深对快速排序逻辑的...
代码包_分治法快速排序法示例_
10-04
在这个"代码包_分治法快速排序法示例_"中，我们将深入探讨快速排序的工作原理、实现过程以及它在实际编程中的应用。 快速排序的基本步骤如下： 1. **选择基准元素**：首先，我们需要在待排序的数组中选择一个基准...
快速排序图形界面演示程序
11-17
在这个"快速排序图形界面演示程序"中，用户可以直观地看到快速排序的过程。GUI（图形用户界面）是软件与用户交互的主要方式，它使得用户可以通过鼠标和键盘等输入设备，以图形化的方式操作程序，大大提高了用户体验...
快速排序的动画演示（推荐）
03-10
快速排序动画演示，快速排序动画演示，快速排序动画演示。
七种排序算法动态演示软件
06-06
七种排序算法（插入、选择、冒泡、归并、希尔、快速、桶）演示软件，支持手动输入数据执行演示。
java实现快速排序演示
01-12
总之，这个Java实现的快速排序演示项目不仅提供了排序算法的实现，还考虑到了教育和演示的需求，通过可视化工具帮助用户更好地理解和学习快速排序的工作机制。通过深入研究这个项目，可以加深对快速排序以及分治策略...
快速排序演示视频.rar
08-23
在描述中提到的"快速排序演示视频.mp4"很可能是通过动画形式展示了这个过程，让观众能直观地理解快速排序的工作原理。这种视觉化的方式对于学习和教学排序算法非常有帮助，因为它能够清晰地展示数据如何在每一步中被...
【经典排序算法】快速排序法 (动图演示 + C 语言代码实现)
Sunnyside_
03-12 1187
【经典排序算法】快速排序法 (代码+动图演示) 文章目录【经典排序算法】快速排序法 (代码+动图演示)1、动图演示2、排序的思想3、代码实现4、三种分割方法4.1 hoare法4.2 挖坑法4.3 前后指针法 1、动图演示 2、排序的思想   快速排序算法的基本原理为通过一次排序将要排序的数据分割成独立的两部分，将序列分为两部分的中间数作为基准(par)，基准左边的数都要比基准右边的数要小，然后再按此方法对这两部分数据分别进行快速排序，整个排序过程可以递归进行，以此达到整个数据变成有序序列。   换
快速排序演示
叉叉不低头
04-15 1213
转自百度百科：https://baike.baidu.com/item/快速排序算法/369842?fr=aladdin#3_1 演示编辑 示例 假设用户输入了如下数组： 创建变量i=0（指向第一个数据）, j=5(指向最后一个数据), k=6(赋值为第一个数据的值)。 我们要把所有比k小的数移动到k的左面，所以我们可以开始寻找比6小的数，从j开始，从右往左找，不断递减变量j的值，我们找到第一个...
快速排序算法_算法（一）快速排序
weixin_39736913的博客
10-20 3198
今天给大家介绍一种平均速度最快的排序算法-----快速排序算法下面是一些常见算法的时间和空间复杂度假设我们现在对“6 1 2 7 9 3 4 5 10 8”这个10个数进行排序。首先在这个序列中随便找一个数作为基准数（不要被这个名词吓到了，就是一个用来参照的数，待会你就知道它用来做啥的了）。为了方便，就让第一个数6作为基准数吧。接下来，需要将这个序列中所有比基准数大的数放在6的右边，...
快速排序(动画示例)
weixin_42437295的博客
06-04 2万+
动图 由来 快速排序（Quicksort）是对冒泡排序的一种改进。 快速排序由C. A. R.Hoare在1960年提出。它的基本思想是：通过一趟排序将要排序的数据分割成独立的两部分，其中一部分的所有数据都比另外一部分的所有数据都要小，然后再按此方法对这两部分数据分别进行快速排序，整个排序过程可以递归进行，以此达到整个数据变成有序序列。 快速排序算法首先会在序列中随机选择一...
快速排序_演示过程(C语言)
小黯
03-28 736
快速排序 1.排序原理 任意取序列中的一个数据key值，分别从序列左右两边开始遍历，将小于key值的数据放在key值左边，将大于key的数据放在key值右边，于是我们得到一个以key值作为中间值的序列，然后我们利用递归思想在对key值左右俩个子序列分别重复以上操作，从而达到排序效果 排序过程如图 数组：num[5]={3,5,1,2,4} key=3 i=0 {[3],5,1,2,[4]}......
快速排序法算法C语言
最新发布
07-11
快速排序是一种高效的排序算法，它基于分治策略。其基本思想是选择一个元素作为“基准”（pivot），然后将数组分为两个部分：一部分的所有元素都...主函数`main()`演示了如何使用这些辅助函数来完成整个快速排序过程。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ggggwhw

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值