这里给出冒泡排序发和快速排序法。

新建From1（窗体），新建Command1（按钮CommandButton），List1（ListBox）代码：

新建modSort（模块 modSort.bas），代码：

为了研究耗费时间，新建modTimeStampToStr（模块 modTimeStampToStr.bas），代码请参考《VB6 利用API获得时间戳精确到毫秒并计算开始和结束时间的差到天日时分秒毫秒，子函数 f_TimeStampToStr》

运行结果是：

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

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