arrays - ReDim 数组但保留值

Question

假设我有这样一段代码:

Dim resultArray() As Double
ReDim resultArray(1 to 10) As Double

Dim i As Integer
For i = 1 to 10 
  resultArray(i) = i
Next

ReDim resultArray(1 to 20) As Double
For i = 11 To 20
 resultArray(i) = i
Next

这样的代码可行吗？第一个循环的值会保留在数组中吗？

我不知道数组的长度。 20 只是一个数字，直到程序结束我才知道。

Answer 1

您可以通过 ReDim Preserve 执行此操作，但是这只允许您更改数组的外部长度。但是，如果您确实知道数组的最大大小(就像您在此处所做的那样)，最好将其Dim 设置为最大大小。如果需要，您始终可以在末尾使用 ReDim Preserve 减小数组的大小。

Dim resultArray() As Double
ReDim resultArray(1 to 10) As Double

Dim i As Integer
For i = 1 to 10 
  resultArray(i) = i
Next

ReDim Preserve resultArray(1 to 20) As Double
For i = 11 To 20
 resultArray(i) = i
Next