补充内容循环及其案例.pptVIP

循环及其案例 循环结构 程序设计中, 经常需要重复相同的计算或处理过程，由此形成了循环结构。 循环结构是程序中可重复执行的语句序列 。 被重复执行的程序块称为“循环体”。 循环种类 例：求1000内所有的同构数 同构数：一个数如果出现在它的平方的右边，则称该数为同构数，如1在1^2=1的右边，25在25^2=625的右边，1和25都是同构数。 分析：可以将从1~1000中的所有的数都一一判断，看其是否为同构数，如果是，则输出（用循环来实现判断，其中判断并输出则是循环体） 判断数为同构数 例：25，25^2=625，所以25是同构数 例：请找出100到999所有的水仙花数 水仙花数: 一个三位数ABC，A、B、C分别表示百位、十位、个位上的数值，如果数ABC=A^3+B^3+C^3，则数ABC就是一个水仙花数。 循环控制变量i取值：100-999 每一个i都参与判断，判断过程及结果输出就是“循环体” 判断是否水仙花数 判断i是否为水仙花数： i中取出百位（bw）、十位（sw）、个位（gw）上的数值 bw=？ sw=？ gw=？ 例：由用户输入一个数n，并判断数N是否为素数 基本思想：从2开始到int(sqr(n)），逐个去判断是否能整除n，如果都不能则说明n是素数；如果有一个可以整除n，则说明不是素数 为什么是到int(sqr(n))，为不是到n-1呢？ 24=2*12=3*8=4*6=6*4=8*3=12*2 While /wend 循环 例1 循环次数未知案例 fact=1 n=2 m=val(inputbox(“输入m” , ””)) while fact=m fact=fact*n n=n+1 wend print n-2 DO/LOOP循环 例1 do n=val(inputbox(“请输入”,””)) loop until n5 and int(n)=n print n 问：这段程序的作用是什么？ 例2 Dim n as integer do until n mod 2=0 and sgn(n)=1 n=inputbox(“请输入”,””) loop print n 问：这段程序的作用是什么？ 不同循环语句的比较 利用循环结构实现多项式求和问题 1、对于能够确定有多少项的可以用for/next循环,也可以用do/loop语句或while/wend语句 2、对于不能确定其项数的类型适合用do/loop语句或while/wend语句。 3、解题思想： 首先确定有多少项相加 其次找出单项的通式 最后，验首项 通式： 和变量= 和变量+单项 1、s=1+2+3+4+…+100 2、s=1-2/x+3/x^2-4/x^3+……-10/x^9 3、S=1+2+3+…n=5000时，n的最大值 作业 课后习题 一、选择题4、5、6 二、程序阅读题4、5、6 三、程序填空题1、2、3 实验任务： 1、课后习题： 四、程序设计题4 2、求出1~100之间所有的素数，并以每行5个数的方式打印在窗体上 浙师大行知学院 * Do {while|until} 条件 循环体 [exit do] Loop For i=E1 to E2 step E3 循环体 [exit for] Next i While 条件 循环体 Wend For i=E1 to E2 step E3 循环体 [exit for] Next i While 条件 循环体 Wend Do {while|until} 条件 循环体 [exit do] Loop For i=E1 to E2 step E3 循环体 [exit for] Next i While 条件 循环体 Wend Do/loop For /next While/Wend For /next For i=E1 to E2 step E3 循环体 [exit for] Next i 625 mod 100 25 取出 要判断三种情况： 1、若数k是一个个位数，则？ 2、若数K是两位数时，则？ 3、若数K为三位数时，则？ 比较，判断是否相等 只要上述三种有一种满足，则是同构数，然后输出 Private sub form_click() dim k as long ,x as boolean, y as boolean dim z as boolean for k=1 to 999 ‘前一个“=”是赋值号，后一个“=”是关系运算符 x=k=k^2 mod 10 ‘用于判断K是 1