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結(jié)構(gòu)提供了 If...Then...ElseIf結(jié)構(gòu)的一個變通形式，可以從多個語句塊中選擇執(zhí)行其中的一個。Select Case語句提供的功能與 If...Then...Else語句類似，但是可以使代碼更加簡練易讀。
'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 語句的表達式，這些表達式可以各不相同。僅當(dāng)每個 ElseIf 語句計算的表達式都相同時，才可以使用 Select Case 結(jié)構(gòu)代替If...Then...ElseIf 結(jié)構(gòu)。
新聞熱點
疑難解答
圖片精選
