[求助]下标越界的问题

68301367

PO = ThisDrawing.Utility.GetPoint
Dim X()
Dim Y()

X(0) = Int(PO(0)): Y(0) = Int(PO(1))

出现下标越界的错误

68301367

没人能答吗？

fjfhgdwfn

要用REDIm重定义下了。

fjfhgdwfn

Sub dd()
Dim x() As Double
I = 3
ReDim x(I)
x(0) = 10
ReDim Preserve x(4)

MsgBox x(0)

End Sub

看下帮助。什么都有。