首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

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

2012-02-12 
初看VFP入门,程序运行结果问题程序如下:*TEST3.PRG*MAIN_1主程序SET TALK OFFPUBLIC aa1c5DO SUB_2?返

初看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

热点排行