例7-21.prg

几个VFP程序实例

*例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