输出到文本文件问题 求助

Question

呵呵 ! 你都写成这样了。还有问题？？
给你说个最笨的办法吧! 
把你的这几条记录都写到TEXT的数组控件里，然后再用
F =text1(0).text & text1(3).text 
S=text1(1).text & text1(4).text
.......这样就行了。其实可以只用一个字符型数组就可以解决了。

Answer 1

将数据库表的一列9行数据赋值给数组变量sj(),然后执行如下代码
Option Explicit
Dim i As IntegerPrivate Sub Command1_Click()
Open "c:\sy00.txt" For Output As #1
For i = 1 To 9 Step 3
Print #1, sj(i) & " " & sj(i + 1) & " " & aj(i + 2)
Next
Close
End Sub