标题: {已解决}[求助]vbs直接插入排序 [打印本页]
作者: s11ss 时间: 2007-10-17 15:09 标题: {已解决}[求助]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 ]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," ")
作者: scriptor 时间: 2007-10-17 15:15
2007 换成20 30 31 301试一试
我也不知道怎么解决
呵呵.....
作者: HAT 时间: 2007-10-17 15:49
//do while t<r(j)
这里的比较是以字符型（根据ASCII码的大小）进行的，并没有像我们想象的那样以整型的方式进行，呵呵。
作者: s11ss 时间: 2007-10-17 15:59
| Quote: | |
|
在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," ")
'''''''' 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," ")