VBS基礎篇 - 條件語句(if與Select Case)

2019-10-26 18:08:33

字體：大中小

來源：轉載

供稿：網友

If...Then...Else

在下面的情況中，您可以使用 If...Then...Else 語句：

在條件為 true 時，執行某段代碼

選擇兩段代碼之一來執行時

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 "執行語句1"elseif a=200 then msgbox "執行語句2"elseif a>200 then msgbox "執行語句3"end if

Select Case結構提供了 If...Then...ElseIf結構的一個變通形式，可以從多個語句塊中選擇執行其中的一個。Select Case語句提供的功能與 If...Then...Else語句類似，但是可以使代碼更加簡練易讀。

'Select Case 結構在其開始處使用一個只計算一次的簡單測試表達式。表達式的結果將與結構中每個 Case 的值比較，如果匹配，則執行與該Case 關聯的語句塊。dim aa=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 結構。