第6章VFP程序设计最新二

11
参数传递的两种方式: 参数传递的两种方式 (1)按“引用”传递: 形参发生改变时 实参也跟着改变 当 按 引用”传递 形参发生改变时,实参也跟着改变 实参也跟着改变;当 实参为变量形式时,参数传递的方式为按 引用”传递;可以 参数传递的方式为按“ 实参为变量形式时 参数传递的方式为按“引用”传递 可以 改变为按“ 传递。 用SET UDFPARMS TO VALUE改变为按“值”传递。 改变为按
2、过程的定义与调用 、
(1)过程的定义 过程的定义 格式： 过程名> 格式： PROCEDURE <过程名 过程名 [PARAMETERS <形式参数表 形式参数表>] 形式参数表 <语句序列> <语句序列> 语句序列 [RETURN [<表达式 表达式>]] 表达式 [ENDPROC] 过程名> 说明: 过程开始:PROC <过程名 过程名 说明 * 过程开始 * 过程结束 过程结束:ENDPROC * 过程返回 过程返回:RETURN [<表达式 表达式>] 表达式
(2)按“值”传递:形参发生改变时 不影响实参的值 当实参 按 形参发生改变时,不影响实参的值 传递 形参发生改变时 不影响实参的值;当实参 是常量或表达式时,参数传递的方式为按 参数传递的方式为按“ 传递。 是常量或表达式时 参数传递的方式为按“值”传递。 SET UDFPARMS TO REFERENCE 递。 设置为按“引用”传 设置为按“引用”
将被隐藏。 将被隐藏。
SET TALK OFF V1=100 V2=150 DO P ?V1,V2 LIST MEMORY LIKE V* RETU *过程 过程P 过程 PROC P PRIVATE V1 &&V1为私有变量 为私有变量 V1=500 V2=1000 ?V1,V2 LIST MEMORY LIKE V* RETURN
18
CLEAR MEMORY DO A ?NUM RETU PROC A PRIVATE NUM NUM=2 DO B RETU PROC B NUM=NUM+5 ?NUM
19
RETU
2、变量的隐藏 、
当同一模块中出现同名的各种变量时， 当同一模块中出现同名的各种变量时，上层模块中已经存在的内存变量
格式： 过程文件1,…] 格式：set procedure to [过程文件 过程文件 说明：打开过程文件后，则该过程文件中的所有过程都能被调用。 说明：打开过程文件后，则该过程文件中的所有过程都能被调用。
*过程文件的关闭
格式： 格式：set procedure to 说明：关闭所有打开的过程文件。 说明：关闭所有打开的过程文件。
8
（2）自定义函数的调用 ） 格式: 函数名([<实际参数表 实际参数表>]) 格式 函数名 实际参数表
SET TALK OFF STORE 0 TO P,S FOR N=1 TO 10 S=S+JC3(N) ENDFOR ?”SUM=”,S RETURN FUNCTION JC3 && 建立求 ！的自定义函数 建立求X！的自定义函数JC3 PARAMETER X P=1 FOR M=1 TO X P=P*M ENDFOR RETURN P && 返回变量 的值，P不可省略 返回变量P的值 的值， 不可省略 ENDFUNC
4
说明：过程可放在主程序代码的后面， 说明：过程可放在主程序代码的后面，也可将多个过程 保存在一个独立程序文件中。 保存在一个独立程序文件中。 (2) 过程文件
*过程文件的建立：和程序文件的建立方法一样，文件扩展名 过程文件的建立：和程序文件的建立方法一样，文件扩展名.PRG * 过程文件的打开：调用过程文件中的过程前，必须打开过程文件。 过程文件的打开：调用过程文件中的过程前，必须打开过程文件。
运行结果： 运行结果： 15 N 14 N 13 Y 12 N
14
6.3.3 模块中变量的作用域
1、变量的分类（按作用域） 、变量的分类（按作用域） （1）公共变量（全局变量） ）公共变量（全局变量） 格式：PUBLIC <内存变量名表 格式： 内存变量名表> 内存变量名表 功能: 建立公共的内存变量,初始值为 初始值为.F.。 功能: 建立公共的内存变量,初始值为.F.。 说明： 说明： 作用范围为所有模块。 作用范围为所有模块。 程序运行结束返回到命令窗口后， 程序运行结束返回到命令窗口后，公共变量不会 自动释放。只有执行CLEAR MEMORY、 自动释放。只有执行 、 RELEASE、QUIT等命令后，才被释放。 等命令后， 、 等命令后 才被释放。
2
计算1到 之间整数的阶乘和 之间整数的阶乘和。 计算 到10之间整数的阶乘和。 *主程序 主程序MAIN.PRG 主程序 SET TALK OFF STORE 0 TO P,S FOR N=1 TO 10 DO JC1 WITH N S=S+P ENDFOR ?”SUM=”,S RETURN
3
*子程序 子程序JC1.PRG 子程序 PARAMETER X P=1 FOR M=1 TO X P=P*M ENDFOR RETURN
第七章 VFP 程序设计
皖南医学院 计算机教研室
1
6.3 模块化程序设计
6.3.1 模块的定义与调用
1、子程序的定义和调用 、
(1)子程序的定义 子程序的定义 命令： COMMAND<子程序文件名 子程序文件名> 扩展名为.PRG. 命令：MODIFY COMMAND<子程序文件名> ，扩展名为.PRG. 子程序是以一个单独程序文件存放子程序代码的。 子程序是以一个单独程序文件存放子程序代码的。 是以一个单独程序文件存放子程序代码的 (2)子程序的调用 子程序的调用 格式： 子程序文件名>[WITH <实际参数表 实际参数表>] 格式：DO<子程序文件名 子程序文件名 实际参数表 功能：调用 子程序文件名 所指定的子程序。 子程序文件名>所指定的子程序 功能：调用<子程序文件名 所指定的子程序。
clear memory do a retu proc a local num num=2 do b retu proc b num=num+5 ?num retu
17
（3）私有变量：在程序中直接定义或使用的非全局变量， ）私有变量：在程序中直接定义或使用的非全局变量， 作用范围限于此过程和此过程中的过程。 作用范围限于此过程和此过程中的过程。 格式： 内存变量名表> 格式：PRIVATE <内存变量名表 内存变量名表 功能: 定义私有内存变量,初始值为 初始值为.F.。 功能 定义私有内存变量 初始值为 。
20
SET TALK OFF CLEAR PUBLIC X1 SET TALK ON STORE "abc" TO X1,X2,X3,X4 ?"主程序第一次显示：" 主程序第一次显示： 主程序第一次显示 LIST MEMORY LIKE X*
PROC P1 LOCAL X2 PRIVATE X4 STORE "xxx" TO X1,X2,X3,X4 ?"过程 显示：" 过程P1显示 过程 显示： LIST MEMORY LIKE X* DO P2 RETURN ENDPROC PROC P2 STORE "yyy" TO X1,X2,X3,X4 ?"过程 显示：" 过程P2显示 过程 显示： LIST MEMORY LIKE X* RETURN ENDPROC
7
3、自定义函数的定义与调用 、
(1)自定义函数的定义 自定义函数的定义 格式： 格式： FUNCTION <函数名 函数名> 函数名 [PARAMETERS <形式参数表 形式参数表>] 形式参数表 <语句序列 语句序列> 语句序列 [RETURN [<表达式 表达式>]] 表达式 [ENDFUNC] 说明: 过程开始:FUNC <函数名 函数名> 说明 * 过程开始 函数名 * 过程结束 过程结束:ENDFUNC * 过程返回 过程返回:RETURN [<表达式 表达式>] 表达式
运行结果： 运行结果： A=8 B=10 A=18 B=10
分析如下程序： 分析如下程序： SET TALK OFF FOR I=15 TO 12 STEP -1 ?I,JC(I) ENDFOR SET TALK ON RETURN FUNCTION JC PARA M P=1 FOR J=2 TO M-1 IF MOD(M,J)=0 P=0 EXIT ENDIF ENDFOR RETURN IIF(P=1,"Y","N")
15
定义全局变量 PUBLIC NUM NUM=1 DO A RETURN
PROC A NUM=NUM+5 DO B RETU 运行结果： 运行结果：12
PROC B NUM=NUM+6 ？NUM RETU
16
只能在建立它的模块中使用。 （2）局部变量 ：只能在建立它的模块中使用。 ） 格式：LOCAL <变量名表 格式： 变量名表> 变量名表 局部变量只能在定义它 的模块中使用，不能缩写。 的模块中使用，不能缩写。 当定义局部变量的模块 程序运行结束时， 程序运行结束时，该局部 变量会自动释放。 变量会自动释放。 模块中用参数语句 LPARAMETERS<形式参 形式参 数表>定义的形参为局部 数表 定义的形参为局部 内存变量。 内存变量。
12
*例6-35 例 SET TALK OFF CLEAR A=8 B=10 ?”A=”,A,”B=”,B DO P WITH A, (B) ?”A=”,A,”B=”,B RETURN PROC P PARAMETERS M,N M=M+N N=M*N RETU ENDP