复制代码 代码如下:

dim a,b,c

a =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")

b =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")

c =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")

if not(IsNUmberic(a) and IsNUmberic(b) and IsNUmberic(c)) then

msgbox "不乖哦>_<"

else

if a<b then

d=b

b=a

a=d

end if

if c>b then

d=b

b=c

c=a

end if

if a<b then

d=b

b=a

a=d

end if

msgbox a & " " & b & " " & c

end if

由于楼主只是三个数,所以不用复杂的冒泡排序法来排序,直接三个数比较就行了!tjoy7d的方法就是所谓的冒泡排序法,虽然代码简单,但是实际上电脑执行起来要循规很多次,运行速度会受到影响!