《VFP循环结构程序设计》由会员分享，可在线阅读，更多相关《VFP循环结构程序设计（6页珍藏版）》请在金锄头文库上搜索。
1、课题：循环结构程序设计目的要求：了解循环结构的概念，理解 FORENDFOR、DO WHILEENDDO、SCANENDSCAN 语句的格式、作用及流程，掌握循环结构的程序设计，领会循环结构在程序的作用。重点：循环语句的格式、作用与流程；循环结构程序的编写。 难点：流程与程序的编写。 学时：5 学时教学过程及内容：导入：顺序结构、分支结构程序虽然容易编写，但不能反复运用。例如：从键盘输入 10 个数，判断其是奇数，还是偶数。对于这样的程序，我们仍用以前的方法进行编写，则代码太长，且不实际。那么就必须的用到循环语句。今天，我们来学习有关循环结构的有关内容。新授内容：概念：指根据问题的实际需要，多
2、次重复执行某一段代码。在 VF 中，提供了 FORENDFOR、DO WHILEENDDO、SCANENDSCAN 三种循环语句。一、DO WHILEENDDO1、格式：DO WHILE 条件表达式语句组（循环体）ENDDO2、功能：首先判断条件表达式的值，若为.T.，则执行循环中的语句组，若为.F.，则不执行语句组，转到 ENDDO 的后面。当遇到 ENDDO 时，则转到循环的开头，再次判断条件表达式。执行时，若遇到 LOOP 语句，则转到循环的开头。若遇到 EXIT 语句，则退出循环，转到 ENDDO 的后面。3、流程：4、例：从键盘输入 10 个数，判断其是奇数，还是偶数SET TALK
3、 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 名次 wi
4、th II=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=5exiten
5、dif?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 嵌套解释：一个 FORENDFO
6、R 语句中包含另一个 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
7、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 总分/5ENDSCAN(2)use xg SCAN NEXT 3DISPLAYSKIP ENDSCAN (3)use xg SCAN NEXT 3 FOR 性别=”男”display skip endscan 小结作业1、已知 s=1+2+3+4+，求 S1000 的最小值2、求 5！+10！+15！+20！3、已知 S=12+22+32+N2，求 N2100 的 S 值。4、有面值为 1 元、2 元和 5 元的人民币苦干，现从中取 20 张，使其总值为 60元，问有多少种取法。
