VB业界最快的Sorting大比拼

loquat

@仙剑魔  请看我的工程，应该Debug.Print不会影响执行时间吧。
@menglv 关于代码的正确性，其实很简单，在他的过程里排完之后再循环对比一下即可。
arr(i) <= arr(i+1)

menglv

If VerifyResults Then FillArray ArrVerify, FillMode: ShellSort ArrVerify, 0, UBound(ArrVerify) '这个排序结果是正确的

If VerifyResults Then For i = 0 To UBound(Arr): Debug.Assert Arr(i) = ArrVerify(i): Next  '这句是验证数据的正确性，不对会暂停程序，并显示数据

bucketsort排序

loquat

@仙剑魔
没想到你的算法编译后这么强大，特别是QSort2，基本都已经赶超msvcrt了
不过主要是我平时应用VB都是在VBA IDE环境，不像vb6，可以编译优化。

menglv

经测试，在vc环境里qsort也是跟vb的那个call qsort速度差不多，而且编译成debug还更慢了一点点。
int cmp(const void *x,const void *y)
        {
                return *(int*)x-*(int*)y;
        }
qsort(a,200000,sizeof(a[0]),cmp);

耗时403毫秒，而vb的那个是363毫秒.
编译成release后速度有比较大的提升296ms。

不过这个qsort好像并不是msvcrt.qsort
成功用vc调用msvcrt.qsort成功，速度跟上面的qsort是一样的，但是反汇编的代码不一样。

明天试试vb+asm调用msvcrt.qsort看看。

loquat

menglv 发表于 2015-5-28 13:09
经测试，在vc环境里qsort也是跟vb的那个call qsort速度差不多，而且编译成debug还更慢了一点点。
int cmp( ...

打算还优化一下？