Put 语句
将记录写入相对文件，或者将字节序列写入二进制文件。
另请参阅：Get 语句
语法：
Put [#] FileNumber As Integer, [position], Variable
参数：
FileNumber：任意整数表达式，用于定义要向其中写入数据的文件。
Position：对于相对文件（随意访问文件），是要写入的记录的数量。
对于二进制文件（Binary 访问），是文件中开始写入字节的位置。
Variable：要写入到文件中的变量的名称。
相关文件的批注：如果变量的内容与 Open 语句中的 Len 子句里面指定数据的长度不匹配的话，那么介于新写入的数据的末尾和下一条记录之间的空间，将会用你正在写入的文件中的现有数据进行填充。
二进制文件的批注：将变量内容写入指定的位置，并将文件指针直接插入到最后一个字节后。记录之间不需要留有空间。
示例：
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' 必须是变量类型
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' 开始写入的位置
Put #iNumber,, "这是第一行文字" ' 用文字填充行
Put #iNumber,, "This is the second line of text"
Put #iNumber,, "This is the third line of text"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
Put #iNumber,,"This is new text"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"This is the text in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub