VB6 冒泡排序法、快速排序法、ListBox控件法，子程序s_BubbleSort+s_QuickSort，排序速度比较2023年5月8日 00:00
这里给出冒泡排序发和快速排序法。
新建From1（窗体），新建Command1（按钮CommandButton），List1（ListBox）代码：
具体代码只能由VIP查看，请升级 。
新建modSort（模块 modSort.bas），代码：
具体代码只能由VIP查看，请升级 。
为了研究耗费时间，新建modTimeStampToStr（模块 modTimeStampToStr.bas），代码请参考《VB6 利用API获得时间戳精确到毫秒并计算开始和结束时间的差到天日时分秒毫秒，子程序 f_TimeStampToStr》
运行结果是：
2023/5/13 19:32:39 冒泡排序法：7秒281毫秒
2023/5/13 19:32:39 快速排序法：31毫秒
2023/5/13 19:32:47 ListBox控件排序法：7秒94毫秒
看来：快速排序法秒杀冒泡排序法。差距好大！顺便说下ListBox控件排序法如果List1的Sorted选False就是31毫秒，但是没排序。
如果dblMax = 10000变成到100000，冒泡排序法就感觉要死机了。
全部回复（0）