vfp程序设计 第7讲 循环

《vfp程序设计 第7讲 循环》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、程序设计基础（3）——循环结构程序设计第三章第一节、第二节第四章第一节、第三节学习内容1.简要回顾2.FOR…ENDFOR/NEXT循环(重点)3.DOWHILE…ENDDO循环(重点)4.多重循环(难点)5.应用程序举例简要回顾-选择结构格式：IF<条件表达式>[THEN]<语句系列1>[ELSE<语句系列2>]ENDIF注：IF和ENDIF必须配对使用DOCASECASE<条件表达式1><语句系列1>CASE<条件表达式2><语句系列2>…CASE<条件表达式n><语句系列n>[OTHERWIS

2、E<语句系列n+1>]ENDCASE注：DOCASE和ENDCASE必须配对使用函数与结构灵活运用y="零壹贰叁肆伍陆柒捌玖"p=substr(y,2*x+1,2)?x,"->",pinput"请输入数字："toxdocasecasex=0p="零"casex=1p="壹"…………..casex=9p="玖"otherwisep="无效输入！"endcase?x,"->",pinput"a="toainput"b="tobinput"c="tocd=max(a,b,c)e=min(a,b,c)f=a

3、+b+c-d-e?d,f,eFOR…ENDFOR/NEXT循环变量超过终值吗？变量=变量+步长循环体YesNo变量=初值ENDFOR语句后的语句格式：FOR变量=初值TO终值[STEP步长]<语句系列>[EXIT][LOOP]ENDFOR/NEXT练习FORI=1TO10STEP2??I^2ENDFOR??IFORI=10TO1STEP-3??IENDFOR??IFORI=1TO1??IENDFOR??IFORI=1TO1step-1??IENDFOR??IFORI=1TO5??II=I-1ENDF

4、OR??I192549811110741-210死循环12FOR…ENDFOR循环能解决什么问题？1+2+3+…+n(n为一个固定的值)1*2*3*…*n(n为固定值)1+3+5+……+99以上问题的共同点：循环次数固定但对类似以下的问题，改如何处理？1+2+3+…直到累加和超过100001+1/2+1/3+…直到末项小于或等于某个非常小的数，如0.000001格式：DOWHILE<条件表达式><语句序列>[EXIT][LOOP]……ENDDO功能：当<条件表达式>的值为真时，重复执行DOWHILE

5、…ENDDO之间的<语句序列>，直到<条件表达式>的值为假时结束。解决方案：DOWHILEENDDO循环说明EXIT--结束当前循环操作，跳到ENDDO后面的语句。LOOP--跳过LOOP后面的语句，直接回到循环起始语句DOWHILE。注：在语句序列中，还可以出现IF语句或CASE语句或DOWHILE语句格式：DOWHILE.T.<语句序列>IF<条件表达式>EXITENDIFENDDO1、循环次数不确定的循环Dowhile…enddo应用功能：循环条件永远为真，只有满足IF语句的<条件表达式>时

6、，才跳出循环。注：在这种使用方法中，EXIT选项是不可缺少的，且必须和IF语句连用。说明：将前N个自然数中的完全平方数进行累加，当累加和超过100时停止累加。要求程序显示每次的累加和。例1-完全平方数进行累加例2-输入任意次数据思考：有没有其他方法，让用户控制结束操作？格式：N=初值DOWHILEN<=M<语句序列>N=N+XENDDO2、固定次数的循环Dowhile…enddo应用其中：N=初值（通常为1）；M=终值；X为步长功能：通过对循环变量N进行顺计数并与M相比较的方法完成循环操作。这种用法

7、功能与for…next/endfor非常相似，只是要注意：for…next的步长体现在step中；而dowhile…enddo结构中，则把步长概念写在循环体中。问题：如把题目要求改为计算“1-1/2+1/3-1/4+…+1/n”的值(n是键盘输入的正整数)，如何修改程序？例3-计算1-1/2+1/3-1/4+…+1/99-1/100功能：对当前打开的表文件中的记录自上而下或自下而上地逐条进行操作。注：记录指针由SKIP语句控制，循环结束的条件由函数EOF（）和BOF（）控制。用记录指针控制循环格式1

8、：DOWHILE.NOT.EOF()<命令序列>SKIPENDDO格式2：DOWHILE.NOT.BOF()<命令序列>SKIP-1ENDDO说明：在人事表RenShi.DBF中有“编号”字段（N，6）。要求：现要抽取编号能被3整除的人员参加活动，要求在屏幕上显示这些人员的姓名和编号。*****exp_4.PRG*****SETTALKOFFCLEARUSERenShiDOWHILE.NOT.EOF()IFMOD(编号,3)=0?姓名,编号ENDIFSKIPENDDO