VB动态数组并保存原来的元素

VB里数据定义过后，还可以用ReDim改变
 
dim a(10)
redim a(20)
 
还可以加Preserve以保持数据中原有的数据。
 
redim preserve a(30)