If...Then...Else
在下面的情況中，您可以使用 If...Then...Else 語(yǔ)句：
在條件為 true 時(shí)，執(zhí)行某段代碼
選擇兩段代碼之一來(lái)執(zhí)行時(shí)
dim a '定義一個(gè)變量
a = 100
if a 200 then a = 300 '若i200,則對(duì)i重新賦值
msgbox a '輸出的值為300
要運(yùn)行多行代碼，必須使用多行（或塊）語(yǔ)法，多行（或塊）語(yǔ)法包含 End If 語(yǔ)句
dim a,b,c
a=inputbox("請(qǐng)輸入a的值：")
b=100
c=200
if a200 then '條件為 True 時(shí)運(yùn)行某一語(yǔ)句塊，條件為 False 時(shí)運(yùn)行另一語(yǔ)句塊
msgbox b
else
msgbox c
end if
對(duì)多個(gè)條件進(jìn)行判斷，可以添加任意多個(gè) ElseIf 子句以提供多種選擇
dim a
a=inputbox("請(qǐng)輸入a的值：")
if a200 then '條件為 True 時(shí)運(yùn)行某一語(yǔ)句塊，條件為 False 時(shí)運(yùn)行另一語(yǔ)句塊
msgbox "執(zhí)行語(yǔ)句1"
elseif a=200 then
msgbox "執(zhí)行語(yǔ)句2"
elseif a>200 then
msgbox "執(zhí)行語(yǔ)句3"
end if
Select Case結(jié)構(gòu)提供了 If...Then...ElseIf結(jié)構(gòu)的一個(gè)變通形式，可以從多個(gè)語(yǔ)句塊中選擇執(zhí)行其中的一個(gè)。Select Case語(yǔ)句提供的功能與 If...Then...Else語(yǔ)句類似，但是可以使代碼更加簡(jiǎn)練易讀。
'Select Case 結(jié)構(gòu)在其開(kāi)始處使用一個(gè)只計(jì)算一次的簡(jiǎn)單測(cè)試表達(dá)式。表達(dá)式的結(jié)果將與結(jié)構(gòu)中每個(gè) Case 的值比較，如果匹配，則執(zhí)行與該Case 關(guān)聯(lián)的語(yǔ)句塊。
dim a
a=inputbox("隨便填寫(xiě)一個(gè)數(shù)")
a=int(a)
select case a
case 6,7,8,9 msgbox("還行")
case 10,11,12,13,14,15 msgbox("一般")
case 16,17,18,19,20 msgbox("可以了")
case 21,22,23,24,25 msgbox("無(wú)敵了")
case else msgbox("做夢(mèng)呢")
end select
注意： Select Case結(jié)構(gòu)只計(jì)算開(kāi)始處的一個(gè)表達(dá)式（只計(jì)算一次），而 If...Then...ElseIf 結(jié)構(gòu)計(jì)算每個(gè) ElseIf 語(yǔ)句的表達(dá)式，這些表達(dá)式可以各不相同。僅當(dāng)每個(gè) ElseIf 語(yǔ)句計(jì)算的表達(dá)式都相同時(shí)，才可以使用 Select Case 結(jié)構(gòu)代替If...Then...ElseIf 結(jié)構(gòu)。
您可能感興趣的文章:- VBS教程：VBScript 基礎(chǔ)-使用條件語(yǔ)句
- VBScript教程 第七課使用條件語(yǔ)句
