“ReDim Preserve ”有什么作用？

Question

Dim ThisStr() As Stringcc = 0ReDim Preserve ThisStr(cc) As String
“ReDim Preserve ”有什么作用？

Answer 1

Reim preserve 可以在重新定义数组大小时，保留原来的数据，如：
dim a() as string
redim a(1 to 2)
a(1)="aaa"
a(2)="bbb"redim preserve a(1 to 3)
此时，a(1)仍然是"aaa",a(2)仍然是"bbb".如果省去preserve,则a(1)="",a(2)="".