《VB循环语句.ppt.ppt》由会员分享，可在线阅读，更多相关《VB循环语句.ppt.ppt（10页珍藏版）》请在金锄头文库上搜索。
1、4.3 循环结构,循环:是在指定的条件下多次重复执行一组语句,1. For 语句,2. Do 语句,For 循环变量=初值 TO 终值 Step 步长 语句块 Next 循环变量,For循环格式：,执行过程: (1) 将初值赋循环变量； (2) 判断循环变量值是否小于等于 终止值； (3) 若是,执行循环体（语句块）； (4) 然后将变量增加一个步长； (5)重复24步骤。 (6)否则，结束循环,1. Fornext循环,步长省略， 默认为1,程序代码： Dim i, s As Integer s = 0 For i = 1 To 10 step 1 Next i Print str(i) :
2、 Print (s),例1:求1+2+3+4+10之和.,分析: 重复过程(循环体): ss+i 初值、终值和增量:1、10、1,初值与终值换位 可以吗？,循环体的执行次数是多少 ? 输出的I、S的值是多少 ? For I = 1 To 10执行多少次？,s = s + i,For i=10 To 1 Step -1,2. Fornext循环,For 循环变量=初值 TO 终值 Step 步长 语句块 Next 循环变量,Dim i, s As Integer s=0 For i = 1 To 10 s = s + i Next i Print str(i) : Print (s),例3: 求
3、10！,分析: 重复过程:* 初值、终值与增量不变,例2:求1+2+3+4+ +10之和.,分析: 重复过程(循环体): + 初值、终值和增量:1、10、1,Dim i, s As Integer For i = 1 To 10 s = s * i Next i Print str(i) : Print (s),s=1 For I = 1 To 10,For i = 1 To 10 s=1,3. Fornext循环,例：分析下列程序段的输出结果： Dim I As Integer, J As Integer J = 0 For I = 0 To 10 Step 2 I = I + 3 J =
4、J + 1 Next I,注意： 初值、终值、步长必须是数值型， 步长为正，初值终值；缺省为默认为1 在已知循环次数时使用For循环，循环次数=int(终值-初值)/步长)+1 组成循环体的语句块可以是一条或多条语句 退出循环后，循环变量保持退出时的值,4. Fornext循环,1. Do While 循环体 Loop,2. D0 循环体 Loop While ,3. Do Until 循环体 Loop,4. Do 循环体 Loop Until ,5. DoLoop循环,1. While循环, Do While 循环体 Loop,执行过程:（先判断，后执行） 先判断循环条件, 若为真:执行循环
5、体,再判断循环条件 否则，跳过循环体,执行Loop之后语句,6. DoLoop循环, Do While 循环体 Loop,Dim i, s As Integer s = 0 For i = 1 To 10 s = s + i Next i Print str(s),例1:求1+2+3+4+10的和.,Dim i,s As Integer i=1 : s = 0 Do While Loop Print str(s),s=s+i,i=10,i=i+1,i=11,(1)循环体执行了几次? (2)没有I=1会怎样? (3)将Print语句移到Loop的 前面结果怎样? (4)I先赋值为11,结果如何?
6、,1. While循环,7. DoLoop循环, D0 While 循环体 Loop,例2:s=1*3*5*7*n,找出最大整数n，使得s1000,1. While循环,8. DoLoop循环,Dim n,s As Integer n=1 : s=1 Do While s1000 n=n+2 s=s*n Loop Print str(n),例2:s=1*3*5*7*n,找出最大整数n，使得s1000,练习1：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿。,分析 计算公式： 26=13（1+0.008）n 已知：当前人口数量为P=13，年增长率为R=0.008 循环条件：当前人口数是否超过26亿 若没，计算下一年人口数PP*(1+R)，年数+1，再判断,9. DoLoop循环,
