圆月山庄资源网 Design By www.vgjia.com
复制代码 代码如下:
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的方法就是所谓的冒泡排序法,虽然代码简单,但是实际上电脑执行起来要循规很多次,运行速度会受到影响!
标签:
vbscript,比较大小

圆月山庄资源网 Design By www.vgjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com