有知道以下关于vb put 函数的吗？

Question

open filename for random as #2 len=len(a)put #2,lof(2)/len(a)+1,aclose #2上面a为33位字符串，filename文件中有很多不同a的内容，请问lof(2)/len(a)+1是什么值，文件中原有内容不变，再在后面添加新的内容怎么用put函数呢

Answer 1

随机文件是以“块”为单位进行读取的，如果a的长度是33个字节，那么这个文件块的长度就是33。
lof(2)是文件的总长度，len(a)是文件块的长度（即33），那么lof(2)/len(a)就是文件块的总数量，再加1就是新文件块的位置了。所以
put #2,lof(2)/len(a)+1,a
的意思就是在文件后面添加新的文件块a

Answer 2

Put 语句
将一个变量的数据写入磁盘文件中。
Put [#]filenumber, [recnumber], varname

Get 语句
将一个已打开的磁盘文件读入一个变量之中。
Get [#]filenumber, [recnumber], varname

例如：
dim B as byte
open "File1.txt" for binary as #1
get #1, 1, B
close #1
即可将File1.txt文件的第一个字节读入变量B

Dim S as string
S = "ABCDE"
open "File2.txt" for binary as #1
put #1, 1, S
close #1
即可将变量S的内容写入File2.txt中。