myprogram.prg

来自「VFP编程118例1.rar 是学习VFP编程好例子」· PRG 代码 · 共 38 行

set talk off
clea
public a,b,c
a=2
b=3
c=2
do test1
? "c1=",c
? "b1=",b
set talk on
retu

procedure test1
  priv b
  d=4
  e=12
  f=5
  g=6
  b=e/d+g
  ? "b2=",b
  do test2
  ? "f=",f
  ? "g1=",g
retu

procedure test2
  priv g
  f=d*e
  g=e/d
  do test3
  ? "g2=",g
retu

procedure test3
  g=e/d*g
  c=a+b+g
retu