程序的循环结构-for循环VIP免费

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)NextiEndSubFOR循环的格式For循环变量=初值to终值step步长语句组（循环体）Next循环变量例如:Fori=1to100step1printiNextiFor循环的执行过程演示：单步运行与监视窗口变量值查看For语句的循环特点控制循环体执行多次循环变量在每次循环执行的结束时自动修改阅读程序写结果ForA=1to100printANextAS=1ForA=1to10S=s*ANextAForA=100to1step-1s=s+ANextAForA=1to10A=A+1printANextAfor循环解题的关键找出问题中重复部分重复做的事情是什么？求s=1+2+…+100的值S=0S=s+1S=s+2…S=s+100S=0Fori=1to100s=s+INexti要求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,casintegerFori=100to999a=i\100b=(imod100)\10c=(imod100)mod10ifa^3+b^3+c^3=ithenprintINextI求i的三个位数字