第6章级VFP课件.pptVIP

第6章 循环结构程序设计;6.1 循环结构语句; 当型循环的语法格式为： DO WHILE 〈条件〉 [〈命令列〉] [EXIT] [LOOP] ENDDO ;【例6-1】计算阶乘的程序（图6-2）。非负整数n的阶乘定义如下： 分析：求阶乘n!，可以采用累乘的方法，用变量t来存放累乘的积（初值为1），用变量i来存放“乘数”。i从1开始到n为止。 根据以上分析画出流程图，如图6-3所示。;根据流程图可写出命令按钮的Click事件代码如下。 n = THISFORM.Text1.Value t = 1 i = 1 DO WHILE i = n t = t * i i = i + 1 ENDDO Thisform.text2.value=t 另外，为了防止数据溢出，限制输入的整数不超过20。为此，编写文本框Text1的Valid事件代码如下： a = THIS.Value IF a 0 OR a 20 MESSAGEBOX(请输入不超过20的非负整数!) THIS.GotFocus RETURN 0 ELSE RETURN .T. ENDIF Text1的GotFocus事件代码： THIS.SelStart=0 THIS.SelLength=LEN(THIS.Text);【例6-2】输入两个正整数，求它们的最大公约数。如图6-4所示。 根据此分析画出流程图如图6-5所示。;命令按钮的Click事件代码： m = THISFORM.Text1.Value n = THISFORM.Text2.Value IF n * m = 0 MESSAGEBOX(两数都不能为0!) RETURN ENDIF IF m n t = m m = n n = t ENDIF r = m % n DO WHILE r != 0 m = n n = r r = m % n ENDDO THISFORM.Text3.Value = n;【例6-3】输入一个正整数，利用“当型”循环判断是否素数。 根据上述分析，画出流程图，如图6-7所示。;表单界面的设计参见前面章节，这里给出命令按钮的Click事件代码： n = THISFORM.Text1.Value s = 0 假设该数是素数 i = 2 DO WHILE i = SQRT(n) AND s = 0 IF n % i = 0 整除 s = 1 不是素数 ELSE i = i + 1 产生下一个除数 ENDIF ENDDO IF s = 0 a = 是一个素数 ELSE a = 不是素数 ENDIF = MESSAGEBOX(ALLT(STR(n)) + a, 64 + 0 + 0, 信息) THISFORM.Text1.SetFocus ;编写Text1的GotFocus事件代码，使文本框得到焦点后，文本立即被选中： THIS.SelStart = 0 THIS.SelLength = LEN(STR(THIS.Value)) ;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 IF s = 0 a = 是一个素数 ELSE a = 不是素数 ENDIF = MESSAGEBOX(ALLT(STR(n)) + a, 64 + 0 + 0, 信息) THISFORM.Text1.SetFocus ;【例6-5】求1! + 2! + 3! + … + 20!的值。 分析：采用循环嵌套的方法，见流程图，如图6-8所示。;编写命令按钮Command1的Click事件代码为： s = 0 FOR n = 1 TO 20 t = 1 FOR m = 1 T