好像不是所有情况都可以使用 redim和preserve 。哪些情况可以使用redim哪些情况不可以,以及使用preserve的情况。谢谢各位
------解决方案--------------------
- VB code
Sub Click(Source As Button) Dim arr() As String Redim arr(1 To 3) For i=1 To 3 arr(i)=i Next For i=1 To Ubound(arr) Msgbox arr(i) Next '加上和去掉Preserve 试试就知道了 Redim Preserve arr(1 To 6) Msgbox Ubound(arr) For i=1 To Ubound(arr) Msgbox arr(i) NextEnd Sub
------解决方案--------------------