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

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