For循环专题复习.pptVIP

For循环专题 For…Next循环专题 2、说明： (1) For与Next必须成对出现，Next必须位于For语句之后。 (2) 循环变量必须是数值型，且最好为整型变量。 (3) For循环分递增循环和递减循环两种。 递增循环：当初值小于等于终值，步长值0。 递减循环：当初值大于等于终值，步长值0。 思考：步长值能否为0 ？ 答案：不能！步长值为0是死循环！！ (4)当步长值=1时，［Step 步长值］部分可以省略 。 (5)Next 后面的变量可以省略 ，For、Next后面的循环变量是同一个。 (6)可以在循环体中的任何位置放置任意个Exit For语句，随时退出循环体。 注：本节课先讲解For递增循环的相关内容。 例2: 求S = 1 + 2 + 3 + … 10，把结果显示在窗体上。 例3：计算s=5！(5*4*3*2*1)的值。 Private Sub Command1_Click() Dim s As Integer, n As Integer s = 1 For n = 1 To 5 Step 1 s = s * n Next n Label2.Caption = s End Sub 例4：嵌套For循环 假定有以下程序段： For i = 1 To 3 For j = 5 To 1 Step -1 Print i * j Next j Next i 则语句Print i * j的执行次数是： A、15 B、16 C、17 D、18 例5：嵌套For循环 阅读下面的程序段： For a = 1 To 2 For b = 1 To a For c = b To 2 i= i+ 1 Next c Next b Next a Print i=; i 执行上面的3重循环后，i的值为（ ）。 * For…Next循环 * 主讲教师：刘芳 控制结构 顺序结构 分支结构 循环结构 For…Next Do…Loop For Each…Next While…Wend 内容回顾 1、格式： For 循环变量 = 初值 To 终值 ［Step 步长］ ［循环体］ Next ［循环变量］ 循环变量的增量 ①赋值 ②比较 ③执行 ④+步长 For i = 1 To 5 Step 1 Print i; Next i For i = 5 To 1 Step -2 Print i; Next i For i = 1 To 5 Step 1 Print i; Next i 等同于 For i = 1 To 5 Print i; Next i For i = 1 To 5 Step 1 Print i; Next i 等同于 For i = 1 To 5 Step 1 Print i; Next For 循环变量=初值 To 终值 [Step 步长值] 循环体 Next [循环变量] 3、For…next循环的执行： 1、将初值赋给循环变量 2、判断循环变量值是否小于等于终止值 若为真（True），则执行循环语句，而后转到3执行 若为假（False），则转到 4执行 3、将变量的值加上步长值，而后返回 2执行 4、循环结束，顺序执行Next后面的语句 循环变量赋初值 循环变量=终值 循环体 循环变量加上一个步长 True False ①赋值 ②比较 ③执行 ④+步长 4、流程图： 与终值比较 x 第几次循环 For x = 1 To 10 Step 3 print x , Next x X为循环变量 1 1 10 1 7 10 4 10 4 2 7 10 3 10 =10 4 13 10 5 停止 分析: 例1： 例题讲解 累加器 s = s + i 旧值。前n项之和 新加的数 … s = s + i 1 + 2 3 s = s + i 1 + 2 + … 9 10 s = s + i 1 2 s=0 For i = 1 To 10 s = s+ i Next i Print s= ; s 累加器初值为0 累加器，在原有和的基础上每次加一个数 程序执行结果是：s＝55 分析: s = s + i 0 1 第一