private sub command redim + preserve 怎么用? 举例说明.有什么作用?redim + preserve 怎么用? 举例说明.有什么作用?

private sub command redim + preserve 怎么用? 举例说明.有什么作用?redim + preserve 怎么用? 举例说明.有什么作用?
private sub command redim + preserve 怎么用? 举例说明.有什么作用?
redim + preserve 怎么用? 举例说明.有什么作用?

private sub command redim + preserve 怎么用? 举例说明.有什么作用?redim + preserve 怎么用? 举例说明.有什么作用?
'Preserve 关键字,当改变原有数组最末维的大小时,使用此关键字可以保持数组中原来的数据.
Sub li()
Dim a() As Integer
ReDim a(0 To 1) As Integer
a(0) = 1
a(1) = 2
'使用Preserve可以保持数组a中原来的数据a(0)=1,a(1)=2,如果不使用Preserve,则a(0)=0,a(1)=0
ReDim Preserve a(0 To 3) As Integer
a(2) = 3
a(3) = 4
For i = 0 To 3
Debug.Print a(i)
Next i
End Sub