vfp循环结构程序设计

《vfp循环结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、[课题]：循环结构程序设计[目的要求]：了解循环结构的概念，理解FOR……ENDFOR、DOWHILE……ENDDO、SCAN……ENDSCAN语句的格式、作用及流程，掌握循环结构的程序设计，领会循环结构在程序的作用。[重点]：循环语句的格式、作用与流程；循环结构程序的编写。[难点]：流程与程序的编写。[学时]：5学时[教学过程及内容]：导入：顺序结构、分支结构程序虽然容易编写，但不能反复运用。例如：从键盘输入10个数，判断其是奇数，还是偶数。对于这样的程序，我们仍用以前的方法进行编写，则代码太长，且不实际。那么就必须的用到循环语

2、句。今天，我们来学习有关循环结构的有关内容。新授内容：概念：指根据问题的实际需要，多次重复执行某一段代码。在VF中，提供了FOR……ENDFOR、DOWHILE……ENDDO、SCAN……ENDSCAN三种循环语句。一、DOWHILE……ENDDO1、格式：DOWHILE条件表达式语句组（循环体）ENDDO2、功能：首先判断条件表达式的值，若为.T.，则执行循环中的语句组，若为.F.，则不执行语句组，转到ENDDO的后面。当遇到ENDDO时，则转到循环的开头，再次判断条件表达式。执行时，若遇到LOOP语句，则转到循环的开头。若遇到

3、EXIT语句，则退出循环，转到ENDDO的后面。3、流程：4、例：从键盘输入10个数，判断其是奇数，还是偶数SETTALKOFFI=1DOWHILEI<=10CLEARINPUT“请输入第”+str(I,2)+“个数”TONIFMOD（N，2）=0？“偶数”ELSE？“奇数“ENDIFI=I+1ENDDOSETTALKOFFRETURN5、练习：求1+3+4+5……+97+99的和。6、例：从键盘输入成绩，给出评语。要求能反复输入，直到输入“N“时终止。SETTALKOFFDOWHILE.T.CLEARINPUT“请输入成绩：”T

4、ONIFN>100ORN<0?”非法成绩“LOOPENDIFDOCASECASEN>=85?“优秀”CASEN>=70？“良好”CASEN>=60？“及格“OTHERWISE？“不及格“ENDCASEWAIT“是否继续（Y/N）？”TOTIFUPPER(T)=”Y”EXITENDIFENDDO6、练习：从键盘输入购物金额，给出实收金额。要求能反复输入，直到输入“N“时终止。7、例：已知成绩表中每个学生的总分、平均分已算出，现请填写名次内容。SETTALKOFFUSE成绩表INDEXON总分TAGZFDESCENDINGGOTOPI

5、=1DOWHILENOTEOF()REPL名次withII=I+1Skip1ENDDOLISTUSESETTALKOFF8、练习：已知CG表中有学号、成绩、评语字段，现请根据成绩填写评语。9、实例：(1)死循环:求1+3+4+5……+97+99的和I=1S=0DOWHILEI<=99S=S+IENDDO?S(2)0次循环I=1S=0DOWHILEI>=99S=S+IENDDO?S10、DOWHILE……ENDDO嵌套解释：一个DOWHILE……ENDDO句中包含另一个DOWHILE……ENDDO语句例：公鸡每只5元，母鸡每只3元，

6、小鸡3只1元。用100元买100只鸡，问公鸡、母鸡、小鸡各多少？SETTALKOFFCLEARX=1DOWHILEX<=20Y=1DOWHILEY<=33Z=100-X-YIFX+Y+Z=X*5+Y*3+Z/3?X,Y,ZENDIFY=Y+1ENDDOX=X+1ENDDOSETTALKOFFRETURN11、练习：求所有的水仙花数，指一个三位数等于其各数的立方之和二、FOR……ENDFOR1、格式：FOR内存变量=初值TO终值[STEP步长]循环体ENDFOR

7、NEXT2、功能：首先将初值赋给内存变量，然后判断内存变量的值是否超过

8、终值（当步长为正时，为大于；当步长为负时，为小于）。若没有超过，则执行循环体。若超过，则转到ENDFOR之后。在执行循环后，当遇到ENDFOR时，则内存变量自动加一个步长值，然后转到开头处，继续判断内存变量的值是否超过终值。说明：若没有步长，则默认为13、流程：4、例：(1)分析下程序，写出输出结果Fori=1to10step2?iEndfor(2)分析下程序，写出输出结果Fori=10to1step-2?iEndfor(3)分析下程序，写出输出结果或指出问题Fori=1to10step-2?sEndfor(4)分析下程序，写出输

9、出结果。Fori=1to10step2ifi>=5exitendif?sEndfor5、实例：求1*2*3*4*……*17*19的积。SETTALKOFFCLEARS=1FORI=1TO19S=S*IENDFOR？SSETTALKONRETURN6