递归排序20个数字出错
VBS脚本如下:
dim numbers(20)'保存20个数字的数组
for i=0 to 19
numbers(i)=inputbox("请输入第" & i+1 & "个要排序的数","数据录入")
next
sort(20)
msgbox "从大到小依次为:" & join(numbers,",")
sub sort(n) '对前n个数排序由大到小排序,使用递归
if n>2 then
sort(n-1) '排序前n-1个数
t=numbers(n-1)
for i=0 to n-2 '将第n个数插入到前n-1个数的恰当位置
if t>numbers(i) then
for i2=n-1 to i+1
numbers(i2)=numbers(i2-1)
next
numbers(i)=t
exit for
end if
next
else
if numbers(1)>numbers(0) then
t=numbers(1)
numbers(1)=numbers(0)
numbers(0)=t
end if
end if
end sub
结果不正常,求指正错误。 --------------------编程问答-------------------- 看看我的这个范例:
VB源码:查询文件并对查询出来的结果进行排序
补充:VB , 基础类