急急急急！~~vb中如何用txt生成测试后的结果并写入txt中

vb编写的程序程序运行后的结果如何是这个结果生成txt文档并且传输到这个txt文档中保存。请给详细方法及代码！~ 感谢好心人！~~ 急急急急 --------------------编程问答-------------------- 自己顶一下自己求高手呀 --------------------编程问答-------------------- Open App.Path & "\somefile.txt" For Append As #1
Print #1, ""
Print #1, Format(Now, "yyyy-mm-dd HH:nn:ss") & " Test Result"
Print #1, strYourData
Close #1 --------------------编程问答-------------------- 非常感谢 --------------------编程问答-------------------- 谢谢我是小白很多不懂希望以后多多指教

引用 2 楼的回复:

Open App.Path & "\somefile.txt" For Append As #1
Print #1, ""
Print #1, Format(Now, "yyyy-mm-dd HH:nn:ss") & " Test Result"
Print #1, strYourData
Close #1

--------------------编程问答-------------------- Type Record   ' 定义用户自定义数据类型。
   ID As Integer
   Name As String * 20
End Type

如果以随机方式打开文件，Seek 将读写位置设置到下一个记录。

Dim MyRecord As Record, MaxSize, RecordNumber   ' 声明变量。
' 以随机文件方式打开文件。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
MaxSize = LOF(1) \ Len(MyRecord)   ' 取得文件中的记录的数。
' 用循环读入所有记录，但是从最后的记录开始往前读。
For RecordNumber = MaxSize To 1 Step - 1
   Seek #1, RecordNumber   ' 设置读写位置。
   Get #1, , MyRecord   ' 读入一个记录。
Next RecordNumber
Close #1   ' 关闭文件。

如果不以 Random 打开文件，则 Seek 设置下一个操作发生的位置。假设 TESTFILE 文件内含有文本数据。

Dim MaxSize, NextChar, MyChar
Open "TESTFILE" For Input As #1   ' 打开输入文件。
MaxSize = LOF(1)   ' 取得文件的总字符数。
' 用循环读入所有记录，但是从最后的记录开始往前读。
For NextChar = MaxSize To 1 Step -1
   Seek #1, NextChar   ' 设置读写位置。
   MyChar = Input(1, #1)   ' 读入一字符。
Next NextChar
Close #1   ' 关闭文件。 --------------------编程问答-------------------- 打开文件并读取文件：Open File for input as #1
创建文件并写文件：Open File for output as #1
往后追加信息：Open File for append as #1

补充：VB ,  控件