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