关于文件号错误的问题，请高人指点下

来源：百度知道 编辑：UC知道 时间：2024/05/23 17:07:00
Dim a(1 To 100) As Long
Private Sub Cmd1_Click()
Open "C:\Wexam\25010001\Adva\in5.txt" For Input As #1
For i = 1 To 100
Input #1, a(i)
Text1 = Text1 & a(i) & " "
Next
Close
End Sub

Private Sub Text1_Change()
Dim temp As Long
For i = 1 To 50
temp = temp + a(i)
Next
Text1 = temp
Open "C:\Wexam\25010001\Adva\out5.txt" For Output As #2
Write #2, Text1
Close
End Sub
运行该程序说是错误的文件号或号码
请问怎么修改
不好意思是我搞错了Private Sub Text1_Change()
过程
End Sub

改成Private Sub cmd2_click()
过程
End Sub 就好了
lingfeng042你最辛苦分给你了
同时也谢谢其他两位了

Dim a(1 To 100) As Long
Private Sub Command1_Click()

Open "C:\int5.txt" For Input As #1
For i = 1 To 100
a(i) = i
Do While Not EOF(1) '在 Input # 语句之前直接使用 EOF 函数来测试是否文件尾
Input #1, a(i)
Loop
Text1 = Text1 & a(i) & " "
Next
Close #1
End Sub

Private Sub Text1_Change()
Dim temp As Long
For i = 1 To 50
temp = temp + a(i)
Next
Text1 = temp
Open "C:\out5.txt" For Output As #2
Write #2, Text1
Close #2
End Sub

大概是你的路径写错了吧，检查一下，还有扩展名。有些文件的扩展名改成别的也是可以用改成的那个扩展名的程序来运行，但其实它的内码还是不同的。

应是你的文件路径目录下没有in5.txt文件