为何总是报错说数组上标越界，小弟我不是申请的动态数组了吗？请大侠帮小弟我看看啊多谢啦

为何总是报错说数组下标越界，我不是申请的动态数组了吗？请大侠帮我看看啊。谢谢啦

Private Sub Loadcmd_Click()
    With CommonDialog1
        .InitDir = App.Path
        .Filter = "??±????t|*.txt"
        .ShowOpen
    End With
    
    Open CommonDialog1.FileName For Input As #1
    Dim PointNo() As Long
    Dim i As Integer
    i = 0
    Do While Not EOF(1)
        Input #1, PointNo(i)
        Text1.Text = Text1.Text + CStr(PointNo(i)) + vbCrLf
        i = i = 1
    Loop
    Close #1
End Sub

[解决办法]
你的代码是错误的
你的PointNo() 是一个空数组，一个元素都没有，当然报下标越界错误了
[解决办法]

引用:

你的代码是错误的
你的PointNo() 是一个空数组，一个元素都没有，当然报下标越界错误了

数组里面是空的

[解决办法]
对于将文件读入数组，在读入之前，数组必须定义好好大小
redim PointNo（nSize)
[解决办法]
一楼的问题：没有redim PointNo（新定义的大小)
五楼的问题：你程序是要读取文件中的内容，如果文件内容不多，那么读到文件末尾EOF(1)循环就结束了。比如有100个数，就输出到text1里面100个数。

查看更多 下一篇