68301367 发表于 2009-3-6 12:08:00

[求助]下标越界的问题

PO = ThisDrawing.Utility.GetPoint
Dim X()
Dim Y()
X(0) = Int(PO(0)): Y(0) = Int(PO(1))
出现下标越界的错误

68301367 发表于 2009-3-6 15:47:00

没人能答吗？

fjfhgdwfn 发表于 2009-3-6 16:31:00

要用REDIm重定义下了。

fjfhgdwfn 发表于 2009-3-6 16:35:00

Sub dd()
Dim x() As Double
I = 3
ReDim x(I)
x(0) = 10
ReDim Preserve x(4)
MsgBox x(0)
End Sub
看下帮助。什么都有。
页: [1]
查看完整版本: [求助]下标越界的问题