UC知道vb 我的程序读文件到Text 老是出错
来源：百度知道 编辑：UC知道 时间：2024/05/22 15:27:55
这是我的代码，实现程序启动时读取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()中
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()中
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
Tex 可能没声明
你这个程序很奇怪的,不知道出什么错误,
用line input可以一次读入一行.就不需要用数组了.
把Text1改为多行显示的文本框就可以了.