VFP课件分支结构、循环结构.pptVIP

FoxPro FoxPro * 本次课的教学内容： 分支结构、循环结构 本次课的教学目的与要求： 1、分支结构 2、循环结构 本次课的教学重点与难点： 重点：两个分支语句、三个循环语句 难点：三个循环语句 讲授课时：2学时 循环结构 循环结构则能够使某些语句或程序段重复执行若干次。如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环是最好的选择。 * ① 当型循环结构，如图： （a） （b） 当条件P成立时，反复多次执行A操作，直到条件P为假时停止执行。 P A A 当P满足时 * ②直到型循环，如图： 先执行A操作，再判断条件P是否为假，若P为假，再执行A，如此反复，直到P为真止。 A P A 直到 P 满 足 时 真 假 （a） （b） 条件型循环语句 语句格式： DO WHILE 条件 命令组 [EXIT] [LOOP] ENDDO * 执行过程： 当给定的条件满足时，执行DO WHILE和ENDDO之间的命令组。命令组执行完毕后，程序自动返回到DO WHILE语句，再一次判断DO WHILE语句中的条件。如果条件仍然满足，则再执行一遍命令组，如果条件不满足，则结束循环，转去执行ENDDO之后的命令。 EXIT控制从循环体内跳出，转去执行ENDDO后的第一条命令，可把EXIT放在循环体的任何地方。因此EXIT被称为无条件结束循环命令，只能在循环结构中使用。 LOOP控制直接转回到DO WHILE语句，而不执行LOOP和ENDDO之间的命令。因此LOOP称为无条件循环命令，只能在循环结构中使用。 应用举例： * 在学生基本情况表.dbf中，按姓名修改数据记录。 SET TALK OFF USE 学生基本情况表 yn=Y DO WHILE UPPER(yn)=Y name=space(8) @10,5 SAY “请输入学生姓名: GET name READ LOCATE FOR 姓名=name 在表中查找记录，姓名是字段名 IF .NOT.FOUND() 若查找成功，FOUND()函数返回.T.，否则返回.F. @12,5 SAY “对不起，该学校无此人! CANCEL ENDIF DISPLAY 找到，显示该记录 WAIT 是否继续修改(Y/N)? TO yn ENDDO SET TALK ON USE RETURN 循环结构应用举例： * 计算s=1+2+3+…+100 SET TALK OFF STORE 0 TO I,S DO WHILE .T. I=I+1 DO CASE CASE I100 EXIT OTHERWISE S=S+I ENDCASE ENDDO ? 0～100的数之和为:,S SET TALK ON RETURN SET TALK OFF STORE 0 TO I,S DO WHILE I100 I=I+1 S=S+I ENDDO ? 0～100的数之和为:,S SET TALK ON RETURN 循环结构应用举例： * 求1～100之间全部奇数之和 SET TALK OFF STORE 0 TO x,y DO WHILE .T. x=x+1 DO CASE CASE INT(x/2)=x/2 LOOP CASE x=100 EXIT OTHERWISE y=y+x ENDCASE ENDDO ? 0～100之间的奇数之和为:,y SET TALK ON RETURN SET TALK OFF STORE 0 TO x,y DO WHILE x100 x=x+1 IF INT(x/2)=x/2