新编Visual FoxPro 程序设计实用教程 vfp第10周讲稿.ppt

《新编Visual FoxPro 程序设计实用教程 vfp第10周讲稿.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、教学目的与要求掌握一层循环DOWHILE掌握一层循环FOR循环结构循环：对同一程序段重复执行若干次循环体：被重复执行的程序段称为循环体DOWHILE－ENDDOFOR－ENDFORSCAN－ENDSCAN（自看）当型循环结构格式:DOWHILE<条件表达式>循环体ENDDO当型循环结构续流程:系统首先判断循环条件真假，若为真，执行循环体语句，遇到ENDDO流程返回DOWHILE继续测试条件，只要条件为真，反复执行循环体，直到最后循环条件变为假，执行ENDDO后的语句。语句表达式真假当型循环结构续例1:读程序，写出运行结果。X=1　&&①循环变量赋初值DOWHILE

2、X<10&&②循环条件??XX=X+1&&③循环变量增值ENDDO①②③称作循环三要素运行结果：123456789提问：若ENDDO后加一条?X则结果如何？若输出1-100，如何修改程序？若输出13579，如何修改程序？当型循环结构续说明：(1)条件表达式一般是关系式或逻辑式，结果为逻辑值。如：DOWHILEX<10。(2)出现在条件表达式中的变量称为循环变量(3)循环变量增值的目的是使循环条件趋向于假，最后变为假，从而出循环。循环条件永真的循环是死循环。思考：上例中去掉语句X=X+1，结果如何？累加算法求１＋２＋３＋．．．＋１００累加算法：循环前：累加变量S=0

3、循环体内：累加语句S=S+T思路：例1中的X可以表示本题中数列中的每一项，在循环体中加入累加语句S=S＋X即可。此处X即为T（需累加的数据项）。出循环后，输出累加变量S。累加算法续求１＋２＋３＋．．．＋１００源程序:S=0X=1DOWHILEX<=100S=S+XX=X+1ENDDO?'S=',S累乘算法求N!(１×２×３×…×N）,N从键盘输入F＝F*IF的初值？遍历数据表OPENDATABASE职工管理USE职工&&记录指针指向第一条记录DOWHILE！EOF()&&记录指针未指向结束DISP标志就循环SKIP&&指针指向下一条记录ENDDO遍历数据表实现查找

4、成绩表中最高分、最低分及计算平均分的表单此表单中用于显示结果的标签控件两个主要属性设置为:AUTOSIZE.T.WORDWRAP.T.。FOR循环结构语句格式:①②④FOR<循环变量>=<初值表达式>TO<终值表达式>[STEP<步长>]<循环体>③ENDFOR流程:只要循环变量的值不超过终值，就反复执行循环体，当循环变量值大于终值时，跳过循环体语句，到ENDFOR后面执行。①仅执行一次，②③④构成循环。FOR循环结构续FORX=1TO5STEP1??XENDFOR提问：STEP2？STEP–1？说明:(1)FOR、ENDFOR成对出现。(2)步长可正可负，表示递

5、增或递减，步长为1，可以缺省。FOR循环结构续S=0FORX=1TO100S=S+XENDFOR求１＋２＋３＋．．．＋１００提问:求100以内奇数和,如何改?求100以内偶数和呢?FOR循环结构续假真输入N输出FF=F*II=I+1I<=N？I=1、F=1求n!INPUTTONF=1FORI=1TONF=F*IENDFOR?FIF11(1!)22(2!)36(3!)424(4!)…………FOR循环结构续INPUTTONF=1S=0FORI=1TONF=F*IS=S+FENDFOR?S求１!+２!+３!+．．．+N!上例中的F就是累加项字符串逆序输入一个英文字符串，

6、将其逆序输出。思路：将字符串从最后用SUBS函数逐个字符取出，连接到一个变量T中，最后将T赋给另一个文本框的Value属性。字符串逆序输入一个英文字符串，将其逆序输出。“反序”按钮Click事件代码：SS=ALLTRIM(THISFORM.TEXT1.VALUE)T=‘’L=LEN(SS)FORI=LTO1STEP–1T=T+SUBS(SS,I,1)ENDFORTHISFORM.TEXT2.VALUE=TFORI=1TOLT=T+SUBS(SS,L-I+1,1)ENDFOR可以将反序钮的Click事件代码作为文本框Text1的InteractiveChange事件

7、代码，取消“反序”钮。当文本框值改变时，激活InteractiveChange事件2021/9/14LOOP在循环体中执行到LOOP语句时，结束循环体的本次执行，FOR语句转去循环变量增值，然后再次判断循环条件是否成立；DOWHILE结构直接返回测试条件。X=.T.Y=0DOWHILEXY=Y+1IFY/7=INT(Y/7)??STR(Y,4)ELSELOOPENDIFIFY>20X=.F.ENDIFENDDO714212021/9/14EXIT在循环体中执行到EXIT语句时，流程转到循环的下一条语句继续执行。说明：LOOP和EXIT语句应与IF配合使用，当满足一

8、定条件才执