![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
排序算法演示
以动画形式演示排序算法
ggggwhw
这个作者很懒,什么都没留下…
展开
-
快速排序法过程演示
'Excel宏代码原创分享,转发请注明来源,作者:王欢为,WX:13772568903。功能:演示快速排序法的排序过程。特点:1.演示的过程实际上也是排序的过程,既能看到数字排序的过程,同时也能看到色块排序的过程。特点:2.用来排序的数字的多少,数字的分布可以手动设置,也可以随机设置。做到随心测试。操作:在Sub Yanshi1()中修改参数后(如果不想修改也可以不修改),点击运行,然后就可以在当前工作表中观看动画过程了。Dim Hang1&, Hang2&, Li..原创 2021-09-07 22:09:39 · 128 阅读 · 0 评论 -
演示冒泡法排序过程 (2)
'Excel宏代码原创分享,转发请注明来源,作者:王欢为,WX:13772568903。功能:演示冒泡法排序过程(2)。此过程相对于前一个演示,稍微修改了一些,眼睛看着会感觉效率提高了,真正运行起来,感觉效率并不会提高太多,只有当大数基本上处于原数列后方的时候,效率才会明显提高。比如:原数列就是已经排好的数列,或者极少的数字是没有排好的,这时候用今天演示的这个方法,速度会明显提升。改进的原理:将所有数据分为三段,最下面1个数字称作淤泥,其它位置的数据称作水;步骤1:比较淤泥的最上层和水的最.原创 2021-09-04 20:50:57 · 149 阅读 · 0 评论 -
演示冒泡法排序(升序排列)
Sub main() Dim Hang1&, Hang2&, Lie1&, Time1# Lie1 = 3 Hang1 = 3 Hang2 = 20 Time1 = 0.01 Call CCyunxing(Hang1, Hang2, Lie1, Time1)End SubSub CCyunxing(Hang1&, Hang2&, Lie1&, Time1#) Cells.Delete Cel.原创 2021-09-04 15:36:54 · 234 阅读 · 0 评论