If...Then...Else
在下面的情況中，您可以使用 If...Then...Else 語句：
在條件為 true 時，執(zhí)行某段代碼
選擇兩段代碼之一來執(zhí)行時
|
1
2
3
4
|
dim a '定義一個變量a = 100if a < 200 then a = 300 '若i<200,則對i重新賦值msgbox a '輸出的值為300 |
要運行多行代碼，必須使用多行（或塊）語法，多行（或塊）語法包含 End If 語句
|
1
2
3
4
5
6
7
8
9
|
dim a,b,ca=inputbox("請輸入a的值：")b=100c=200if a<200 then '條件為 True 時運行某一語句塊，條件為 False 時運行另一語句塊 msgbox belse msgbox cend if |
對多個條件進行判斷，可以添加任意多個 ElseIf 子句以提供多種選擇
|
1
2
3
4
5
6
7
8
9
|
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 if |
Select Case結(jié)構(gòu)提供了 If...Then...ElseIf結(jié)構(gòu)的一個變通形式，可以從多個語句塊中選擇執(zhí)行其中的一個。Select Case語句提供的功能與 If...Then...Else語句類似，但是可以使代碼更加簡練易讀。
|
1
2
3
4
5
6
7
8
9
10
11
|
'Select Case 結(jié)構(gòu)在其開始處使用一個只計算一次的簡單測試表達式。表達式的結(jié)果將與結(jié)構(gòu)中每個 Case 的值比較，如果匹配，則執(zhí)行與該Case 關(guān)聯(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結(jié)構(gòu)只計算開始處的一個表達式（只計算一次），而 If...Then...ElseIf 結(jié)構(gòu)計算每個 ElseIf 語句的表達式，這些表達式可以各不相同。僅當每個 ElseIf 語句計算的表達式都相同時，才可以使用 Select Case 結(jié)構(gòu)代替If...Then...ElseIf 結(jié)構(gòu)。
原文鏈接：http://www.cnblogs.com/wakey/p/5738489.html
