如何定位到顺序文件的尾添加数据？急高分在线等！！！

Question

请给出代码！！

Answer 1

Print # 语句示例
本示例使用 Print # 语句将数据写入一个文件。Open "TESTFILE" For Output As #1   ' 打开输出文件。
Print #1, "This is a test"   ' 将文本数据写入文件。
Print #1,   ' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2"   ' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World"   ' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces "   ' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello"   ' 将数据写在第十列。' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ； " is a Boolean value"
Print #1, MyDate ； " is a date"
Print #1, MyNull ； " is a null value"
Print #1, MyError ； " is an error value"
Close #1   ' 关闭文件。

Answer 2

Print # 语句
将格式化显示的数据写入顺序文件中。语法Print #filenumber, [outputlist]Print # 语句的语法具有以下几个部分：

Answer 3

Open 语句
能够对文件输入/输出 (I/O)。语法Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]