例7-21.prg

来自「几个VFP程序实例」· PRG 代码 · 共 14 行

*例7-21
*变量的隐藏示例。
set talk off
val1=10
val2=15
do p7
? val1,val2  &&显示 50    100
* 过程p7
procedure p7
private val1
val1=50
val2=100
? val1,val2  &&显示 10    100
return