jkluio668
11/6/2017 - 3:10 AM
arr_add
数组添加元素
Dim arr3
ReDim arr3(1 To 1)
For i = 1 To UBound(arr1)
arr3(i) = arr1(i)
ReDim Preserve arr3(1 To i + 1)
Next数组添加元素
Dim arr3
ReDim arr3(1 To 1)
For i = 1 To UBound(arr1)
arr3(i) = arr1(i)
ReDim Preserve arr3(1 To i + 1)
Next