1、,第七章 VFP程序设计基础FOR与SCAN循环内部过程与外部过程调用,复习：DO WHILE循环结构,DO WHILE 循环四种模式：一、固定次数循环（循环变量）二、表记录指针控制的循环（指针移动）三、永真循环（死循环）（EXIT退出循环）四、用户控制的循环 （改变变量值）,一、FOR循环基本结构,命令格式：FOR =TO STEPENDFOR,功能：循环变量在初值到终值范围内执行循环体注：STEP省略，默认为1,例1：SET TALK OFF SET TALK OFFS=0 S=0I=1 FOR I=1 TO 100DO WHILE I=100 S=S+IS=S+I ENDFORI=I+1
2、 ？S，IENDDO RETURN？S，IRETURN,二、SCAN循环基本结构,命令格式：SCAN FOR ENDSCAN,功能：在指定范围内查找满足条件的记录的循环命令,例1：USE ZGDA 例2: USE ZGDASCAN FOR 性别=“男” ACCE“请输入查DISPLAY 询条件”TO AENDSCAN SCAN FOR（）RETURN DELEENDSCAN,三、多重循环（循环嵌套),循环嵌套和分支嵌套解决方法一样。典型例题：键盘输入10个数，按从大到小顺序输出。（283）,四、过程调用与自定义函数,1、概念在程序中重复出现的命令序列或经常使用的实用程序写成独立的程序段，称为子
3、程序，也叫过程。对子程序进行调用的程序称为主程序。主程序与子程序是相对而言的。,外部过程：即子程序，独立存贮在 过程 磁盘中，使用时临时调入内存。内部过程：作为过程文件组成部分使用时过程文件已调入内存。过程文件是由若干个过程组成的磁盘文件，扩展名为PRG,2、外部过程调用命令格式：DO WITH功能：执行该命令后，将磁盘上以为名的子程序调入内存，并开始运行，执行完便返回上一级程序。,注：可选项WITH的作用是主程序向子程序传递参数的，若选用了WITH项，则子程序第一条命令必须是PARAMETERS子程序以RETURNTO MASTER结束，表示终止程序执行，返回到该过程的调用处。若加上 TO
4、MASTER表返回到最高层的程序,例1：i=1 set talk offDo while i=100 Do a Enddo ?sReturna.prgSet talk offS=s+Ii=i+1return,例2 Set talk off Input “n=“ to n Do bb with n Returnbb.Prg Para k t=1 For i=1 to k t=t*i Endfor ?”t”,t return,3、内部过程调用一个过程文件最多可存放128个过程，调用文件时，系统能找到各个过程的入口位置，只要一次打开过程文件，就可以调用其中任何一个过程，从而减少磁盘的频繁读写，提高程
5、序运行速度。（1）过程所谓过程就是一段程序，它必须由PROCEDURE命令开头，以RETURN命令结尾，其命令格式：PROCEDURERETURNTO MASTER/TO ,（2）过程文件的构成 （3）过程文件的调用三步：一步打开过程文件二步调用三步关闭过程文件一步：命令格式SET PROCEDURE TO 二步：命令格式DO WITH 三步：命令格式SET PROCEDURE TO 或CLOSE PROCEDURE,4、自定义函数自定义函数实质是一个子程序，要求用户自己定义，建立方法与任何命令文件相同，自定义函数一旦建立，任何程序都可调用。命令格式：PARAMETERRETURN注：PARA
6、METER命令定义参数，使用时为有参调用。RETURN命令将定义函数值返回给调用它的函名，表达式值必须是自定义函数的函数值，,1、全局变量（公共变量）命令格式：PUBLIC功能：建立公共的内存变量，在任何模块中都可以使用，并为它们赋初值.F.2、局部变量（LOCAL ）命令格式： PRIVATE 功能：建立局部的内存变量，并为 它们赋初值.F.注意：局部变量只能在建立它的模块中使用，不能在上层或下层模块中使用。,五、内存变量的局限性(作用域）,由于LOCAL与LOCATE前四个字母相同，所以该命令命令动词不能缩写。局部变量要先建立后使用，且当建立它的模块程序运行结束后，自 动释放。3、私有变量在程序中直接使用（没有通过PUBLIC和LOCAL命令事先声明）而由系统自动隐含建立的变量都是私有变量。私有变量的作用域是建立它的模块及其下属的各层模块。,4、变量的隐藏命令格式：PRIVATE功能：隐藏指定的在上层模块中可能已经存在的内存变量，使得这些变量在当前模块程序中暂时无效。当前程序在运行结束返回上层模块时，那些被隐藏的内存变量就自动恢复有效性，并保持原有值例：set talk off procedure pva1=10 private va1va2=15 va1=50do p va2=100?va1,va2 ?va1,va2return,
