论文部分内容阅读
1．显示程序的版本rn 在程序的“关于……”中显示程序的版本(以标准方式显示：即x.xx.xxxx)，可以使用以下子程序： Public Function GetMyVersion() As String Static strMyVer As String If strMyVer = “” Then strMyVer = Trim$(Str$(App.Major)) Format$(App Minor, ##00) Format$(App. Revision, 000) End If GetMyVersion = strMyVer End Function……