为什么不会排序?
s=inputbox(vbcrlf&vbcrlf&"以空格隔开：","请输入一组数：","10 17 2007 15 40")
if s="" then wscript.quit
r=split(s," ")
x=ubound(r)
'把字符串转换为Double 子类型：
for i=0 to x
r(i)=cdbl(r(i))
next
'希尔排序：
'设置增量序列：
i=0
redim d(x)
d(i)=fix(x/2)
do until d(i)=1
t=d(i)
i=i+1
d(i)=fix(t/2)
loop
'设置哨兵：
'for i=0 to d(0)-1
' r(i)=-32767
'next
'开始排序：
k=0
do
h=d(k)
for i=h to n
t=r(i)
j=i-h
do while t<r(j)
r(j+h)=r(j)
j=j-h
if j<0 then exit do
loop
r(j+h)=t
next
k=k+1
loop while h<>1
inputbox vbcrlf&vbcrlf&"按升序排列是：","结果",join(r," ")
Last edited by s11ss on 2007-10-17 at 09:41 PM ]
