第9课for循环for循环语句.ppt

Visual Basic循环程序结构,For.Next 语句,求出100以内能被3整除的所有正整数,求1900-2100间的所有闰年,棋盘上的麦粒,* * * * *,有一类问题具有特点：操作步数很多，步骤有重复性,开始,结束,X能被3整除,Y,Y,X=1,输出X的值,X=x+1,X<=100,N,Y,N,示例： Private Sub Command1_Click( ) for i=1 to 10 Print i Next i End Sub,For-next 循环语句的格式,For 循环变量=初值 To 终值 【Step 步长】 循环体 Next 循环变量,For 循环语句的执行过程,1，循环变量被赋予初值 2，判断循环变量是否超过终值，如果超过，则退出循环执行NEXT后面的语句；如果没有超过则执行循环体。 3，遇到NEXT语句，则循环变量增加一个步长，转到（2），继续循环。,For-next 循环语句的流程图,说明： （1）For和Next必须成对出现，缺一不可。 （2）For 语句中的“循环变量”与Next语句中的“循环变量”必须一致。 （3）当初值小于终值时，步长应为正数；当初值大于终值时，步长应为负数 （4）如果省略Step，则步长为1。 （5）循环体可以是一个或多个语句。,例题二 S=0 For i=1 to 8 step 3 S=S+3 Next i Print s 此循环语句中，循环变量是? 初值是? 终值是? 步长是多少? 循环体中的语句是?,练 习：阅读程序给出结果，并在VB上运行验证,S=2 For i=1 to 3 step2 S=s+1 Next i Print s,S=2 For i=1 to 3 S=s+1 Next i Print s,S=2 For i=5 to 3 step 2 S=s+1 Next i Print s,S=2 For i=5 to 3 step -2 S=s+1 Next i Print s,程序分析实践,(1) Private Sub Command1_Click() For A=1 To 10 Print A Next A End Sub,运行结束时A的值是11 循环次数为10,结果是,1 2 3 4 5 6 7 8 9 10,结果是S=5050,运行结束时A的值是101 循环次数为100,(2) Private Sub Command1_Click() For A=1 To 100 S=S+A Next A Print “S=”; S End 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=”; S End Sub,学生探讨,如何修改左边的程序来实现计算1*2*3*9*10的功能,Private Sub Command1_Click() For A=1 To 10 S=S*A Next A Print “S=”; S End Sub 结果为S=0,Private Sub Command1_Click() S=1 For A=1 To 10 S=S*A Next A Print “S=”; S End Sub 结果为S=3628800,求1970-2100间的所有闰年,、普通年能被4整除且不能被100整除的为闰年。 、世纪年能被400整除的是闰年。,实例讲解,