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

Question

open filename for random as #2 len=len(a)
put #2,lof(2)/len(a)+1,a
close #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], varnameGet 语句将一个已打开的磁盘文件读入一个变量之中。Get [#]filenumber, [recnumber], varname例如：dim B as byteopen "File1.txt" for binary as #1get #1, 1, Bclose #1即可将File1.txt文件的第一个字节读入变量BDim S as stringS = "ABCDE"open "File2.txt" for binary as #1put #1, 1, Sclose #1即可将变量S的内容写入File2.txt中。