查看: 313  |  回复: 0
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

运行结果是:

具体代码只能由VIP查看,请升级

差距好大!顺便说下ListBox控件排序法如果List1的Sorted选False就是31毫秒,但是没排序。

如果dblMax = 10000变成到100000,冒泡排序法就感觉要死机了。

您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com