中国DOS联盟

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," ")