(
课件网) FOR-NEXT循环结构 提问：怎样在屏幕上依次输出10以内的所有正偶数？ Print 2 Print 4 Print 6 Print 8 Print 10 思考：如果想要依次输出100甚至1000以内的所有正偶数？怎么做，难道就这样顺序写下去吗？ Print 2 Print 4 Print 6 Print 8 Print 10 . . . 观察：程序主体中除了常量不同外，其他部分完全重复，其通式为：print i(i为2，4，6，8，10)，只不过要重复五次，如果能让计算机去完成这部分重复的内容，而我们只要告诉计算机重复操作的次数是不是就可以了，这就是循环的思想。利用循环结构，使我们只要通过少量的语句，让计算机重复执行许多次，就能完成要求。 问题：那些重复要做的事情就是循环体。在上例中循环体是什么？ 如果一直持续执行循环体就会形成死循环，怎样才能避免这种情况发生？ 在上例中，常量呈一定规律变化，后一个常量总比前一个常量大2.即：i=i+2 问：“i=i+2”表示什么意思？ Print i For 循环变量 = 初值 To 终值 [Step 步长] [循环体] Next [循环变量] （1）For语句与Next语句必须成对出现，For出现在Next之前， Next后面的循环变量与For语句中的循环变量必须相同。 （2）“循环变量”：必须为数值型，取值范围在初值和终值之间。 （3）“初值”、“终值”：都是数值型，可以是数值表达式。 （4）“步长”：是数值型，可以是数值表达式。 是循环变量的增量。 步长可取正数可取负数。当初值小于终值时，步长为正数；当初值大于终值时，步长为负数；只有步长为1时，才可以省略 step 1。 （5）“循环体”：在For和Next之间一条或多条语句，也可无任何语句，称为空循环，他们将被执行指定的次数。 （6）有时需中途退出循环，这时用 Exit For命令。 For ?<循环变量>= <初值> ?To ?<终值> ?[step ?<步长>] ? <循环体>? Next ?<循环变量> for-next循环结构语句格式： 程序代码： Dim i As Integer ‘定义变量i为整型 For i = 2 To 10 Step 2 ‘设置循环变量，初值为2，终值10，步长为2 Print i ‘打印变量值 Next i 第几次循环 循环开始时i的值 与终值相比 输出结果 执行NEXT i后i的值 1 2 3 4 5 6 2 <10 2 2+2=4 4 <10 4 4+2=6 6 <10 6 6+2=8 8 <10 8 8+2=10 10 =10 10 10+2=12 12 >10 终止执行，跳出循环 程序代码： Dim i As Integer ‘定义变量i为整型 For i = 2 To 10 Step 2 ‘设置循环变量，初值为2，终值10，步长为2 Print i ‘打印变量值 Next i 练习1： 针对for循环语句格式，设置如下练习：分析下面程序有无错误，如有错误并改正。 1、求1+2+3+4+5的和 s=0 for i=1 to 5 step 1 s=s+i next j print s 2、在窗体界面上输出1~10这10个自然数 for i=1 to 10 print i Next后的循环变量与for后的循环变量不一致，应将j 改为i For与next没有配对，应该增加一条语句next i i next i 针对for循环语句格式，设置如下练习：分析下面程序有无错误，如有错误并改正。 3、求5+4+3+2+1和 s=0 for i=5 to 1 s=s+i next i print s 4、求7+5+3+1的和： S=0 For 7 to 1 Step -2 S=S+i Next i Print S 步长为-1不能省略，应补上step -1 step -1 循环变量没有被赋初值，应在for后7改为i=7 5、打印1~10这10个数 Dim n As Integer For n=1 to 10 Print “n” Next n 针对for循环语句格式，设置如下练习：分析下面程序有无错误，如有错误并改正。 n加上引号，就变成了字符串，应把引号去掉 n 分析下列程序，说出程序功能 Dim i As Integer for i=20 to 12 step -2 print i next i 练习2： 分析下列程序，说出程序功能 Dim i As Integer for i=20 to 12 step -2 print i next i 练习2： 第几次循环 循环开始时i的值 与终值相比 输出结果 执行NEXT i ... ...
