第9课for循环for循环语句

1、求出求出100以内能被以内能被3整除的所有正整数整除的所有正整数求求1900-2100间的所有闰年间的所有闰年棋盘上的麦粒棋盘上的麦粒* *有一类问题具有特点：操作步数很多，步骤有重复性有一类问题具有特点：操作步数很多，步骤有重复性 开始开始结束结束X能被能被3整除整除YY X=1输出输出X的值的值X=x+1X=100NYN 示例：Private Sub Command1_Click( )for i=1 to 10Print iNext iEnd SubFor 循环语句的执行过程循环语句的执行过程1，循环变量被赋予初值，循环变量被赋予初值2，判断循环变量是否超过终值，如果，判断循环变量是否超过

2、终值，如果超过，则退出循环执行超过，则退出循环执行NEXT后面的后面的语句；如果没有超过则执行循环体。语句；如果没有超过则执行循环体。3，遇到，遇到NEXT语句，则循环变量增加语句，则循环变量增加一个步长，转到（一个步长，转到（2），继续循环。），继续循环。开始循环变量=初值循环变量是否超过终值？循环体循环变量=循环变量 +步长结束NYFor-next 循环语句的流程图循环语句的流程图说明说明： （1）For和和Next必须成对出现，缺一不可。必须成对出现，缺一不可。 （2）For 语句中的语句中的“循环变量循环变量”与与Next语句中的语句中的“循环变量循环变量”必须一致。必须一致。 （3）

3、当初值小于终值时，步长应为正数；）当初值小于终值时，步长应为正数；当初值大于终值时，步长应为负数当初值大于终值时，步长应为负数 （4）如果省略）如果省略Step，则步长为，则步长为1。 （5）循环体可以是一个或多个语句。）循环体可以是一个或多个语句。 例题二例题二S=0For i=1 to 8 step 3S=S+3Next iPrint s此循环语句中，循环变量是? 初值是? 终值是? 步长是多少?循环体中的语句是?练练 习：阅读程序给出结果，并在习：阅读程序给出结果，并在VB上上运行验证运行验证S=2For i=1 to 3 step2S=s+1Next iPrint sS=2For i=

4、1 to 3 S=s+1Next iPrint sS=2For i=5 to 3 step 2S=s+1Next iPrint sS=2For i=5 to 3 step -2S=s+1Next iPrint s程序分析实践程序分析实践(1)Private Sub Command1_Click() For A=1 To 10 Print A Next AEnd Sub运行结束时A的值是11循环次数为10结果是12345678910结果是S=5050运行结束时A的值是101循环次数为100(2)Private Sub Command1_Click() For A=1 To 100 S=S+A Next A Print “S=”; SEnd Sub结果是S=5050运行结束时A的值是0循环次数为100(3)Private Sub Command1_Click() For A=100 To 1 Step -1 S=S+A Next A Print “S=”; SEnd Sub学生探讨学生探讨 如何修改左边的程序来实现计算1*2*3*9*10的功能 Private Sub Command1_Click() For A=1 To 10 S=S*A Next A Print “S=”; SEnd Sub结果为S=0Private Sub Com