把下面的代码插入到你的程序中(只支持QB7.1版本)

filename$="a.txt"
if dir$(filename$)<>"" then
    Num=freefile
    open filename$ or input as #num
    line input #num,a$
    N%=val(a$)
    close num
endif
N=N+1
Num=freefile
open filename$ for output as #num
print #num,str$(N)
close num

谢谢你的帮助!
不过运行时出现错误,
这一句open filename$ or [color=FF0000]input[/color] as #num的红色部分提示"Expected: expression "的错误,是不是我的QB版本不对啊,我的版本是QB7的精简版,现在要工作去,没空研究了.

[color=FF0000]MOZ真是火眼，我怎么没看见，对应该是for[/color]

不是 or
是  for

我的手有点痒
sub Atxt
filename$="a.txt"
Num%=freefile
open filename$ for binary as #num%
a$=str$(1+val(input$(16383,#num%)))
put #num%,1,a$
close #num%
end sub

２个程序我运行了一下还是不行！
ＱＢ７１的程序只能在Ａ．ＴＸＴ中记录＂１＂的数字，第２次第３次．．．．．．．运行数字不会加上去．
ＭＯＺ的程序运行后在Ａ．ＴＸＴ文件中什么也没记录．
２位高手都不能解决，看来没办法．不过还是谢谢２位帮忙！！！

哈哈,
我实在是不知道说什么好.

这样子,你帮我一件事情:

麻烦你把我的程序代码前面加一行:

call Atxt

然后按 <F5> 键

如果还不行,有一句老话:"你削了我的头当凳子坐吧"

注意本程序运行后,在操作系统中用记事本打开文件是无法看到数字的，
只能用本程序才能读出数字,所以具有一点保密性！
运行环境：操作系统无要求，BASIC版本，QB，VB系列均可！
如果你想在操作系统中用记事本打开看到数字，请用moz的版本,假如你不会用子程序，请把他程序的第一句（SUB。。。）和最后一句（END SUB。。）删除！

'定义
Dim FileName As String
Dim FileNum As Integer
Dim FileData As Integer
FileName = "a.txt"
FileNum = FreeFile                   '获得一个空闲文件号
Open FileName For Binary As FileNum  '打开文件
Get FileNum, , FileData              '从文件读一个整数给filedata
print "Read Data 从文件读数--->",FileData
FileData = FileData + 1              'Filedata累加
print "累加--->",FileData
Put FileNum, 1, FileData             '把Filedata累加后的数写入到文件
Close FileNum  '关闭文件

谢谢2位热心仔细指导,2个程序都可以用.谢谢!谢谢!