面向过程的程序设计讲义.ppt

FOR循环语句 FOR 循环控制变量=初值 TO 终值 [STEP 步长] 语句序列1 ENDFOR/NEXT １）将初值赋给循环变量 ２）判断循环变量的值是否超出终值，如步长为正数,则循环变量的值不超过终止值，意味着变量值〈＝终止值；如步长为负数,则循环变量的值不超过终止值，意味着变量值＝终止值. 3 ）如超出终止值，结束循环；不超过终止值，执行语句组； ４）循环变量＝循环变量＋步长 ５）转到２，重复２－５过程。 步长的值为1,2......N,或-1,-2...-n,STEP 步长 不加，表示步长为１ 【例11】编程求和S=1+2+3+…+100。 SET TALK OFF CLEAR S=0 FOR N=1 TO 100 S=S+N ENDFOR ?1＋2＋3＋……＋100=,S SET TALK ON RETURN 求1-100中偶数的和 SCAN［〈范围〉］［FOR/ WHILE 〈条件表达式〉 〈命令行序列〉 ENDSCAN SCAN循环语句 首先判断函数EOF（）的值，若其值为“真”，则结束循环， 否则，结合〈条件表达式〉，执行〈命令行序列〉， 记录指针移到指定的范围和条件内的下一条记录，重新判断函数EOF（）的值，直到函数EOF（）的值为真时结束循环。 ——根据用户设置的表中的当前记录指针，决定循环体内语句的执行次数据。 【例12】输出student表中所有党员的姓名和学号。 SET TALK OFF CLEAR USE Student SCAN FOR DY ? XH，XM ENDSCAN USE SET TALK ON RETURN 【例13】求GZB表中所有助教的平均工资。 set talk off i=0 gz=0 close table all use E:\教学\2012年春季\VFP\demo\DATA scan for zc=助教 i=i+1 gz=gz+jbgz endscan ? 助教的平均工资：, gz/i return　 【例14】根据从键盘上输入的班级名称，统计表文件xs中该班级的人数。 STORE 0 TO A INPUT “班级代号：” TO X USE XS SCAN FOR BJBH=X A=A+1 ENDSCAN ?X+“班的人数为：”+STR(A,3) USE SET TALK ON 示例：班级编号‘010402031’ DO WHILE 条件表达式 语句序列1 [LOOP] 语句序列2 [EXIT] 语句序列3 ENDDO loop语句也称为短路语句．如果循环体中含有LOOP语句，则当执行到LOOP语句时，将跳过LOOP语句与循环出口语句之间的所有命令，即忽略LOOP命令后的语句,自动进入下一次循环。 EXIT语句是退出语句．如果循环体中含有EXIT语句，则当执行到EXIT语句时，无论循环条件是否满足,都将退出循环,执行循环语句后面的程序。 循环结束语句 【例15】 求50--100之间能被7整除的数?? for i=50 to 100 if mod(i,7)0 loop endif ? i endfor return 求50-100第一个能被7整除的偶数 clear for i=50 to 100 if mod(i,7)0 or mod(i,2)0 loop endif ? i exit endfor return 【例16】显示XS表中除“李 林”以外的所有记录。 USE XS DO WHILE .NOT. EOF（） IF xm=‘李 林’ SKIP LOOP ENDIF DISPLAY SKIP ENDDO USE SET TALK ON RETURN （1）DO WHILE和ENDDO、FOR和ENDFOR、SCAN和ENDSCAN必须配对使用。 （2）〈命令行序列〉可以是任何FoxPro命令或语句，也可以是循环语句，即可以为多重循环。 （3）〈循环变量〉应是数值型的内存变量或数组元素。 （4）EXIT和LOOP命令嵌入在循环体内，可以改变循环次数，但是不能单独使用。EXIT的功能是跳出循环，转去执行ENDDO、ENDFO