资源描述
单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,S=0,S=S+1,S=S+2,S=S+100,共101条语句,引例:,求1+2+3+100的和？,5.3 循 环 结 构,重复累加操作,S=0,For I=1 to 100,S=S+I,Next I,1,一般循环结构流程图,(1)进入循环条件是什么？,(2)循环体的算法是什么？,(3)结束循环条件是什么？,本章讨论VB的两种循环语句：,计数循环语句,For-Next,条件型循环语句,While-Wend,Do-Loop,2,5.3.1,For-Next 循环控制,格式：,For ,=,To ,Step ,循环体,Exit For,Next ,循环变量,X,(一般用于循环次数已知),功能,：,按确定的次数执行循环体。,3,当,e3,0,时, For-Next,的流程图,t =0,For,I,=,2 To 10 Step 2,t=t + I,Print t,Next,I,I,:,循环变量,2,:,初值,10:,终值,2:,步长,循环体,I=I+2,I,10 ?,结束,Y,N,For ,=,To ,Step ,循环体,Exit For,Next 循环变量X,N,x = e1,x e2 ?,循环体,x = x + e3,Y,开始,结束,4,讨论For-Next,循环变量必须为,数值型,。,循环次数,步长,0 初值终值,( 当=1 时，可省略),终值,=0 死循环,For I=1 to 100,S=S+I,Next I,For I=100 to 1 Step -1,S=S+I,Next I,5,For-Next :,必须成对出现，缺一不可。,(,最近配对原则,),可以嵌套使用，但循环变量名必须不同，且,不可书写交叉,正确的嵌套方式,For I=1 To 9,For J=1 To 9,Print I,J,Next J,Next I,下面属于错误的嵌套,For I=1 To 9,For J=1 To 9,Print I,J,Next I,Next J,循环的嵌套,6,For的嵌套,思考,Private Sub Command1_Click(),Dim a As Integer: Dim b As Integer: Dim i As Integer: Dim j As Integer,a = 0: b = 0: i = 0: j = 0,For i = 1 To 3,For j = 1 To 3,a = a + j,Next j,Next i,Print a,End Sub,7,For的嵌套,For i = 1 To 3,For j = 1 To 3,a = a + j,Next j,Next i,For i = 1 To 3,Next i,For j = 1 To 3,a = a + j,Next j,+,For i = 1 To 3,Next i,For j = 1 To 3,a = a + j,Next j,For i = 1 To 3,Next i,可分出内外循环,8,For的嵌套,For j = 1 To 3,a = a + j,Next j,For i = 1 To 3,Next i,实际上将上述拆分可想象成,For i = 1 To 3,循环语句,Next i,循环语句即为：,For j = 1 To 3,a = a + j,Next j,实际上将上述拆分可想象成,For i = 1 To 3,循环语句,Next i,循环语句即为：,For j = 1 To 3,a = a + j,Next j,9,For的嵌套,实际上将上述拆分可想象成,For i = 1 To 3,内循环,Next i,循环语句即为：,For j = 1 To 3,a = a + j,完成了1+2+3的累加,Next j,问1：外循环执行了几次？,3次,问2：单次内循环的结果a的值是多少？,a=6,问3：3次外循环，意味着内循环执行了3次，a=6还是a=18?,a=18,10,分步解析,For i = 1 To 3,For j = 1 To 3,a = a + j,Next j,Next i,当i=1时，第1次循环开始,内循环执行了1+2+3.得出,a=6。,注意，此时的a的初,始值为0，结果为a=6,当i=2时，第2次循环开始,内循环执行了6+1+2+3.得出,a=12，,注意，此时的a的初,始值为6，结果为a=12,当i=3时，第三次循环开始,内循环执行了12+1+2+3=18,注意，此时的a的初始值为12，,结果为a=18,当i=4时，外循环跳出,11,“公鸡五文钱一只，母鸡三文钱一只，小鸡一文钱三只”，一百文钱买一百只鸡，问买公鸡、母鸡、小鸡各多少只？,Private Sub Command3_Click(),Dim x,y,z As Integer,List3.clear,For 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)+” ”+,End If,Next,Next,End Sub,百钱买百鸡,分析：,x+y+z=100,5x+3y+z/3=100,枚举范围：,x,y,z,0-20,0-33,0-300,判断的条件：,5*x+3*y+z/3=100,12,
展开阅读全文