程序的循环结构-for循环.ppt

《程序的循环结构-for循环.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

FOR循环语句 输出1至10之间所有整数的平方根PrivateSubCommand1_Click()Form1.ClsPrint1,Sqr(1)Print2,Sqr(2)Print3,Sqr(3)Print4,Sqr(4)Print5,Sqr(5)Print6,Sqr(6)Print7,Sqr(7)Print8,Sqr(8)Print9,Sqr(9)Print10,Sqr(10)EndSub如果要输出1－10000之间所有整数的平方根，程序要怎么写？ 输出1至1000之间所有整数的平方根PrivateSubCommand1_Click()Form1.ClsPrint1,Sqr(1)Print2,Sqr(2)Print3,Sqr(3)Print4,Sqr(4)Print5,Sqr(5)Print6,Sqr(6)Print7,Sqr(7)Print8,Sqr(8)Print9,Sqr(9)Print10,Sqr(10)……EndSubPrivateSubCommand1_Click()Form1.ClsFori=1to1000step1Printi,Sqr(i)NextiEndSub FOR循环的格式For循环变量=初值to终值step步长语句组（循环体）Next循环变量例如:Fori=1to100step1printiNexti For循环的执行过程演示：单步运行与监视窗口变量值查看 For语句的循环特点控制循环体执行多次循环变量在每次循环执行的结束时自动修改 阅读程序写结果ForA=1to100printANextAS=1ForA=1to10S=s*ANextAForA=100to1step-1s=s+ANextAForA=1to10A=A+1printANextA for循环解题的关键找出问题中重复部分重复做的事情是什么？ 求s=1+2+…+100的值S=0S=s+1S=s+2…S=s+100S=0Fori=1to100s=s+INexti要求2＋4＋..+100的值，应该要如何修改以上程序？重复部分重复做：把I累加到S。 作业1任务1：输出1-100之间所有完全平方数(完全平方数是这样一种数：它可以写成一个正整数的平方。例如，36是6×6，49是7×7)。 作业2任务2：编一个程序，输入N（N＜＝10），求N！＝1＊2＊…＊N的值。 求所有水仙花数如果一个三位数，它的每位数字的立方和等于这个三位数，则称它为水仙花数。例如：153＝13＋53＋33，所以153是一个水仙花数。 人工找出水仙花的过程100是水仙花数？101是水仙花数？……999是水仙花数？ 求所有水仙花数算法开始I＞＝1000?结束是否I100求出I的个位a,十位b和个位ca3+b3+c3=I?是输出III+1循环结构 求水仙花数的程序DimIasinteger,aasinteger,basinteger,casintegerFori=100to999a=i100b=(imod100)10c=(imod100)mod10ifa^3+b^3+c^3=ithenprintINextI求i的三个位数字