vb代码问题。（若解决，即送50积分，以人格担保，决不食言）

Private Sub Command1_Click()
x = "白日依山尽，黄河入海流"
x = x & Chr(13) & Chr(10) & "欲穷千里目，更上一层楼"
Open "c:/abc.txt" For Output As #1
Print #1, x
Close #1
y = ""
Open "c:/abc.txt" For Input As #1
Do While Not (EOF(1))
Input #1, z
If y <> "" Then y = y & Chr(13) & Chr(10) & z Else y = z
Loop
Close #1
Print y
End Sub

先引用microsoft Activex Data Objects 2.5 library

Dim tx As New ADODB.Stream
'存
tx.Open
tx.Type = adTypeText
tx.Write x
tx.SaveToFile "c:\abc.txt"
tx.close
set tx=nothing
'取
tx.Open
tx.Type = adTypeText
tx.LoadFromFile "c:\abc.txt"
x=tx.Read
tx.close
set tx=nothing

这样简单一些
Dim x As String, y As String
Open "C:\abc" For Output As #1
Write #1, x
Close #1
Open "C:\abc&qu