新编VisualFoxPro程序设计实用作者张洪瀚金一宁韩雪娜vfp第10周讲稿课案(461KB).pptVIP

教学目的与要求 掌握一层循环DO WHILE 掌握一层循环FOR 循环结构 循环：对同一程序段重复执行若干次 循环体：被重复执行的程序段称为循环体 DO WHILE－ENDDO FOR－ENDFOR SCAN－ENDSCAN（自看） 当型循环结构 格式: DO WHILE 条件表达式 循环体　 ENDDO　 当型循环结构续 流程: 系统首先判断循环条件真假，若为真，执行循环体语句，遇到ENDDO流程返回DO WHILE继续测试条件，只要条件为真，反复执行循环体，直到最后循环条件变为假，执行ENDDO后的语句。 语句 表达式 真 假 当型循环结构续 例1 :读程序，写出运行结果。 X=1 　 ①循环变量赋初值 DO WHILE X10 ②循环条件 ??X X=X+1 ③循环变量增值 ENDDO ①②③称作循环三要素 运行结果： 1 2 3 4 5 6 7 8 9 提问：若ENDDO后加一条?X 则结果如何？ 若输出1-100 ，如何修改程序？ 若输出1 3 5 7 9，如何修改程序？ 当型循环结构续 说明： (1)条件表达式一般是关系式或逻辑式，结果为逻辑值。如：DO WHILE X10。 (2)出现在条件表达式中的变量称为循环变量 (3)循环变量增值的目的是使循环条件趋向于假，最后变为假，从而出循环。循环条件永真的循环是死循环。 思考：上例中去掉语句X=X+1，结果如何？ ? 累加算法 求１＋２＋３＋．．．＋１００ 累加算法： 循环前：累加变量S=0 循环体内：累加语句S=S+T 思路：例1中的X可以表示本题中数列中的每一项，在循环体中加入累加语句S=S＋X即可。此处X即为T（需累加的数据项）。出循环后，输出累加变量S。 累加算法续 求１＋２＋３＋．．．＋１００ 源程序: S=0 X=1 DO WHILE X=100 S=S+X X=X+1 ENDDO ?S=,S 累乘算法 求N!(１×２×３×…×N）,N从键盘输入 F＝F*I F的初值？ 遍历数据表 OPEN DATABASE 职工管理 USE 职工 记录指针指向第一条记录 DO WHILE ！EOF() 记录指针未指向结束 DISP 标志就循环 SKIP 指针指向下一条记录 ENDDO 遍历数据表 实现查找成绩表中最高分、最低分及计算平均分的表单 此表单中用于显示结果的标签控件两个主要属性设置为: AUTOSIZE .T. WORDWRAP .T.。 FOR循环结构 语句格式: ① ② ④ FOR循环变量=初值表达式TO终值表达式 [STEP步长] 循环体 ③ ENDFOR 流程: 只要循环变量的值不超过终值，就反复执行循环体，当循环变量值大于终值时，跳过循环体语句，到ENDFOR后面执行。 ①仅执行一次，②③④构成循环。 FOR循环结构续 FOR X=1 TO 5 STEP 1 ??X ENDFOR 提问：STEP 2？STEP –1？ 说明: (1)FOR、ENDFOR成对出现。 (2)步长可正可负，表示递增或递减，步长为1，可以缺省。 FOR循环结构续 S=0 FOR X=1 TO 100 S=S+X ENDFOR 求１＋２＋３＋．．．＋１００ 提问:求100以内奇数和,如何改?求100以内偶数和呢? FOR循环结构续 假 真 输入 N 输出F F=F*I I=I+1 I=N？ I=1、F=1 求n! INPUT TO N F=1 FOR I=1 TO N F=F*I ENDFOR ?F I F 1 1(1!) 2 2(2!) 3 6(3!) 4 24(4!) …… …… FOR循环结构续 INPUT TO N F=1 S=0 FOR I=1 TO N F=F*I S=S+F ENDFOR ?S 求１!+２!+３!+．．．+N! 上例中的F就是累加项 字符串逆序 输入一个英文字符串，将其逆序输出。 思路：将字符串从最后用SUBS函数逐个字符取出，连接到一个变量T中，最后将T赋给另一个文本框的Value属性。 字符串逆序 输入一个英文字符串，将其逆序输出。 “反序”按钮Click事件代码： SS=ALLTRIM(THISFORM.TEXT1.VALUE) T=‘’ L=LEN(SS) FOR I=L TO 1 STEP –1 T=T+SUBS(SS,I,1) ENDFOR THISFO