代碼如下:
dim a,b,c
a =inputbox ("請輸入0-99的整數(shù)且不能重復(fù)更不要用漢字和字母")
b =inputbox ("請輸入0-99的整數(shù)且不能重復(fù)更不要用漢字和字母")
c =inputbox ("請輸入0-99的整數(shù)且不能重復(fù)更不要用漢字和字母")
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
由于樓主只是三個(gè)數(shù),所以不用復(fù)雜的冒泡排序法來排序,直接三個(gè)數(shù)比較就行了!tjoy7d的方法就是所謂的冒泡排序法,雖然代碼簡單,但是實(shí)際上電腦執(zhí)行起來要循規(guī)很多次,運(yùn)行速度會(huì)受到影響!
公眾號(hào)
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試