为什么输出不到正确的结果？？？

Question

我用 print # 语句向文件中写如数据（数字和字符串）用input #语句进行输出，但运行结果是：在指定的文件夹中生成了所写入数据的文件，但在读出数据并输出时却不能把字符串正确的显示出来 程序如下：Private Sub Form_Click()
Open "d:/test.txt" For Output As #10
Write #10, 1; 2; 3; 4
Write #10, "we"; "study"; "vb6!"
 Close 10
End SubPrivate Sub Form_DblClick()
Dim x As Integer, y As Integer, z As Integer, str As String, t As Integer
 Open "d:\test.txt" For Input As #10
  Input #10, str
  Input #10, x, y, z, t
  Print str
  Print x; y; z; t
  
  Close 10
End Sub
在生成的文件中有 1，2，3，4 和 we study vb6! 字符串出现
但输出时的结果为 
1
2 3 4 0
请问这是怎么回事啊？是我的程序有问题吗？谢谢帮忙！

Answer 1

但你想要什么样的结果呢？？？？是不是下面这种？？？？
Private Sub Form_Click()
Open "d:/test.txt" For Output As #10
Write #10, 1; 2; 3; 4
Write #10, "we"; "study"; "vb6!"
 Close 10
End SubPrivate Sub Form_DblClick()
Dim x As Integer, y As Integer, z As Integer, t As Integer, str1 As String, str2 As String, str3 As String
 Open "d:\test.txt" For Input As #10
  Input #10, x, y, z, t
  Input #10, str1, str2, str3
  Print x; y; z; t
  Print str1, str2, str3
  Close 10
End Sub
另外，建议使用Line Input # 语句。

Answer 2

我想要的结果是：
1 2 3 4
we study vb6!
可是我用了楼上的着段代码之后运行出来的是：
123
4 0 0 0 
在D盘里已经建立了 TEST。TXT 文件 了，而且里面的数据是 1 2 3 4 和 “we","study","vb6!"
就是输出不正确

Answer 3

这是一个测试，你要先把你的d:\test.txt删掉，再运行我的代码，先点击再双击，结果就出来了。。
如果你没有删除那个文件而只是是运行我的代码，那出现的是你以前写进去的东西另外，用我的代码显示时，“we","study","vb6!"不会有双引号，不知合不合你要求。

Answer 4

to lsftest:
我用了你的代码 ，也删掉了以前的d:\test.txt 但只能出现：
123
4 0 0 0 
但我把输出部分 该为：
Private Sub Form_DblClick()
Dim x As Integer, y As Integer, z As Integer, t As Integer, str1 As String Open "d:/test.txt" For Input As #10
  Input #10, x, y, z, t
  Print x; y; z; t
  Do While Not EOF(10)
  Line Input #10, str1
  Print str1
  Loop
   Close 10
End Sub
这样就可以了，不过输出的字符带有双引号。

Answer 5

to lsftest:
不好意思 你的程序我又运行了一便 得到了正确的结果了，刚才操作错误了 导致了没有正确的结果出来
谢谢你