第二讲—— VFP的编程基础.pptVIP

四、子程序的返回 RETURN [TO MASTER|TO 程序文件] 说明： TO MASTER 直接返回到最外层主程序；TO 程序文件 强制返回到指定的程序文件。 主程序 · · · DO A · · A.PRG · · · DO B · · RETUTN B.PRG · · · DO C · · RETURNTO MASTER C.PRG · · · · · · RETURN TO A 2、过程与过程文件 如果将多模块程序中的每个模块（主程序，子程序或自定义函数）分别保存为一个独立的.PRG文件，则每执行一个模块就要打开一个文件，势必会增加运行时间。为此VFP允许在一个.PRG文件中设置多个程序模块，并将主程序以外的每个模块定义为一个过程，即“过程文件”，仍以.PRG为扩展名。 一、过程的定义 PROCEDURE 过程名 [PARAMETERS参数表] 语句序列 [RETURN] 说 明： a) 每个过程均以PROCEDURE开始，以RETURN结束。每个过程实际上是一个独立的子程序或一个用户定义函数。 b) PROCEDURE 过程名用于过程的第一条语句，它标识了每个过程的开始，同时定义了过程名。 c) 过程如果以RETURN 表达式作为结束语句，则该过程既可用DO 过程名[参数表]的形式执行，又可当做一个合法的自定义函数，可供随时调用。 将子程序中的例题改为过程。 STORE 0 TO S1 ，S2 INPUT “输入半径或边长的值：” TO A DO YUAN WITH A , S1 DO ZHEN WITH A , S2 ?S1-S2 PROCEDURE YUAN PARAMETERS R , S S=3.14*R^2 RETURN PROCEDURE ZHEN PARAMETERS L , S S=L^2 RETURN 1 2 【例6.16】 二、过程文件 一个过程可以以文件形式单独存在，也可以将多个过程合并到一个过程文件。 过程文件是把多个过程集中起来用一个文件的形式存储在磁盘上，要调用其中的过程，必须先打开该过程文件。 格 式：SET PROCEDURE TO [过程文件名] 功 能：打开过程文件。 【例6.18】 用过程文件实现求一个半径等于边长的圆与正方形面积之差的问题。 *Main.prg CLEAR SET TALK OFF SET PROCEDURE TO sub 打开过程文件sub.prg STORE 0 TO s1,s2 INPUT “输入半径或边长的值: TO a DO yuan WITH a,s1 调用过程文件中的过程yuan DO zhen WITH a,s2 调用过程文件中的过程zhen ?s1-s2 SET TALK ON RETURN *过程文件sub.prg PROCEDURE yuan 过程yuan PARAMETERS r,s s=3.14*r^2 RETURN PROCEDURE zhen 过程zhen PARAMETERS i,s s=i^2 RETURN 3、自定义函数 一、自定义函数的定义 [FUNCTION 函数名] [PARAMETERS 参数表] 语句序列 [RETURN 表达式] 若使用FUNCTION语句来指出函数名，表示该函数包含在调用程序中；若缺省，则表示此函数是一个独立文件，函数名在定义文件名时确定。 RETURN表达式用于返回函数值，只能返回一个值。若缺省该语句则返回值为.T.。 自定义函数与系统函数调用方法相同: 函数名([参数表]) 【例6.19】 将子程序中的例题改为自定义函数。 CLEAR S=0 INPUT “输入半径或边长的值：” TO A ?YUAN(A)-ZHEN(A) FUNCTION YUAN PARAMETERS R S=3.14*R^2 RETURN S FUNCTION ZHEN PARAMETERS L S=L^2 RETURN S 若两函数存在一个独立文件中，调用前也需要用SET PROCEDURE指定文件名 4、内存变量的作用域 一、全局变量