f1.prg

几个VFP程序实例

*主程序：f1.prg
? "主程序开始"
SET PROCEDURE TO f3
f2()      && 
DO p1
? "主程序结束"
* 过程 p1
PROCEDURE p1
   ? "过程p1开始"
   ? "调用p3()"
   ? "返回值：",p3()
   ? "过程p1结束"
ENDPROC