因特网上的代码与此相同。

函数排序（元）
昏暗的keepchecking，我，存在性和唯一性，secondvalue
keepchecking =真
直到keepchecking =假
keepchecking = false
我= 0，UBound（元）
如果我= UBound（元）然后退出
如果（i）的话（i + 1）
存在性和唯一性=元（我）
secondvalue =元（i + 1）
（我）= secondvalue元
元（i + 1）=存在性和唯一性
keepchecking =真
最后如果
下一个
环
排序=元
端功能

有一个错误。

为了测试它，你知道

S =11,3,1
s =排序（拆分（s，）
我= 0，UBound（S）
response.write S（我）
下一个

打印结果是

一

十一

三



正确的功能是：

函数排序（元）
CK =真
保持到false
CK = false
F = 0，UBound（的）1
如果CLng（元（F））> CLNG（元（+ 1））然后
V1 = CLNG（元（F））
V2 = CLNG（元（+ 1））
元（f）= V2
元（f + 1）= V1

CK =真
最后如果
下一个
环
排序=元
端功能

不同的是在CLng（）

但有趣的是，有些数组错误的排序函数是正确的。