? VERSION()

返回关于正在使用的 Visual FoxPro 版本信息。
VERSION(nExpression)
 

参数
nExpression 

指定 VERSION( ) 返回有关 Visual FoxPro 的附加信息。若省略 nExpression 参数，则 VERSION( ) 返回 Visual FoxPro 的版本号。
下表列出了 nExpression 参数及返回的有关 Visual FoxPro 的附加信息。 nExpression 返回的 Visual FoxPro 附加信息 
1
 Visual FoxPro 的日期及系列号。
 
2
 Visual FoxPro 的版本类型:

0 - 运行版

1 - 标准版(早期版本)

2 - 专业版(早期版本)
 
3
 指出 Visual FoxPro 使用的语言，以下两个字符值表明 Visual FoxPro 所使用的语言:

00 - 英语

07 - 俄语

33 - 法语

34 - 西班牙语

39 - 捷克语

48 - 德语

55 - 朝鲜语

86 - 简体中文

88 - 繁体中文
 
4
 易于分析的标准格式 Visual FoxPro 版本号。

对于 Visual FoxPro 8.0 以前版本, 标准格式是 "MM.mm.0000.DDDD" 其中 MM 主版本号, mm 是可增加的次级修订编号, 0000 是固定占位符, DDDD 是四数字的创建该版本的生产日期。

对于 Visual FoxPro 8.0, 计算产品日期的公式, DDDD, 是 8000 + 从 1998 以来的日数。例如, 8397 代表 1999.02.01

对于 Visual FoxPro 9.0, 计算产品日期的公式, DDDD, 自 2003.01.01 以来的月数连接上当前月数。例如, 2215 表示 2004.10.15

Visual FoxPro 8.0 和 9.0 的格式是 "MM.mm.0000.NNNN" 其中 MM 主版本号, mm 是可增加的次级修订编号, 0000 是固定占位符, NNNN 建立号。
 
5
 "Mmm" 格式的 Visual FoxPro 发布版本，其中 M 是主发布号，mm 是可增加的次级修订编号。例如，VERSION(5) 在 Visual FoxPro 7.0 中返回 700。
 

项目的脸编中，右下角有一个版本按钮，是你发布的程序版本，是不是你要的？

回楼主，我不懂，也不知道。也希望你不会让我变成无耻的人。

不过我用Google搜到两个贴，
分别是VB.net和C++
你可以看看是否有用。
http://www.qqgb.com/Program/VB/VBJQ/Program_173554.html
http://topic.csdn.net/t/20030807/12/2119066.html

谢谢二位啦，我已找到解决办法：

PRIVATE oFileSO,cPrgVer
oFileSO=CreateObject("Scripting.FileSystemObject")
cPrgVer=oFileSO.GetFileVersion(SYS(16,0))
thisform.cPRG_VER=cPrgVer