華閱文章網VB的一個IF循環語句語句問題
把If和Msgbox寫在 統一行，是默認為沒有EndIf的條件句，把換行Msgbox寫入If和EndIf中間即可
ElseIf方式：
If CI = 1 Then
MsgBox "第五位數字是" & PcE
ElseIf CI = 2 Then
MsgBox "第三位數字是" & PcC
ElseIf CI = 3 Then
MsgBox "第二位數字是" & PcB
ElseIf CI = 4 Then
MsgBox "第一位數字是" & PcA
ElseIf CI >= 5 Then
MsgBox "這還提示啊。。"
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循環語句主要有哪些帶說明
1、行IF語句
在一行中寫完的IF語句，稱為行IF語句。
語句格式：IF <；條件> THEN <；語句1> [ELSE <；語句2>]
命令功能：當條件滿足時，執行語句1，條件不滿足時，則執行語句2。
例子：輸入x，判斷x的正負。
程序編制如下：
Dim X As Integer
a: X = InputBox("X=:")
If X = 0 Then
Print "輸入錯誤，重新輸入！"
GoTo a:
End If
If X > 0 Then Print "x為正數"
If X < 0 Then Print "x為負數"
2、塊IF語句
語句格式：IF <；條件> THEN
<；語句組1>
[ELSE
<；語句組2>]
END IF
語句功能：當條件滿足時，執行語句組1；條件不滿足時，則執行語句組2。執行完相應語句組后，退出IF語句執行END IF語句以下語句序列。
例子：輸入年份，判斷此年份是否為潤年。
程序編制如下：
a: year = InputBox（"輸入年份："）
If year <= 0 Then
Print "輸入錯誤，重新輸入！"
GoTo a:
End If
If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then
Print year;
Print "年是潤年"
Else
Print year;
Print "年不是潤年"
End If
3、FOR循環，語句格式：
FOR <；循環變量>=<；初值>TO<；終值>[STEP<；步長>]
[<；循環體>]
[EXIT FOR]
NEXT[<；循環變量>]
語句功能：從循環的初值到終值按步長增值控制計數重復執行循環體。
例子： 用FOR語句編寫計算S=1+2+3+…+100的程序。
FOR I=1 TO 100 STEP 1
S=S+I
NEXT I
4、DO循環，語句格式：
DO
<；循環體>
[EXIT DO]
LOOP
語句功能：無休止的執行循環體。如果有條件語句配合可控制退出循環。
例子： 用EXIT DO語句編寫計算S=1+2+3+…+100的程序。
X=0:S=0
DO
X=X+1
S=S+X
IF X>=100 THEN EXIT DO
LOOP
VB循環條件語句
1、do while。loop：當條件為True時循環，，在進入循環之前檢查條件。
2、do。loop while：當條件為True循環，在循環至少運行一次后檢查條件。
3、do until。loop：當條件為false循環，在進入循環之前檢查條件。
4、do.. loop until：當條件為false循環，在循環至少運行一次后檢查條件。
5、While。Wend： 當條件為Ture時循環。
6、for。.next：指定循環次數，使用計數器重復運行語句。
VB if語句中怎么循環啊
有end if而出錯，而出錯時因為是先執行的FOR，而FOR也沒有結束，所以VB默認會報FOR錯誤..其實應該是你的IF THEN沒有END IF來對應了..2.如上所說..For i = 1 To 2 For j = 1 To 4 a = a + 1 Next j Next i 把那一行，IF THEN拿掉，這個代碼你能看懂嗎？ 就是每一輪都執行一個A=A+1的.然后：For i = 1 To 2 For j = 1 To 4 If j Mod 2 <> 0 Then a = a + 1 Next j Next i 呵呵，這樣你能看懂嗎？ 每輪并沒有執行A=A+1的，只有在J是偶數（J MOD 2=0）時，A才會=A+1的..現在把2行寫到一起，你也應該能懂了吧：For i = 1 To 2 For j = 1 To 4 If j Mod 2 <> 0 Then a = a + 1 a = a + 1 Next j Next i 這個就是，每次都肯定會執行1次A=A+1，而當J是偶數時，就會執行2次 A=A+1的。
vb循環語句
do while * = ""
b1 = MsgBox()
* = InputBox()
loop
do while * = ""
b2 = MsgBox()
* = InputBox()
loop
do while * = ""
b3 = MsgBox()
* = InputBox()
loop
