vbscript 三個(gè)數(shù)比較大小的實(shí)現(xiàn)代碼
更新時(shí)間:2009年06月20日 00:05:17 作者:
由于樓主只是三個(gè)數(shù),所以不用復(fù)雜的冒泡排序法來(lái)排序,直接三個(gè)數(shù)比較就行了
復(fù)制代碼 代碼如下:
dim a,b,c
a =inputbox ("請(qǐng)輸入0-99的整數(shù)且不能重復(fù)更不要用漢字和字母")
b =inputbox ("請(qǐng)輸入0-99的整數(shù)且不能重復(fù)更不要用漢字和字母")
c =inputbox ("請(qǐng)輸入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ù)雜的冒泡排序法來(lái)排序,直接三個(gè)數(shù)比較就行了!tjoy7d的方法就是所謂的冒泡排序法,雖然代碼簡(jiǎn)單,但是實(shí)際上電腦執(zhí)行起來(lái)要循規(guī)很多次,運(yùn)行速度會(huì)受到影響!
相關(guān)文章
腳本 MsAgent組件 微軟精靈 揪出系統(tǒng)自帶的寵物
你知道系統(tǒng)里有一個(gè)隱藏的寵物嗎? 將以下代碼保存為后綴為.vbs的文件,再雙擊運(yùn)行,看看出來(lái)什么?一個(gè)可愛(ài)的魔法老人!還會(huì)說(shuō)話、移動(dòng)、吹喇叭……2009-06-06用vbs檢索在運(yùn)行對(duì)話框中鍵入的一系列命令的代碼
用vbs檢索在運(yùn)行對(duì)話框中鍵入的一系列命令的代碼...2007-03-03VBS基礎(chǔ)篇 - 循環(huán)(for、Do、While)
經(jīng)常地,當(dāng)編寫代碼時(shí),我們希望將一段代碼執(zhí)行若干次,我們可以在代碼中使用循環(huán)語(yǔ)句來(lái)完成這項(xiàng)工作,需要的朋友可以參考下2018-05-05VBS教程:語(yǔ)句-While...Wend 語(yǔ)句
VBS教程:語(yǔ)句-While...Wend 語(yǔ)句...2006-11-11VBS教程:函數(shù)-GetObject 函數(shù)
使用 GetObject 函數(shù)可以訪問(wèn)文件中的 Automation 對(duì)象,而且可以將該對(duì)象賦值給對(duì)象變量。使用 Set 語(yǔ)句將 GetObject 返回的對(duì)象賦值給對(duì)象變量。2006-11-11