例7-20.prg

几个VFP程序实例

* 例7-20 公共变量、私有变量、局部变量及其作用域示例
public x1         && 建立公共变量x1,初值为.F.
local x2          && 建立局部变量x2,初值为.F.
store .f. to x3   && 建立私有变量x3,初值为.F.
do p6
? '主程序中……'  &&三个变量在主程序中都可以使用
? 'x1=',x1
? 'x2=',x2
? 'x3=',x3
return
* 过程p6
procedure p6
? '子程序中……'  &&公共变量和私有变量在子程序中可以使用
? 'x1=',x1
? 'x3=',x3
return