vb动态数组

最近老板逼着弄GIS ，找到了mapobject是空间，使用过程中发现以前没解决的一个动态数组问题

闲话少说，进入正题

dim a() as string
redim a(1) as string
a(0)=0
a(1)=1
ReDim Preserve a(2) as string
'这句话就可以将数组a中的a(0)，a(1)的值都保留