vb控制結構for

1、 S=0 S=S+1 S=S+2 S=S+100 共101條語句引例: 求1+2+3+100的和？5.3 循 環(huán) 結 構重復累加操作S=0For I=1 to 100 S=S+INext I1一般循環(huán)結構流程圖(1)進入循環(huán)條件是什么？(2)循環(huán)體的算法是什么？(3)結束循環(huán)條件是什么？本章討論VB的兩種循環(huán)語句：計數(shù)循環(huán)語句 For-Next條件型循環(huán)語句 While-Wend Do-Loop25.3.1 For-Next 循環(huán)控制格式： For = To Step 循環(huán)體 Exit For Next 循環(huán)變量X (一般用于循環(huán)次數(shù)已知)功能：按確定的次數(shù)執(zhí)行循環(huán)體。3當e30時, For-

2、Next的流程圖t =0For I = 2 To 10 Step 2 t=t + I Print tNext I I: 循環(huán)變量2: 初值10: 終值2: 步長循環(huán)體I=I+2I 10 ?結束YNFor = To Step 循環(huán)體 Exit For Next 循環(huán)變量X Nx = e1x e2 ?循環(huán)體x = x + e3Y開始結束4討論For-Next循環(huán)變量必須為數(shù)值型。循環(huán)次數(shù)步長0 初值終值 ( 當=1 時，可省略)終值=0 死循環(huán)For I=1 to 100 S=S+INext IFor I=100 to 1 Step -1 S=S+INext I5 For-Next : 必須成對出

3、現(xiàn)，缺一不可。 (最近配對原則) 可以嵌套使用，但循環(huán)變量名必須不同，且不可書寫交叉正確的嵌套方式For I=1 To 9 For J=1 To 9 Print I,J Next JNext I 下面屬于錯誤的嵌套For I=1 To 9 For J=1 To 9 Print I,JNext I Next J循環(huán)的嵌套6For的嵌套思考Private Sub Command1_Click()Dim a As Integer: Dim b As Integer: Dim i As Integer: Dim j As Integera = 0: b = 0: i = 0: j = 0For i =

4、 1 To 3 For j = 1 To 3 a = a + j Next jNext iPrint aEnd Sub7For的嵌套For i = 1 To 3 For j = 1 To 3 a = a + j Next jNext iFor i = 1 To 3Next iFor j = 1 To 3 a = a + jNext j+For i = 1 To 3Next iFor j = 1 To 3 a = a + jNext jFor i = 1 To 3Next i可分出內外循環(huán)8For的嵌套For j = 1 To 3 a = a + jNext jFor i = 1 To 3Nex

5、t i實際上將上述拆分可想象成For i = 1 To 3循環(huán)語句Next i循環(huán)語句即為：For j = 1 To 3 a = a + jNext j實際上將上述拆分可想象成For i = 1 To 3循環(huán)語句Next i循環(huán)語句即為：For j = 1 To 3 a = a + jNext j9For的嵌套實際上將上述拆分可想象成For i = 1 To 3 內循環(huán)Next i循環(huán)語句即為：For j = 1 To 3 a = a + j 完成了1+2+3的累加Next j問1：外循環(huán)執(zhí)行了幾次？3次問2：單次內循環(huán)的結果a的值是多少？a=6問3：3次外循環(huán)，意味著內循環(huán)執(zhí)行了3次，a=6

6、還是a=18?a=1810分步解析For i = 1 To 3 For j = 1 To 3 a = a + j Next jNext i當i=1時，第1次循環(huán)開始內循環(huán)執(zhí)行了1+2+3.得出a=6。注意，此時的a的初始值為0，結果為a=6當i=2時，第2次循環(huán)開始內循環(huán)執(zhí)行了6+1+2+3.得出a=12，注意，此時的a的初始值為6，結果為a=12當i=3時，第三次循環(huán)開始內循環(huán)執(zhí)行了12+1+2+3=18注意，此時的a的初始值為12，結果為a=18當i=4時，外循環(huán)跳出11 “公雞五文錢一只，母雞三文錢一只，小雞一文錢三只”，一百文錢買一百只雞，問買公雞、母雞、小雞各多少只？Private Sub Command3_Click()Dim x,y,z As IntegerList3.clearFor x = 0 To 20 For y = 0 To 33 z = 100 - x - y If x * 5 + y * 3 + z / 3 = 100 Then List3.AddItem str(x)+”