華閱文章網
VB循環語句
循環語句包括For-Next、While-Wend、Do-Loop語句。
暫且先給你介紹一下這些語句的簡單用法：For-Next語句：For 變量 = 初值 To 終值 [Step 步長] 循環體Next當循環變量的值在初值到終值范圍內時，執行一次循環體中的語句塊，并使初值增加一個步長。當循環變量的值不在初值到終值范圍內時，就退出循環，執行Next后面的語句。
For循環語句執行的流程圖。其中，Step 步長 可省略，省略時，步長=1. 例如：Private Sub Form_Activate()For i = 1 To 5 Step 1 Print iNextEnd Sub在這個例子中，運行程序后，窗體上會寫出如下文字：12345解析：變量i由初值1到終值5共循環5次，每次循環時，輸出i，并且將i的值加上步長的值1.所以，但第二次循環式，i的值就變為2.循環5此后，i的值變為5.再循環時i就變為6，便超過了終值5，因此循環結束，VB開始運行Next語句之后的代碼。
Do-Loop語句：Do循環體。[Exit Do]Loop循環體會在Do 與 Loop 之間不停循環。
Exit Do 語句可有可無，是為了設定當滿足一定條件后，運行Exit Do 語句，即退出循環。如：Private Sub Form_Activate()Dim i As Integeri = 1Do Print i i = i + 1 '每次循環時都使i的值增加1 If i > 5 Then Exit Do '當i的值大于5（即循環5此后）時，退出循環LoopEnd Sub其運行效果與上面的例子相同。
以上說明絕對不是復制的，給點辛苦分也行，謝謝~~。
【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循環語句主要有哪些帶說明
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 步長]
循環體
Next
While Wend 語句：
While 條件
循環體
Wend
但滿足條件時，（如當i>5時），便退出循環，否則執行循環體。Do-Loop語句：
Do
循環體
。[Exit Do]
Loop
循環體會在Do 與 Loop 之間不停循環。Exit Do 語句可有可無，是為了設定當滿足一定條件后，運行Exit Do 語句，即退出循環。for應該是最簡單的，因為不用自己去控制自增或自減，只要設置初始值，循環條件，和步階就行了~
【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。
