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)文章
今天用腳本實(shí)現(xiàn)幾個(gè)文本文件的合并，被FSO中的幾個(gè)函數(shù)絆住了好久，最終認(rèn)定這里應(yīng)該是Window里的Bug。2009-04-04
vbs整人代碼大集合，收集的比較全，喜歡的朋友可以參考下。不要搞破壞，學(xué)習(xí)vbs的朋友非常有幫助，死循環(huán)的使用比較多。2011-02-02
使用批處理文件異地備份數(shù)據(jù)庫(kù)（最近幾天的數(shù)據(jù)）
數(shù)據(jù)庫(kù)異地備份對(duì)一個(gè)網(wǎng)站來(lái)說(shuō)是非常必要的，這里談一下使用批處理文件對(duì)數(shù)據(jù)庫(kù)異地本份的過(guò)程2006-06-06
VBS教程：屬性-Column 屬性...2006-11-11
使用 Iisext.vbs 列出Web服務(wù)擴(kuò)展的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠(yuǎn)程計(jì)算機(jī)上列出 Web 服務(wù)擴(kuò)展,需要的朋友可以參考下2014-07-07
VC中實(shí)現(xiàn)文字豎排的簡(jiǎn)單方法(推薦)
下面小編就為大家?guī)?lái)一篇VC中實(shí)現(xiàn)文字豎排的簡(jiǎn)單方法(推薦)。小編覺(jué)得挺不錯(cuò)的，現(xiàn)在就分享給大家，也給大家做個(gè)參考。一起跟隨小編過(guò)來(lái)看看吧2016-05-05
VBS教程：屬性-Files 屬性...2006-11-11
用vbs實(shí)現(xiàn)文件下載的代碼，CDO.MESSAGE可以訪問(wèn)網(wǎng)絡(luò)下載東西，說(shuō)是研究研究或許可以用來(lái)當(dāng)下載者用。2011-01-01
使用 Iisext.vbs 刪除應(yīng)用程序依存關(guān)系的實(shí)現(xiàn)方法
這篇文章主要介紹了使用 Iisext.vbs 刪除應(yīng)用程序依存關(guān)系的實(shí)現(xiàn)方法,需要的朋友可以參考下2014-07-07
這個(gè)腳本主要是將exe轉(zhuǎn)換為vbs腳本，需要的朋友可以測(cè)試下2012-11-11