'一行一行的写入：
dim fid as integer
fid=freefile() '获取一个可用的文件号
Open "C:\Test.txt" For Output as # fid '打开C:\Test.txt文件，方式式为写入（Output）
print #fid, "1234"
print #fid, "1235"
'假如数据存在于数组a中：
dim i as integer
for i=0 to ubound(a)
print #fid,a(i)
next
'如果数组内容是字符串类型，可以用 join(a,vbcrlf) 把数组项连接成一个字符串，然后把字符串写入文件。
