《程序的循环结构for循环课件.ppt》由会员分享，可在线阅读，更多相关《程序的循环结构for循环课件.ppt（15页珍藏版）》请在三一办公上搜索。
1、FOR循环语句,输出1至10之间所有整数的平方根,Private Sub Command1_Click()Form1.ClsPrint 1, Sqr(1)Print 2, Sqr(2)Print 3, Sqr(3)Print 4, Sqr(4)Print 5, Sqr(5)Print 6, Sqr(6)Print 7, Sqr(7)Print 8, Sqr(8)Print 9, Sqr(9)Print 10, Sqr(10)End Sub,如果要输出110000之间所有整数的平方根，程序要怎么写？,输出1至1000之间所有整数的平方根,Private Sub Command1_Click()F
2、orm1.ClsPrint 1, Sqr(1)Print 2, Sqr(2)Print 3, Sqr(3)Print 4, Sqr(4)Print 5, Sqr(5)Print 6, Sqr(6)Print 7, Sqr(7)Print 8, Sqr(8)Print 9, Sqr(9)Print 10, Sqr(10)End Sub,Private Sub Command1_Click()Form1.ClsFor i=1 to 1000 step 1 Print i, Sqr(i)Next iEnd Sub,FOR循环的格式,For 循环变量=初值 to 终值 step 步长语句组（循环体）N
3、ext 循环变量 例如:For i=1 to 100 step 1 print iNext i,For循环的执行过程,演示：单步运行与监视窗口变量值查看,For语句的循环特点,控制循环体执行多次循环变量在每次循环执行的结束时自动修改,阅读程序写结果,For A=1 to 100 print ANext A,S=1For A=1 to 10 S=s*ANext A,For A=100 to 1 step -1 s=s+ANext A,For A=1 to 10 A=A+1 print ANext A,for循环解题的关键,找出问题中重复部分重复做的事情是什么？,求s=1+2+100的值,S=0S
4、=s+1S=s+2S=s+100,S=0For i=1 to 100 s=s+INext i,要求24.+100的值，应该要如何修改以上程序？,重复部分,重复做：把I累加到S。,作业1,任务1：输出1-100之间所有完全平方数(完全平方数是这样一种数：它可以写成一个正整数的平方。例如，36是6 6，49是7 7)。,作业2,任务2：编一个程序，输入N（N10），求N！12N的值。,求所有水仙花数,如果一个三位数，它的每位数字的立方和等于这个三位数，则称它为水仙花数。例如：15313 53 33，所以153是一个水仙花数。,人工找出水仙花的过程,100是水仙花数？101是水仙花数？999是水仙花数？,求所有水仙花数算法,开始,I1000?,结束,是,否,I100,求出I的个位a,十位b和个位c,a3+b3+c3=I?,是,输出I,II+1,循环结构,求水仙花数的程序,Dim I as integer,a as integer,b as integer,c as integerFor i=100 to 999 a=i 100 b=(i mod 100) 10 c=(i mod 100) mod 10 if a3+b3+c3=i then print INext I,求i的三个位数字,
