{已解决} vbs直接插入排序 - 中国DOS联盟论坛

请达人指教,问题出在哪儿:

s=inputbox("以空格隔开：","请输入一组数：","10 17 2007 1 30")
if s="" then wscript.quit
r=split(s, " ", -1, 1)
x=ubound(r)
for i=1 to x step 1
	t=r(i)
	j=i-1
	do while t<r(j)
		r(j+1)=r(j)
		j=j-1
		if j=-1 then exit do
	loop
	r(j+1)=t
next
msgbox join(r," ")

[ Last edited by s11ss on 2007-10-17 at 04:03 PM ]

2007 换成20 30 31 301试一试
我也不知道怎么解决
呵呵.....

//do while t<r(j)

这里的比较是以字符型（根据ASCII码的大小）进行的，并没有像我们想象的那样以整型的方式进行，呵呵。

Originally posted by HAT at 2007-10-17 03:49 PM:
//do while t<r(j)

这里的比较是以字符型（根据ASCII码的大小）进行的，并没有像我们想象的那样以整型的方式进行，呵呵。

在HAT兄提醒之前,我就意识到了这个问题,呵呵,还是谢谢你,达人啊!

现在修改了,成功!代码如下:

''''''''	直接插入排序	''''''''
''''''''  s11ss 2007-10-17  ''''''''

'接受输入：
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

'直接插入排序：
for i=1 to x
	t=r(i)
	j=i-1
	do while t<r(j)
		r(j+1)=r(j)
		j=j-1
		if j=-1 then exit do
	loop
	r(j+1)=t
next

'输出结果：
inputbox vbcrlf&vbcrlf&"按升序排列是：",,join(r," ")

第1楼　s11ss	发表于 2007-10-17 15:09
银牌会员　发帖 566　积分 2,098
{已解决}[求助]vbs直接插入排序请达人指教,问题出在哪儿: s=inputbox("以空格隔开：","请输入一组数：","10 17 2007 1 30") if s="" then wscript.quit r=split(s, " ", -1, 1) x=ubound(r) for i=1 to x step 1 t=r(i) j=i-1 do while t<r(j) r(j+1)=r(j) j=j-1 if j=-1 then exit do loop r(j+1)=t next msgbox join(r," ") [ Last edited by s11ss on 2007-10-17 at 04:03 PM ]

第2楼　scriptor	发表于 2007-10-17 15:15
银牌会员　发帖 555　积分 1,187
2007 换成20 30 31 301试一试我也不知道怎么解决呵呵.....

第3楼　HAT	发表于 2007-10-17 15:49
版主　发帖 5,017　积分 9,023
//do while t<r(j) 这里的比较是以字符型（根据ASCII码的大小）进行的，并没有像我们想象的那样以整型的方式进行，呵呵。

第4楼　s11ss	发表于 2007-10-17 15:59
银牌会员　发帖 566　积分 2,098
Originally posted by HAT at 2007-10-17 03:49 PM: //do while t<r(j) 这里的比较是以字符型（根据ASCII码的大小）进行的，并没有像我们想象的那样以整型的方式进行，呵呵。在HAT兄提醒之前,我就意识到了这个问题,呵呵,还是谢谢你,达人啊! 现在修改了,成功!代码如下: '''''''' 直接插入排序 '''''''' '''''''' s11ss 2007-10-17 '''''''' '接受输入： 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 '直接插入排序： for i=1 to x t=r(i) j=i-1 do while t<r(j) r(j+1)=r(j) j=j-1 if j=-1 then exit do loop r(j+1)=t next '输出结果： inputbox vbcrlf&vbcrlf&"按升序排列是：",,join(r," ")