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之间所有整数的平方根之间所有整数的平方根Priv
2、ate 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 SubPrivate Sub Command1_Click()Form1.ClsFor i=1 to 1000 step 1 Print i, Sqr(i)Next iEnd SubFOR循环的格式循环的格式lFor 循环
3、变量=初值 to 终值 step 步长l语句组（循环体）lNext 循环变量 l例如:lFor i=1 to 100 step 1l print ilNext i For循环的执行过程循环的执行过程l演示：单步运行与监视窗口变量值查看l For语句的循环特点语句的循环特点控制循环体执行多次循环变量在每次循环执行的结束时自动修改阅读程序写结果阅读程序写结果lFor A=1 to 100l print AlNext AlS=1lFor A=1 to 10l S=s*AlNext AlFor A=100 to 1 step -1l s=s+AlNext AlFor A=1 to 10l A=A+1l
4、 print AlNext Afor循环解题的关键循环解题的关键l找出问题中重复部分l重复做的事情是什么？求求s=1+2+100的值的值lS=0lS=s+1lS=s+2llS=s+100lS=0lFor i=1 to 100l s=s+IlNext i要求24.+100的值，应该要如何修改以上程序？重复部分重复做：把I累加到S。作业作业1l任务1：输出1-100之间所有完全平方数(完全平方数是这样一种数：它可以写成一个正整数的平方。例如，36是6 6，49是7 7)。 作业作业2l任务2：编一个程序，输入N（N10），求N！12N的值。求所有水仙花数求所有水仙花数l如果一个三位数，它的每位数字
5、的立方和等于这个三位数，则称它为水仙花数。例如：15313 53 33，所以153是一个水仙花数。人工找出水仙花的过程人工找出水仙花的过程l100是水仙花数？l101是水仙花数？ll999是水仙花数？求所有水仙花数算法求所有水仙花数算法开始I1000?结束是否I100求出I的个位a,十位b和个位ca3+b3+c3=I?是输出III+1循环结构求水仙花数的程序求水仙花数的程序lDim I as integer,a as integer,b as integer,c as integerlFor i=100 to 999l a=i 100l b=(i mod 100) 10l c=(i mod 100) mod 10l if a3+b3+c3=i then print IlNext I 求i的三个位数字
