If...Then...Else
在下面的情況中，您可以使用 If...Then...Else 語句：
在條件為 true 時，執(zhí)行某段代碼
選擇兩段代碼之一來執(zhí)行時
dim a '定義一個變量
a = 100
if a 200 then a = 300 '若i200,則對i重新賦值
msgbox a '輸出的值為300
要運行多行代碼，必須使用多行（或塊）語法，多行（或塊）語法包含 End If 語句
dim a,b,c
a=inputbox("請輸入a的值：")
b=100
c=200
if a200 then '條件為 True 時運行某一語句塊，條件為 False 時運行另一語句塊
msgbox b
else
msgbox c
end if
對多個條件進行判斷，可以添加任意多個 ElseIf 子句以提供多種選擇
dim a
a=inputbox("請輸入a的值：")
if a200 then '條件為 True 時運行某一語句塊，條件為 False 時運行另一語句塊
msgbox "執(zhí)行語句1"
elseif a=200 then
msgbox "執(zhí)行語句2"
elseif a>200 then
msgbox "執(zhí)行語句3"
end if
Select Case結構提供了 If...Then...ElseIf結構的一個變通形式，可以從多個語句塊中選擇執(zhí)行其中的一個。Select Case語句提供的功能與 If...Then...Else語句類似，但是可以使代碼更加簡練易讀。
'Select Case 結構在其開始處使用一個只計算一次的簡單測試表達式。表達式的結果將與結構中每個 Case 的值比較，如果匹配，則執(zhí)行與該Case 關聯的語句塊。
dim a
a=inputbox("隨便填寫一個數")
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("無敵了")
case else msgbox("做夢呢")
end select
注意： Select Case結構只計算開始處的一個表達式（只計算一次），而 If...Then...ElseIf 結構計算每個 ElseIf 語句的表達式，這些表達式可以各不相同。僅當每個 ElseIf 語句計算的表達式都相同時，才可以使用 Select Case 結構代替If...Then...ElseIf 結構。
您可能感興趣的文章:- VBS教程：VBScript 基礎-使用條件語句
- VBScript教程 第七課使用條件語句
