Question

帮我看看这个程序哪里出错，老是显示下标越界

Dim i As Integer
Open App.Path + "/Dcsj.txt" For Input As #1
Do While Not EOF(1)
Input #1, Arr(i)
Text1.Text = Text1.Text + Arr(i)
Loop

Close #1

Answer 1

为什么要用数组？至少这一段程序看不出来要数组啊
dim GetStr as string
Do While Not EOF(1)
Input #1, getstr
Text1.Text = Text1.Text + getstr
Loop
如果需要数组存储每一行的内容你得定义动态数组
redim arr(0)
Do While Not EOF(1)
redim Preserve arr(i+1)
Input #1, arr(i)
Text1.Text = Text1.Text + arr(i)
i=i+1
Loop

追问

redim Preserve arr(i+1)
是什么意思啊

追答

Redim 重新定义数组大小
Preserve 参数 保持之前数据不变，不加该参数会清空数组内原有数据

Answer 2

具体的错误提示信息有不？