vb问题!大家近来看看是什么原因 ,谢谢拉!

来源：百度知道 编辑：UC知道 时间：2024/05/15 08:09:58
最近我在做一道上机题时,遇到一个问题!还是先让代码说话吧!
代码如下:
这是标准答案的
Private Sub Form_Load()
Dim str1 As String
Text1.Text = ""
Open App.Path & "\in5.txt" For Input As #1
Do While Not EOF(1)
Input #1, str1
Text1.Text = Text1.Text + str1
Loop
Close #1
End Sub
Private Sub Cmd1_Click()
Open App.Path & "\out5.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
我做这题时写的如下:
Private Sub Command1_Click()
Open "F:\WEXAM\00000000\out5.txt" For Output As #2
Print #2, Text1.Text
End Sub
Private Sub Form_Load()
Open "F:\WEXAM\00000000\in5.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text + inputdada
Loop
Close #1
End Sub
我想说目录文件是放对了,但是标准答案是对的,而我感觉我的也没错,机器也没报错,但是文本框里只显示TEXT1.不明白希望大家帮忙说说谢谢了!如何修改

Private Sub Command1_Click()
Open "F:\WEXAM\00000000\out5.txt" For Output As #2
Print #2, Text1.Text
Close #2 '//记得关闭文件
End Sub
Private Sub Form_Load()
Open "F:\WEXAM\00000000\in5.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
Text1.Text = Text1.Text + InputData '//本行写错
Loop
Close #1
End Sub