Board logo

标题: {已解决}[求助]vbs希尔排序 [打印本页]

作者: s11ss     时间: 2007-10-17 18:44    标题: {已解决}[求助]vbs希尔排序

为什么不会排序?
CODE:  [Copy to clipboard]
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 ]
作者: sonicandy     时间: 2007-10-17 21:30
        for i=h to n
这里的n没有定义,还是empty,改成x就可以了
提个建议:
使用option explicit,每个变量在使用前都定义一下,这样就可以防止打错变量名的情况发生了:)
作者: s11ss     时间: 2007-10-17 21:36


  Quote:
Originally posted by sonicandy at 2007-10-17 09:30 PM:
        for i=h to n
这里的n没有定义,还是empty,改成x就可以了
提个建议:
使用option explicit,每个变量在使用前都定义一下,这样就可以防止打错变量名的情况发生了:)

谢了,sonicandy兄.
作者: sonicandy     时间: 2007-10-17 21:39
别客气,再推荐给你一个IDE: http://www.vbsedit.com/




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5