基本用法是：If條件1Then語句段Endif或：If條件1Then語句段1Else語句段2Endif這樣使用If語句，就可以使程式有選擇性的執行程式碼。注意，If語句一定要有判斷條件和執行語句，最後用EndIf結尾。但如果執行語句只有一條，就可以縮成一行，不必再寫EndIf。如：If條件1Then語句1或：If條件1Then語句1Else語句2好，下面做這樣一個題：輸一個數，判斷奇數還是偶數。這時可以使用一個新的運算子——Mod。Mod可以對一個數取餘數。例如10/3=3……1則10Mod3=1。所以如果任意一個數nMod2=1這個數就是奇數了。所以原始碼十分簡單：PrivateSubCommand1_Click()IfVal(Text1.Text)Mod2=1ThenLabel1.Caption="這是奇數"ElseLabel1.Caption="這是偶數"EndIfEndSub這段程式碼應該很容易讀懂了。但是有的朋友會說如果想加上判斷非奇非偶的判斷，怎麼辦呢？我們可以這樣想，先判斷是否奇數，再判斷是否偶數，如果兩者都不是，那就是非奇非偶了！這樣的話，我們就要使用到多層次的函數了。把這個想法翻譯過來，就是IfVal(Text1.Text)Mod2=1ThenLabel1.Caption="這是奇數"ElseIfVal(Text1.Text)Mod2=0ThenLabel1.Caption="這是偶數"ElseLabel1.Caption="非奇非偶"EndIfEndIf做著做著發現，當我們輸入小數的時候，程式依然會輸出奇偶，可小數無奇偶之分！所以我們要用一條函式來判斷是否整數——Int()。該函式可以將一個數變為整數。所以如果n=Int(n)那麼這個數就是整數了。為了把這個條件加入判斷，則應該使用邏輯運算子And連線兩個條件。必須兩個條件同時成立，才能算是整條語句成立。PrivateSubCommand1_Click()IfVal(Text1.Text)Mod2=1AndVal(Text1.Text)=Int(Val(Text1.Text))ThenLabel1.Caption="這是奇數"ElseIfVal(Text1.Text)Mod2=0AndVal(Text1.Text)=Int(Val(Text1.Text))ThenLabel1.Caption="這是偶數"ElseLabel1.Caption="非奇非偶"EndIfEndIfEndSub這樣，我們就可以判斷非奇非偶的數了。另外，剛才的If語句還有一種寫法，就是ElseIf。最終可以寫成如下形式，可以對比一下上下兩段。PrivateSubCommand1_Click()IfVal(Text1.Text)Mod2=1AndVal(Text1.Text)=Int(Val(Text1.Text))ThenLabel1.Caption="這是奇數"ElseIfVal(Text1.Text)Mod2=0AndVal(Text1.Text)=Int(Val(Text1.Text))ThenLabel1.Caption="這是偶數"ElseLabel1.Caption="非奇非偶"EndIfEndSub測試完之後，可以發現兩段程式碼的效果完全一樣呢。其實，這就是將多層次的If條件語句合併。目的是減少程式碼的長度，增加可讀性。當然，至於上面所講過的If語句精簡寫法，這裡不建議使用，否則語句太長了，影響可讀性。在同一行上不能寫Elseif，而要寫ElseIf。例如：Ifx<60ThenPrint"D"ElseIfx<75ThenPrint"C"ElseIfx<85ThenPrint"B"ElsePrint"A"
基本用法是：If條件1Then語句段Endif或：If條件1Then語句段1Else語句段2Endif這樣使用If語句，就可以使程式有選擇性的執行程式碼。注意，If語句一定要有判斷條件和執行語句，最後用EndIf結尾。但如果執行語句只有一條，就可以縮成一行，不必再寫EndIf。如：If條件1Then語句1或：If條件1Then語句1Else語句2好，下面做這樣一個題：輸一個數，判斷奇數還是偶數。這時可以使用一個新的運算子——Mod。Mod可以對一個數取餘數。例如10/3=3……1則10Mod3=1。所以如果任意一個數nMod2=1這個數就是奇數了。所以原始碼十分簡單：PrivateSubCommand1_Click()IfVal(Text1.Text)Mod2=1ThenLabel1.Caption="這是奇數"ElseLabel1.Caption="這是偶數"EndIfEndSub這段程式碼應該很容易讀懂了。但是有的朋友會說如果想加上判斷非奇非偶的判斷，怎麼辦呢？我們可以這樣想，先判斷是否奇數，再判斷是否偶數，如果兩者都不是，那就是非奇非偶了！這樣的話，我們就要使用到多層次的函數了。把這個想法翻譯過來，就是IfVal(Text1.Text)Mod2=1ThenLabel1.Caption="這是奇數"ElseIfVal(Text1.Text)Mod2=0ThenLabel1.Caption="這是偶數"ElseLabel1.Caption="非奇非偶"EndIfEndIf做著做著發現，當我們輸入小數的時候，程式依然會輸出奇偶，可小數無奇偶之分！所以我們要用一條函式來判斷是否整數——Int()。該函式可以將一個數變為整數。所以如果n=Int(n)那麼這個數就是整數了。為了把這個條件加入判斷，則應該使用邏輯運算子And連線兩個條件。必須兩個條件同時成立，才能算是整條語句成立。PrivateSubCommand1_Click()IfVal(Text1.Text)Mod2=1AndVal(Text1.Text)=Int(Val(Text1.Text))ThenLabel1.Caption="這是奇數"ElseIfVal(Text1.Text)Mod2=0AndVal(Text1.Text)=Int(Val(Text1.Text))ThenLabel1.Caption="這是偶數"ElseLabel1.Caption="非奇非偶"EndIfEndIfEndSub這樣，我們就可以判斷非奇非偶的數了。另外，剛才的If語句還有一種寫法，就是ElseIf。最終可以寫成如下形式，可以對比一下上下兩段。PrivateSubCommand1_Click()IfVal(Text1.Text)Mod2=1AndVal(Text1.Text)=Int(Val(Text1.Text))ThenLabel1.Caption="這是奇數"ElseIfVal(Text1.Text)Mod2=0AndVal(Text1.Text)=Int(Val(Text1.Text))ThenLabel1.Caption="這是偶數"ElseLabel1.Caption="非奇非偶"EndIfEndSub測試完之後，可以發現兩段程式碼的效果完全一樣呢。其實，這就是將多層次的If條件語句合併。目的是減少程式碼的長度，增加可讀性。當然，至於上面所講過的If語句精簡寫法，這裡不建議使用，否則語句太長了，影響可讀性。在同一行上不能寫Elseif，而要寫ElseIf。例如：Ifx<60ThenPrint"D"ElseIfx<75ThenPrint"C"ElseIfx<85ThenPrint"B"ElsePrint"A"