读书人

初看VFP入门程序运行结果有关问题

发布时间: 2012-02-12 17:16:34 作者: rapoo

初看VFP入门,程序运行结果问题
程序如下:

*TEST3.PRG
*MAIN_1主程序
SET TALK OFF
PUBLIC a
a=1
c=5
DO SUB_2
?"返回主程序:a,b,c,d=",a,b,c,d
SET TALK ON

*SUB_2.PRG
PRIVATE c
PUBLIC b
a=a+1
b=2
c=3
d=4
?"过程中:a,b,c,d=",a,b,c,d
RETURN



请问输出结果是:
过程中:a,b,c,d=2,2,3,4
返回主程序:a,b,c,d=2,2,5,4
吗?我不知道vfp6.0在哪里看运行结果,而且我运行提示说找不到sub_2.prg。但是我明明重命名并且放在一起了。
各位请先看看结果对了么,如果不对请指点下,把结果贴出来,谢谢了.


[解决办法]
1. 运行正确的话,结果会在屏幕上显示出来
2. 提示找不到 sub_2 是因为当前目录不在 test3.prg 和 sub_2.prg 所在位置,
  在 test3.prg 开头加一句 Messagebox(CurDir()) 就知道了。
3. 为保险起见,可在程序开头加语句强迫切换当前目录:
   Set Default To Left(Sys(16,0), Rat('\',Sys(16,0)))
4. 运行到 ? "返回主程序:a,b,c,d=",a,b,c,d 应该出错,
  因为 test3.prg 中不存在变量 d

读书人网 >VFP

热点推荐