X(1)=XXXX(2)=XXXX(3)=XXX这种是静态的,有没有动态的方法添加??
Dim X(), i As IntegerReDim X(1 To 3)For i = 1 To UBound(X) X(i) = XXXNext