循环结构程序设计总结.pptxVIP

第6章 循环结构程序设计;I=1 DO WHILE I100 … I=I+1 ENDDO;6.1 循环结构语句;条件; S=0 P=1 DO WHILE P=10 S=S+P P=P+1 ENDDO thisform.text1.value=s ; 5!的值;【例6-1】计算阶乘的程序N=1*2*3*4*5*6*7…… ;【例6-2】输入两个正整数，求它们的最大公约数。 分析：求最大公约数可以用“辗转相除法”，方法如下： ① 以大数m作被除数，小数n做除数，相除后余数为r。 ② 若r ≠ 0，则m ← n，n ← r，继续相除得到新的r。若仍有r ≠ 0，则重复此过程，直到r = 0为止。 ③ 最后的n就是最大公约数。 ; ;【例6-3】输入一个正整数，利用“当型”循环判断是否素数。 素数:只有1与本身是因子,仅能被1与自己整除 判断大于2整数N是否为质数（素数）,只要判断N除以2到n-1（或到SQRT(N)）都不能整除即可 ; ;6.1.2 步长型循环命令FOR 若事先知道循环次数，则可以使用步长型循环（FOR…ENDFOR）结构。其语法结构为： FOR 内存变量〉=〈初值〉TO〈终值〉 [STEP 〈步长值〉] [〈命令列〉] [LOOP] [EXIT] [〈命令列〉] ENDFOR | NEXT ;【例6-4】利用“步长型”循环判断素数的程序。 只需修改命令按钮Command1的Click事件代码： n = THISFORM.Text1.Value s = 0 *i = 2 FOR i = 2 TO SQRT(n) IF n % i = 0 s = 1 EXIT ENDIF ENDFOR;【例6-5】求1! + 2! + 3! + … + 20!的值。 分析：采用循环嵌套的方法，见流程图，如图6-8所示。; S=0 T=1 N=1 DO WHILE N=5 T=T*N S=S+T N=N+1 ENDDO ;转跳语句(LOOP); 例：求0～100之间奇数之和 X=0 Y=0 DO WHILE X100 X=X+1 IF INT(X/2)=X/2 LOOP ELSE Y=Y+X ENDIF ENDDO Thisform.text1.value=y ;出口语句(EXIT);例6-3：计算1＋2＋3＋…＋100的和 N＝1 S＝0 DO WHILE .T. IF N100 EXIT ENDIF S=S+N N=N+1 ENDDO Thisform.text1.value=s;多重循环中LOOP和EXIT的作用域 ;DO WHILE DO WHILE LOOP EXIT ENDDO LOOP EXIT ENDDO;6.2 列表框与组合框控件;【例6-6】求从2000年到2100年之间的所有闰年。 分析：设n为年??数，若n同时满足如下两个条件则n为闰年： ① n能被4整除。 ② n不能被100整除，或者n能被400整除。 。 ;3. 在列表框中显示多列 修改列表框的ColumnCount属性、ColumnWidths属性可以在列表框中显示多列选项。 【例6-9】简易数学用表。显示整数1～100的平方、平方根、自然对数和e指数，如图6-16所示。 补:VALUE ：显示与BoundColumn绑定的列的VALUE 值 DISPLAYVALUE：显示第一列数据 ;6.2.2 使用组合框(Style: 0-下拉组合框，2-下拉列表框。) 常用属性: BoundColumn:列表框中与Value捆绑的列。 RowScoureType:列表源类型。6-字段,5-数组,7文件 RowSoure: 列表内容来源。数组、字段、表结构 ControlSoure:捆绑的变量名，存选定的数据项。 Value: N:所选择的项值;C:显示内容值 Dis