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

[ Last edited by s11ss on 2007-10-17 at 09:41 PM ]

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

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

谢了,sonicandy兄.

别客气,再推荐给你一个IDE: http://www.vbsedit.com/