VFP循环结构程序设计

课题：循环结构程序设计目的要求：了解循环结构的概念，理解FORENDFOR、DO WHILEENDDO、SCANENDSCAN语句的格式、作用及流程，掌握循环结构的程序设计，领会循环结构在程序的作用。重点：循环语句的格式、作用与流程；循环结构程序的编写。 难点：流程与程序的编写。 学时：5学时教学过程及内容：导入：顺序结构、分支结构程序虽然容易编写，但不能反复运用。例如：从键盘输入10个数，判断其是奇数，还是偶数。对于这样的程序，我们仍用以前的方法进行编写，则代码太长，且不实际。那么就必须的用到循环语句。今天，我们来学习有关循环结构的有关内容。新授内容：概念：指根据问题的实际需要，多次重复执行某一段代码。在VF中，提供了FORENDFOR、DO WHILEENDDO、SCANENDSCAN三种循环语句。一、DO WHILEENDDO1、格式：DO WHILE 条件表达式 语句组（循环体）ENDDO2、功能：首先判断条件表达式的值，若为.T.，则执行循环中的语句组，若为.F.，则不执行语句组，转到ENDDO的后面。当遇到ENDDO时，则转到循环的开头，再次判断条件表达式。执行时，若遇到LOOP语句，则转到循环的开头。若遇到EXIT语句，则退出循环，转到ENDDO的后面。3、流程：4、例：从键盘输入10个数，判断其是奇数，还是偶数SET TALK OFFI=1DO WHILE I100 OR N=85?“优秀”CASE N=70？“良好”CASE N=60 ？“及格“OTHERWISE ？“不及格“ENDCASE WAIT “是否继续（Y/N）？” TO T IF UPPER(T)=”Y”EXIT ENDIFENDDO6、练习：从键盘输入购物金额，给出实收金额。要求能反复输入，直到输入“N“时终止。7、例：已知成绩表中每个学生的总分、平均分已算出，现请填写名次内容。SET TALK OFFUSE 成绩表INDEX ON 总分 TAG ZF DESCENDING GO TOP I=1DO WHILE NOT EOF()REPL 名次 with I I=I+1Skip 1ENDDOLIST USE SET TALK OFF8、练习：已知CG表中有学号、成绩、评语字段，现请根据成绩填写评语。9、实例：(1)死循环: 求1+3+4+5+97+99的和I=1S=0DO WHILE I=99S=S+IENDDO?S10、DO WHILEENDDO嵌套解释：一个DO WHILEENDDO句中包含另一个DO WHILEENDDO语句例：公鸡每只5元，母鸡每只3元，小鸡3只1元。用100元买100只鸡，问公鸡、母鸡、小鸡各多少？SET TALK OFFCLEARX=1DO WHILE X=20Y=1DO WHILE Y=5 exit endif ?sEndfor5、实例：求1*2*3*4*17*19的积。SET TALK OFFCLEARS=1FOR I=1 TO 19S=S*IENDFOR？SSET TALK ONRETURN 6练习：求2*4*6*18*20的积7、例：有一个数列，前两个数是1，1，第三个数是前两个数之和，以后的每个数都是其前两个数之和。现编程输出其前30个数SET TALK OFFCLEARN1=1N2=1？N1，N2FOR I=3 TO 30 N3=N2+N1？N3N1=N2N2=N3ENDFORSET TALK ON RETURN 8、FORENDFOR嵌套解释：一个FORENDFOR语句中包含另一个FORENDFOR语句。例：公鸡每只5元，母鸡每只3元，小鸡3只1元。用100元买100只鸡，问公鸡、母鸡、小鸡各多少？SET TALK OFFCLEARFOR X=1 TO 20FOR Y=1 TO 33Z=100-X-YIF X+Y+Z=X*5+Y*3+Z/3?X,Y,ZENDIFENDFORENDFORSET TALK ON RETURN 9、练习：用FORENDFOR求所有的水仙花数。三、SCANENDSCAN语句1、格式：SCAN 范围 FOR 条件表达式循环体ENDSCAN2、功能：首先将指针定位到第一条记录，然后判断not EOF（）的值或是否超出范围，若为.T.,则执行循环体，若为.F.，则转到ENDSCAN之后。执行循环体之后，当遇到ENDSCAN时，记录指针自动定位到下一条记录，然后现次判断NOT EOF（）的值或是否超出范围。3、流程：说明：SCANENDSCAN是针对表的循环，循环是否运行受记录指定的影响。4、例：显示XG表中记录为奇数的记录SET TALK OFFCLEARUSE XG SCAN IF MOD（RECNO（），2）0DISPLAY ENDIF ENDSCAN SET TALK ON RETURN 5、练习：已知成绩表中每个学生的总分、平均分已算出，现请填写名次内容6、程序实例：(1)use cg SCANREPL 平均分 WITH 总分/5 ENDSCAN(2)use xg SCAN NEXT 3DISPLAYSKIP ENDSCAN (3)use xg SCAN NEXT 3 FOR 性别=”男”display skip endscan 小结作业1