课件：七程序设计.pptVIP

THANK YOU SUCCESS * * 可编辑 * P188 3、写出下列程序的运行结果 Set talk off DIMENSION A(6) FOR K=1 TO 6 A(K)20-2*K ENDFOR K=5 DO WHILE K=1 A(K)=A(K)-A(K+1) K=K-1 ENDDO ?A(1), A(3), A(5) SET TALK ON 运行结果：？ * C)数据表扫描循环语句: SCAN-ENDSCAN语句 格式： SCAN[范围][FOR条件1][WHILE条件2] 循环体 ENDSCAN 执行该语句时，记录指针自动、依次地在当前表的指定范围内满足条件的记录上移动，对每一条记录执行循环体内的命令。 2）语句功能： 该语句在指定的范围内，默认范围为ALL,用数据记录指针来控制循环次数。执行语句时，首先判断函数EOF（）的值，若其值为“真”，则结束循环，否则，结合〈条件表达式1〉或〈条件表达式2〉，执行〈命令行序列〉，记录指针移到指定的范围和条件内的下一条记录，重新判断函数EOF（）的值，直到函数EOF（）的值为真时结束循环。 * 【例6-30】输出STUDENT数据库的STUD表中所有团员的姓名和地址。程序文件名为PROG30.PRG。 SET TALK OFF CLEAR OPEN DATABASE STUDENT USE STUD SCAN FOR 是否团员 ? 姓名,地址 ENDSCAN CLOSE DATABASE SET TALK ON RETURN * 多重循环结构程序设计 在一个循环体中再包含有循环结构，称之为二重循环结构（或二重循环嵌套）；在二重循环结构的循环体中，若还包含循环结构，称为三重循环结构。二重及其以上的循环结构统称为多重循环结构。这里我们主要介绍二重循环结构。 * 多重循环的基本结构 DO WHILE 条件1 循环体1 DO WHILE 条件2 循环体2 ENDDO 循环体3 ENDDO A=0 For I=1 to 3 For j=1 to 3 A=A+1 Endfor endfor 答案为:9 * FOR 变量1=初值1 TO 终值1 STEP 步长1 循环体1 FOR 变量2=初值2 TO 终值2 STEP 步长2 循环体2 ENDFOR 循环体3 ENDFOR * 多重循环的执行过程 执行过程的总体原则是： 外层循环变量每取一次值，内层循环要完整地循环一遍。若循环体1、循环体2或循环体3中包含有LOOP或EXIT命令，它们会改变循环程序的执行顺序。 * i=0 do while i10 if int(i/2)=i/2 ?偶数 else ?奇数 end if i=i+1 end do * 6.3 过程及过程调用 Visual FoxPro与其他高级语言一样，支持结构化程序设计方法，允许将若干命令或语句组合在一起作为整体调用，这些可独立存在并可整体调用的命令语句组合称为过程 。 1.调用过程语句，即执行已有的过程。 语句格式： DO 〈过程名〉 WITH 参数表 WITH用于主程序和子程序间参数的传递。 语句功能：执行以〈过程名〉为名的过程。 2.过程返回语句，即返回过程的调用处。 语句格式： RETURN 语句功能：将控制返回到调用程序中调用命令的下一语句。 * 6.3.1 外部过程 外部过程也叫子程序，和主程序一样是以程序文件（.PRG）的形式单独存储在磁盘上 【例】分别建立如下程序文件， * MAIN.PRG SET TALK OFF ? ”正在执行主程序” DO SUB1 SET TALK ON ? *SUB1.PRG ? ”正在执行SUB1” RETURN ? * 将若干个过程按一定的规定放在一个大文件中，这个文件称为过程文件。 （1）过程文件的建立 命令格式与建立程序文件一样： 格