第6章二级vfp课件

《第6章二级vfp课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章循环结构程序设计6.1循环结构语句6.2列表框与组合框控件6.3页框6.1循环结构语句三种循环语句：6.1.1当型循环命令DOWHILE想要在某一条件满足时执行循环，可以使用当型循环（DOWHILE）结构。当型循环的N-S流程图，如图6-1所示。当条件{该（循环）条件成立吗？}a块{条件成立时所执行的操作块，即循环体}当型循环的语法格式为：DOWHILE〈条件〉[〈命令列〉][EXIT][LOOP]ENDDO【例6-1】计算阶乘的程序（图6-2）。非负整数n的阶乘定义如下：分析：求阶乘n!，可以采用累乘的方法，用变量t来存放累乘

2、的积（初值为1），用变量i来存放“乘数”。i从1开始到n为止。根据以上分析画出流程图，如图6-3所示。输入nt←1{累乘器赋初值}i←1{计数器赋初值}当i<=n{当计数器的值不超过n时}t←t×i{累乘}i←i+1{计数器增1}输出t{输出乘积}根据流程图可写出命令按钮的Click事件代码如下。n=THISFORM.Text1.Valuet=1i=1DOWHILEi<=nt=t*ii=i+1ENDDOThisform.text2.value=t另外，为了防止数据溢出，限制输入的整数不超过20。为此，编写文本框Text1的Valid事

3、件代码如下：a=THIS.ValueIFa<0ORa>20MESSAGEBOX("请输入不超过20的非负整数!")THIS.GotFocusRETURN0ELSERETURN.T.ENDIFText1的GotFocus事件代码：THIS.SelStart=0THIS.SelLength=LEN(THIS.Text)【例6-2】输入两个正整数，求它们的最大公约数。如图6-4所示。根据此分析画出流程图如图6-5所示。输入m，n大数放入m，小数放入n求m/n的余数当r≠0m←nn←r求m/n的余数输出n{输出最大公约数}命令按钮的Click

4、事件代码：m=THISFORM.Text1.Valuen=THISFORM.Text2.ValueIFn*m=0MESSAGEBOX("两数都不能为0!")RETURNENDIFIFm

5、面的设计参见前面章节，这里给出命令按钮的Click事件代码：n=THISFORM.Text1.Values=0&&假设该数是素数i=2DOWHILEi<=SQRT(n)ANDs=0IFn%i=0&&整除s=1&&不是素数ELSEi=i+1&&产生下一个除数ENDIFENDDOIFs=0a='是一个素数'ELSEa='不是素数'ENDIF=MESSAGEBOX(ALLT(STR(n))+a,64+0+0,"信息")THISFORM.Text1.SetFocus编写Text1的GotFocus事件代码，使文本框得到焦点后，文本立即被选中：

6、THIS.SelStart=0THIS.SelLength=LEN(STR(THIS.Value))6.1.2步长型循环命令FOR若事先知道循环次数，则可以使用步长型循环（FOR…ENDFOR）结构。步长型循环可以根据给定的次数重复执行循环体。其语法结构为：FOR〈内存变量〉=〈初值〉TO〈终值〉[STEP〈步长值〉][〈命令列〉][LOOP][EXIT][〈命令列〉]ENDFOR

7、NEXT【例6-4】利用“步长型”循环判断素数的程序。只需修改命令按钮Command1的Click事件代码：n=THISFORM.Text1.Values

8、=0i=2FORi=2TOSQRT(n)IFn%i=0s=1EXITENDIFENDFORIFs=0a='是一个素数'ELSEa='不是素数'ENDIF=MESSAGEBOX(ALLT(STR(n))+a,64+0+0,"信息")THISFORM.Text1.SetFocus【例6-5】求1!+2!+3!+…+20!的值。分析：采用循环嵌套的方法，见流程图，如图6-8所示。s←0{累加器赋初值}n从1到20{外层循环条件}t←1{累乘器赋初值}m从1到n{内层循环条件}t←t*m{累乘}s←s+t{累加}输出s{输出累加和}图6-8流

9、程图编写命令按钮Command1的Click事件代码为：s=0FORn=1TO20t=1FORm=1TOnt=t*mENDFORs=s+tENDFORTHISFORM.Text1.Value=s6.2列表框与组合框控件6