第8章程序设计基础2.pptVIP

总63页 Visual Foxpro程序设计第8章　程序设计基础 本章主要内容 8.1 程序设计的基本概念与步骤 8.2 程序中的常用命令 8.3 程序控制结构 8.4 多模块程序设计 一、条件循环 条件循环是根据条件表达式的值，决定循环体内语句的执行次数，也称为当型循环。一般用于未知循环次数的循环。 【格式】DO WHILE 条件表达式 命令行序列 [LOOP] [EXIT] ENDDO 【功能】 语句执行时，先判断条件表达式的值，若为真，则执行循环体内的命令，即DO 与ENDDO之间的命令；若为假，则执行ENDDO后面的命令。 【说明】 1.DO WHILE 和ENDDO要配对使用； 2.DO WHILE 是循环语句的入口， 条件表达式一般为逻辑型， ENDDO是循环语句的出口，中间命令行序列是重复执行的循环体； 3.LOOP和EXIT只能在循环体中使用，是循环跳转和控制语句。其中LOOP是转到循环的入口语句，EXIT是强行退出循环的语句，它们一般都放在分支结构中； 4.循环结构允许嵌套。这种嵌套不仅限于循环结构自身的嵌套，而且还可以是和选择结构的相互嵌套； 5.循环一般要有退出机制，否则，会形成死循环。 条件循环流程图 例：编写程序，其功能是循环查找学生姓名，并根据用户选择确定是否继续查找。 Clea use 学生 Do while .t. clea text 根据姓名查找记录 endtext ? accep请输入查询学生姓名: to xm Loca for 姓名==xm if found() @row()+1,15 say 学号get 学号 @row(),30 say姓名get 姓名 @row()+1,15say性别 get 性别 @row(),30say出生日期get 出生日期 else ?查无+xm+姓名! Endif wait 是否继续查询?(Y/N) to cx window at 20,10 if uppe(cx)=Y loop else exit endif enddo use Set talk on return 【说明】 1.步长值省略时，系统默认步长值为1。当初值小于终值时，步长值为正值；当初值大于终值时，步长值为负值。步长值不能为0，否则造成死循环； 2.在循环体内不要随便改变循环变量的值，否则会引起循环次数发生改变； 3.[LOOP]和[EXIT]命令的功能和用法与条件循环中该命令的用法相同。 计数循环流程图 例：编写程序，其功能是用计数循环统计学生表中入校总分在570分以上的学生人数。 Clea Set talk off use 学生 coun to zrs rs=0 list for 入校总分=570 go top for i=1 to zrs if 入校总分=570 rs=rs+1 endif skip endfor ?入校总分不低于570的学生人数是：,rs use set talk on retu 【说明】 1.SCAN…ENDSCAN循环语句中隐含函数EOF()和命令SKIP的处理； 2.执行SCAN语句时，首先判断函数EOF() 的值，若为“真”，则结束循环，执行ENDSCAN后面的语句；否则，结合条件表达式1或条件表达式2，记录指针移到指定的范围和条件内的第一条记录，执行命令行序列中的命令； 3.执行ENDSCAN时，记录指针自动移到下一条记录，转到SCAN重新判断，直到EOF()函数值为真或到指定范围末尾,退出循环,执行ENDSCAN后面的语句； 3.无范围选项时，则表示对所有记录进行处理； 4.[LOOP]和[EXIT]命令的功能和用法与条件循环中该命令的用法相同。 指针循环流程图 例：编写程序，其功能是用指针循环统计学生表中入校总分在570分以上的学生人数。 Clea Set talk off use 学生 list for 入校总分=570 rs=0 scan for 入校总分=570 rs=rs+1 endscan ?入校总分不低于570的学生人数是：,rs use set talk on retu 四、多重循环 多重循环是指在一个循环语句内又包含另一个循环语句，多重循环也称为循环嵌套。下面以条件循环为例，进行说明。 【格式】 DO WHILE 条件表达式1 命令行序列11 DO WHILE 条件表达式2 命令行序列21 …… ENDDO 命令行序列12 ENDDO 【功能】 在多重循环中，首先从外循环进入内循环，执行内循环的语句。当内循环