当前位置: 代码迷 >> Lotus >> 哪位高手能帮小弟我解释一下redim 和 Preserve
  详细解决方案

哪位高手能帮小弟我解释一下redim 和 Preserve

热度:371   发布时间:2016-05-05 07:24:30.0
谁能帮我解释一下redim 和 Preserve
好像不是所有情况都可以使用 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
------解决方案--------------------