Visual Foxpro数据库技术及应用第9章.pptVIP

多向分支结构示例 CLEAR INPUT 输入每位顾客购货款: TO X 从键盘上输入顾客购货款到变量X中 DO CASE 进入多分支语句 CASE X300 Y=X CASE X600 Y=0.95*X CASE X1000 Y=0.9*X OTHERWISE Y=0.85*X ENDCASE ?每位顾客购货款:,X ?优惠后顾客应付款:,Y RETURN * 循环结构 顺序结构和分支结构在程序执行时，每条命令只能执行一次，循环结构则能够使某些命令或程序段重复执行若干次。循环结构的特点是：当给出的循环条件为真时，反复执行一组命令，这组被重复执行的命令序列称为循环体。当循环条件为假时，则终止循环体的执行。简言之，循环结构就是由循环条件控制循环体是否重复执行的一种语句结构。 常用的循环语句有以下3种： ① 条件型循环：DO WHILE—ENDDO ② 计数型循环：FOR—TO—ENDFOR | NEXT ③ 扫描型循环：SCAN—ENDSCAN * 循环结构 1．条件型循环语句 条件型循环语句是根据条件表达式的值决定循环体命令的执行次数。这是一种常用的循环方式，也称为当型循环结构。 【格式】DO WHILE 条件表达式 命令行序列 [LOOP] 命令行序列 [EXIT] 命令行序列 ENDDO * 循环结构 【功能】当条件表达式的值为真时，重复执行DO WHILE与ENDDO之间的命令行序列（即循环体），否则结束循环，执行ENDDO后面的第一条命令。条件表达式为循环条件。 * 循环结构 【说明】 ① DO WHILE与ENDDO语句必须成对使用，且只能在程序文件中使用。 ② DO WHILE 条件表达式是循环的入口，ENDDO是循环的出口，中间的命令行是循环体。 ③ LOOP与EXIT只能用在循环语句之间，其中LOOP是返回到循环入口的语句，EXIT是强行退出循环的语句。LOOP与EXIT使用时，都需要一个条件加以限制，否则没有意义。 * 条件型循环结构示例一 【例9-11】编写程序prog10.prg，逐条显示表sp.dbf中所有国产商品的记录。 CLEAR 清除屏幕 USE sp 打开表sp LOCATE FOR 进口否=.F. 查找第1个国产商品 DO WHILE FOUND() 若找到国产商品 DISPLAY 显示国产商品记录 WAIT 按任意键继续显示! 暂停执行 CONTINUE 查找下一个国产商品记录 ENDDO USE 关闭表 * 条件型循环结构示例二 【例9-12】编写程序prog11.prg，统计表sp.dbf中单价大于等于1000元的商品数量。 CLEAR USE sp n=0 n用于统计商品总数 DO WHILE .NOT. EOF() 判断指针是否指向结束标记 IF 单价=1000 判断记录单价是否=1000 n=n+1 统计单价=1000元的商品数量 ENDIF SKIP 指针向下跳一个记录 ENDDO ? 单价大于等于1000元的商品总数:, n RETURN * 循环结构 2．计数型循环语句 计数型循环语句适用于循环次数已知的情况下，它是根据用户设置的循环变量的初值、终值和步长来决定循环体的执行次数。计数型循环语句又称FOR循环语句。 【格式】 FOR 循环变量=初值 TO 终值 [STEP 步长] 命令行序列 ENDFOR | NEXT * 循环结构 【功能】通过比较循环变量与终值来决定是否执行命令行序列。执行FOR语句时，首先将循环变量初值赋给循环变量，然后将循环变量与循环变量终值比较，当步长为正数时，若循环变量的值不大于终值，执行循环体；当步长为负数时，若循环变量的值不小于终值，执行循环体。一旦遇到ENDFOR或NEXT语句，循环变量值自动加上步长，然后返回到FOR语句，重新与终值进行比较。直到循环变量超过或小于循环终值时，结束循环。如果没用STEP子句，步长的