華閱文章網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中的循環語句
循環語句包括For-Next、While-Wend、Do-Loop語句比較常用的是for和whileFor-Next語句：For 變量 = 初值 To 終值 [Step 步長] 循環體NextWhile Wend 語句：While 條件 循環體Wend但滿足條件時，（如當i>5時），便退出循環，否則執行循環體。
Do-Loop語句：Do循環體。[Exit Do]Loop循環體會在Do 與 Loop 之間不停循環。
Exit Do 語句可有可無，是為了設定當滿足一定條件后，運行Exit Do 語句，即退出循環。for應該是最簡單的，因為不用自己去控制自增或自減，只要設置初始值，循環條件，和步階就行了~。
【VB程序中關于循環語句：“FOR”的使用第一個問題：Q1:FOR的結
a是循環變量，b是初始值，c是步進數，即每循環一次a的值的變化量.n=Inputbox("n=")i=0s=0For i =0 to ni=i+1s=s+iNext iPrint sPrivate Sub Command1_Click()Dim i As IntegerDim a(0 to 9)Dim b '最大值Dim c '最小值Dim s '和Dim d '平均值b = 0c = 0s = 0For i = 0 to 9a(i)=inputbox（"輸入數字"）If b If c > a(i) Then c = a(i)s = s + a(i)Next is = s - b - cd = s / 8Print dEnd Sub。
關于vb for循環語句
循環結構是程序中一種很重要的結構。在給定條件成立時，可反復執行某程序段，直到條件不成立為止。給定的條件稱為循環條件，反復執行的程序段稱為循環體。在VB中提供了多種循環語句供用戶使用循環，下面介紹兩種常用的形式：For語句和Do語句。
一、For語句
For循環（For……Next）語句的基本格式為：
For 循環變量=初值 To 終值 Step 增量，循環體，Next 變量
循環變量為數值型變量，初值、終值、增量均為數值型表達式。“Step 增量”部分可以省略，缺省時默認為1。在循環體中使用Exit
For語句可直接中止循環，執行next后面的語句。當增量值為正數時，For循環的執行過程如下：
(1) 將循環變量賦初值；
(2)比較循環變量是否小于等于終值，小于等于時循環條件成立，運行一次循環體中的語句；如果循環條件不成立時，循環結束，執行Next后面的語句；
(3)遇到Next語句，循環變量增加增量值，轉到（2）繼續循環；
增量值為負數時，For循環的執行過程第（2）步不同。比較循環變量是否大于等于終值，大于等于時循環條件成立，運行一次循環體中的語句；如果循環條件不成立時，循環結束，執行Next后面的語句結束。
【vb循環語句的題目：計算3-1/2+2/3-3/4+…+N/(N+1)的結果（N=10）
m = n / (n + 1)o = m * (-1) ^ n這兩句合成一句o=(-1)^n*n/(n+1)不知道這個地方有沒有數值轉換？小心第二道題 Private Sub Form_Activate()Dim a, b As IntegerFor a = 1 To 20For b = 1 To 33'c = 100 - a - b 'C變量用100-a-b代替 就用兩個變量了If (a * 5 + b * 3 + (100 - a - b) * 1 / 3 = 100) Then Print "公雞="； a， "母雞="； b， "小雞="； 100 - a - bNext bNext aEnd Sub。
