華閱文章網請問一下vb中的if語句的用法
If。Then。Else 語句
根據表達式的值有條件地執行一組語句。
語法
If condition Then [statements][Else elsestatements]
或者，可以使用塊形式的語法：
If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements] 。
[Else
[elsestatements]]
End If
If。Then。Else 語句的語法具有以下幾個部分：
部分 描述
condition 必要參數。一個或多個具有下面兩種類型的表達式：
數值表達式或字符串表達式，其運算結果為 True 或 False。如果 condition 為 Null，則 condition 會視為 False。
TypeOf objectname Is objecttype 形式的表達式。其中的 objectname 是任何對象的引用，而 objecttype 則是任何有效的對象類型。如果 objectname 是 objecttype 所指定的一種對象類型，則表達式為 True，否則為False。
statements 在塊形式中是可選參數；但是在單行形式中，且沒有 Else 子句時，則為必要參數。一條或多條以冒號分開的語句，它們在 condition 為 True 時執行。
condition-n 可選參數。與 condition 同。
elseifstatements 可選參數。一條或多條語句，它們在相關的 condition-n 為 True 時執行。
elsestatements 可選參數。一條或多條語句，它們在前面的 condition 或 condition-n 都不為 True 時執行。
說明
可以使用單行形式（第一種語法）來做短小簡單的測試。但是，塊形式（第二種語法）則提供了更強的結構化與適應性，并且通常也是比較容易閱讀、維護及調試的。
注意 在單行形式中，按照 If。Then 判斷的結果也可以執行多條語句。所有語句必須在同一行上并且以冒號分開，如下面語句所示：
If A > 10 Then A = A + 1 : B = B + A : C = C + B
在塊形式中，If 語句必須是第一行語句。其中的 Else、 ElseIf，和 End If 部分可以只在之前加上行號或行標簽。If 塊必須以一個 End If 語句結束。
要決定某個語句是否為一個 If 塊，可檢查 Then 關鍵字之后是什么。如果在 Then 同一行之后，還有其它非注釋的內容，則此語句就是單行形式的 If 語句。
Else 和 ElseIf 子句都是可選的。在 If 塊中，可以放置任意多個 ElseIf 子句，但是都必須在 Else 子句之前。If 塊也可以是嵌套的。
當程序運行到一個 If 塊（第二種語法）時，condition 將被測試。如果 condition為 True，則在 Then 之后的語句會被執行。如果 condition 為 False，則每個 ElseIf 部分的條件式（如果有的話）會依次計算并加以測試。如果找到某個為 True 的條件時，則其緊接在相關的 Then 之后的語句會被執行。如果沒有一個 ElseIf 條件式為 True（或是根本就沒有 ElseIf 子句），則程序會執行 Else 部分的語句。而在執行完 Then 或 Else 之后的語句后，會從 End If 之后的語句繼續執行。
提示 根據單一表達式來執行多種可能的動作時，Select Case 更為有用。不過，TypeOf objectname Is objecttype 子句不能在 Select Case 語句中使用。
注意 TypeOf 不能與諸如 Long、Integer 以及其他不是 Object 的固定數據類型一起使用。
VB編程IF語句的使用
VB的這個if其實可以用意思來配上去的.. if在這里就是"如果/判斷". then在這里就是"接著".else在這里就是"相反"..end if在這里就是"結束判斷" ..
這些只是我的翻譯..但是理解這些就比較好用了..
比如例子：
if * = "ok" then ' 如果*里面的內容是"ok" 那么就執行下列代碼
msgbox "文本框里的內容是ok"
else '相反，如果*里面的內容不是"ok"， 那么就執行下列代碼
msgbox "文本框里的內容不是ok"
end if
這里只是一個簡單的判斷.. 判斷*里面的內容是不是"ok"
例子2:
if dir("c:\*") <> "" then
msgbox "C盤有*"
else
msgbox "C盤沒有*"
end if
總之，有if就必須要end if
后面有end if 前面也必須要 if
認真學喔..！ 加油..
VB編程IF語句的使用
VB的這個if其實可以用意思來配上去的.. if在這里就是"如果/判斷". then在這里就是"接著".else在這里就是"相反"..end if在這里就是"結束判斷" ..這些只是我的翻譯..但是理解這些就比較好用了..比如例子：if * = "ok" then ' 如果*里面的內容是"ok" 那么就執行下列代碼msgbox "文本框里的內容是ok"else '相反，如果*里面的內容不是"ok"， 那么就執行下列代碼msgbox "文本框里的內容不是ok"end if這里只是一個簡單的判斷.. 判斷*里面的內容是不是"ok"例子2:if dir("c:\*") <> "" thenmsgbox "C盤有*"elsemsgbox "C盤沒有*"end if總之，有if就必須要end if后面有end if 前面也必須要 if認真學喔..！ 加油。
..。
關于vb中if 語句的嵌套問題
標準的if格式你應該知道吧 我就不說了 只說一下嵌套
在一次if判斷里，可以嵌套無數個子if判斷（我沒遇到過嵌套到頂的情況），無非是在then后或else后進行嵌套，因為互不影響 所以我就合起來說了：
if [真假判斷語句] then
*** '星號表示其余的代碼
if [嵌套的真假判斷語句1] then
[嵌套中if成立 執行的代碼]
else '可以不要 看情況
[嵌套中if不成立 執行的代碼]
end if
*** '星號表示其余的代碼
else if [嵌套的真假判斷語句2] then '這里的if可以跟在if后（加個空格），另起一行也行。如果在嵌套前還有別的代碼需要執行的話，就參照上面所寫的進行嵌套。
end if '如果if另起一行的話，要兩個end if，否則只要一個
注：注意嵌套的時候最好 用空格 把子判斷推后幾格，看著舒服。頂格寫也行，就是看著亂。
【哥們兒 這可全是我一個字一個字地打的啊~您就給個辛苦費吧~呵呵 有不懂的再通過 補充 問我】
vb中if嵌套語句
if 條件為真 then
執行語句
end if（判斷結束）
if a=3 then
if b=2 then
if c=7 then
if d=8 then
以上條件都成立的時候執行下邊一段話
。..執行代碼并結束這個判斷
（假如d=5，則執行下邊的代碼）
else
。。。..執行代碼
end if （這里是結束d=8 這個條件的）
end if（這里是結束c=7這個條件的）
end if（這里是結束b=2這個條件的）
end if（這里是結束a=3這個條件）
vb中的if語句問題
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Boolean
* = a
* = b
* = c
If a Mod 3 = 0 And b Mod 3 = 0 Then
Print c = True
Else
Print c = False
End If
End Sub改這個？
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Boolean
* = a
* = b
* = c
If a Mod 3 = 0 And b Mod 3 = 0 Then
Print c = True
'Print c = true 如果你的變量"C"是True則輸出True，否則輸出False。
'如果你想輸出“c = true”這個表達式，就用這條語句：print "c = true"
'如果你想設置變量“C”為true則把Print取消，直接用 c=true 這條語句就行了。
Else
Print "c = False"
'Print c = False 如果你的變量"C"是False則輸出True，否則輸出False。
'如果你想輸出“c = False”這個表達式，就用這條語句：print "c = False"
'如果你想設置變量“C”為false則把Print取消，直接用 c=false 這條語句就行了。
End If
End Sub
'順便說一句，你的If語句不能再改了。
關于VB的IF語句
Private Sub Form_Load()
* = 1111
* = 1111
End Sub
Private Sub Command1_Click()
If * = 1111 Then
* = 2222
* = 2222
ElseIf * = 2222 Then
* = 3333
* = 3333
ElseIf * = 3333 Then
* = 1111
* = 1111
End If
End Sub
用if ……else ……完全能解決你的問題，樓上幾位都行的，但是如果你值太多，建議你用select case語句，更簡潔。
Private Sub Form_Load()
* = 1111
* = 1111
End Sub
Private Sub Command1_Click()
Select Case *
Case 1111
* = 2222
* = 2222
Case 2222
* = 3333
* = 3333
Case 3333
* = 1111
* = 1111
End Select
End Sub
