Question

vb 我的程序读文件到Text 老是出错

这是我的代码，实现程序启动时读取in7.txt的内容到Text1，为什么出错？
Private Sub Form_Load()
Dim Arr()
Dim Tex
Dim i As Long
Open "C:\WEXAM\24010001\in7.txt" For Input As #1
Do While Not EOF(1)
Input #1, Arr(i)
Tex = Tex & Arr(i) & Chr(13)
i = i + 1
Loop
Text1.Text = Tex
Close #1
End Sub
…烟花飘飘…:
测试能通过，但是要求要用数组怎么办？也就是必须先把文件内容存到Arr()中

Answer 1

你这个程序很奇怪的,不知道出什么错误,
用line input可以一次读入一行.就不需要用数组了.

把Text1改为多行显示的文本框就可以了.

Answer 2

Private Sub Form_Load()
Dim Arr
Dim Tex
Dim i As Long
Open "C:\WEXAM\24010001\in7.txt" For Input As #1
Do While Not EOF(1)
Input #1, Arr
Tex = Tex & Arr & Chr(13)
i = i + 1
Loop
Text1.Text = Tex
Close #1
End Sub

Answer 3

Tex 可能没声明