论坛 › 已解决问题区 › 看看下面的代码出来什么错误？

qinan1714 发表于 2009-9-3 15:29:14

看看下面的代码出来什么错误？

本帖最后由 qinan1714 于 2009-9-4 13:19 编辑

Dim $a,$b,$c
Dim $t
$a=InputBox("First Number","Input")
$b=InputBox("Second Number","Seconnd")
$c=InputBox("Third Number","Third")

If $a>$b Then
$t=$a
$a=$b
$b=$t

EndIf
If $a>$c Then
$t=$a
$a=$c
$c=$t
EndIf
If $b>$c Then
$t=$b
$b=$c
$c=$t


EndIf
MsgBox(0,"三个数排序","从小到大依次为："&$a&"，"&$b&"，"&$

一个很简单的问题比较三个数字大小，按照从小到大的顺序输出。
我输入了a=109,b=1008,c=110，怎么就出错了？输出的结果是1008，109，110。究竟是什么问题呢。

bing614 发表于 2009-9-3 16:19:34

#include<array.au3>
#include <_ArrayNaturalSort.au3>
Dim $number
Dim $t
$number=InputBox("First Number","Input",109)
$number=InputBox("Second Number","Seconnd",9008)
$number=InputBox("Third Number","Third",30)
_ArrayNaturalSort($number)
_ArrayDisplay($number,"从小到大排序")

顽固不化 发表于 2009-9-3 16:25:55

排序也需要动翻脑筋的，排序中有个“冒泡算法”，忘了。三个数还好说，如果有大量的数据没有个算法是不行的。

131738 发表于 2009-9-3 16:36:38

MsgBox(0,"三个数排序","从小到大依次为："&$a&"，"&$b&"，"&$    好像不对

MsgBox(0,"三个数排序","从小到大依次为："& $a &"，" & $b & "，" &$c )

另外,此法不可靠,有些情况下,脚本能达到效果, a=109,b=1008,c=110 这却不行!

建议使用数组试试看看......

qinan1714 发表于 2009-9-3 17:38:53

谢谢给的意见，我再看看，好好研究研究！

查看完整版本: 看看下面的代码出来什么错误？