Question

VB 中 print结果如何输出成txt文本

见我的图片。我现在编程，输出的结果是现在图片所示，我想现在这样的输出结果，
变成TXT文本的，便于使用和修改。
如果谁能帮我解决，先悬赏100分。如果做的好，再追加100.
有把握者，请留下邮箱，我把源代码发给您
郁闷啊，发了2次，200分就没有了。

Answer 1

VB编程中想保存输出内容为txt文件要用open命令打开一个txt文件，然后用print命令打印内容到该txt文件，举个例子：

open "c:\zhidao.txt" for output as #1 
print   #1, "zhidao" 
close   #1
//将"zhidao" 保存到"c:\aa.txt"

Answer 2

创建一空文件a.txt
以文本方式打开a.txt
写入内容
关闭a.txt

Answer 3

f1 = "D:\1.txt" '文件路径
Open f1 For Output As #1
Print #1, vartemp '写入f1
Close #1

追问

我加在程序后面没有反应哦
没有输出哦
图片最后的输出语句是：

Print
Print "机型为:CJ"; xx; x; D1a; "/"; pzs; "×"; d04 / 10; " n="; zs
Print " 价格:"; jg; "万"; " m="; m1; " n11="; n12

追答

f1 = "D:\1.txt" '文件路径
Open f1 For Output As #1
Print #1, "机型为:CJ"; xx; x; D1a; "/"; pzs; "×"; d04 / 10; " n="; zs
Print #1," 价格:"; jg; "万"; " m="; m1; " n11="; n12
Close #1

追问

哇咔咔，那么简单啊。谢谢你了哦呵呵。
如果要排版怎么弄啊

追答

自己调整布局呀
"机型为:CJ"; xx; x; D1a; "/"; pzs; "×"; d04 / 10; " n="; zs
" 价格:"; jg; "万"; " m="; m1; " n11="; n12

追问

不对啊，老大，我现在程序界面出来的，和输出的居然是不一样的啊

文本输出的是
机型为:CJA475-W- 83 / 5 × 4 n= 333
价格: 24 万 m= 47.5 n11= 39.37036

他居然是执行到我循环的最后一步了.....

要不我把源程序给你，你帮我弄好再发给我。
程序也不复杂，只有几十行

还有就是程序有2个输出的时候，会自动写掉前面一个的