王舒 汉坤律师事务所:vbscript 3个数比较大小

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的方法就是所谓的冒泡排序法,虽然代码简单,但是实际上电脑执行起来要循规很多次,运行速度会受到影响!

简单的写法来啦:)

<%
Dim k,l,r,x,v(10)
Dim i
v(0) = 11
v(1) = 22
v(2) = 15
v(3) = 16
v(4) = 90
For k=0 To 4
For r=k+1 To 4
If v(r) > v(k) Then
l=r
x=v(k)
v(k)=v(l)
v(l)=x
End If
Next
Next
For i=0 To 4
Response.Write v(i) & " "
Next
%>

上面的程序是5个数进行比大小,用了数组加两层循环,程序本身应该不难的,楼主可以参考一下,然后改为N个数比大小.

<script language="vbscript">
dim a,b,c,m
a =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")
b =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")
c =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")

if cint(a)<cint(b) then
m=a
a=b
b=m
end if

if cint(b)<cint（c） then
m=b
b=c
c=m
end if

if cint(a)<cint(b) then
m=a
a=b
b=m
end if

msgbox a &" "&b&" "&c
//再多的数考虑用数组
</script>

楼主注意一下先用 IsNUmberic 函数判断一下 否则会出现“类型不匹配”的错误哦~~~