Question

超级小白问题：VB如何输出到一个文本？

几个问题，给下示例代码，说明一下用于输出的函数，谢谢！
1、最简单的：直接把"abc"输出到"abc.txt"
2、Dim A as Double = 0
`如何将A的值输出到abc.txt
3、把 问题2 中要输出的值换一行输出在 问题1 已经完成的 abc.txt 中的 "abc" 的下一行
三个小白问题，希望大家能帮一下忙，谢谢！

Answer 1

问题1：
open app.path & "\abc.txt" for output as #1
print #1,"abc"
close #1

问题2：
dim a as double
a=0
open app.path & "\abc.txt" for output as #1
print #1,a
close #1

问题3：
dim a as double
a=0
open app.path & "\abc.txt" for output as #1
print #1,"abc"
print #1,a
close #1

Answer 2

如果你会fso的话，那很简单。
利用fso.opentextfile()写文件
set fso=new fielsystemobject
set fi=fso.opentextfile("abc.txt",forwriting,true)
写字符串就用fi.write("abc")
写变量就用fi.write(A)
两个一起写就是fi.write("abc" & vbcrlf & A)
vbcrlf是换行用的
否则，直接用文件读写

Answer 3

Dim A As Double
A = 0
Open "abc.txt" For Append As #1
Print #1, "abc"
Print #1, A
Close #1

既然是新手，那这样简单的容易上手。
fso以后慢慢学吧

Answer 4

问题1：答案
Dim iNum As Integer
Dim strFile As String
strFile = App.Path & "\abc.txt"
iNum = FreeFile
Open strFile For Append As #iNum
Print #iNum, "abc"
Close #iNum

问题二答案：
Dim A As Double
Dim iNum As Integer
Dim strFile As String
A = 0
strFile = App.Path & "\abc.txt"
iNum = FreeFile
Open strFile For Append As #iNum
Print #iNum, A
Close #iNum

问题三答案：
Dim A As Double
Dim iNum As Integer
Dim strFile As String
A = 0
strFile = App.Path & "\abc.txt"
iNum = FreeFile
Open strFile For Append As #iNum
Print #iNum, "abc"
Print #iNum, A
Close #iNum

Answer 5

我在做任务，越简单越好入手。