ReDim 保留“下标超出范围”

使用ReDim保留“下标超出范围”错误是在编程过程中的一种常见情况。ReDim是Visual Basic for Applications（VBA）中的一个关键字，用于重新定义一个数组的大小。当我们尝试访问数组中不存在的索引时，就会出现“下标超出范围”的错误。在本文中，我们将探讨ReDim的使用，并提供一些案例代码来说明如何处理和避免这种错误。

vb
Sub ResizeArray()
    Dim myArray() As Integer
    Dim i As Integer
    
    ReDim myArray(0 To 4) '定义数组的初始大小
    
    For i = LBound(myArray) To UBound(myArray)
        myArray(i) = i '为数组赋值
    Next i
    
    ReDim Preserve myArray(0 To 9) '重新定义数组的大小
    
    For i = LBound(myArray) To UBound(myArray)
        Debug.Print myArray(i) '输出数组元素
    Next i
    
    ReDim myArray(0 To 2) '重新定义数组的大小
    
    For i = LBound(myArray) To UBound(myArray)
        Debug.Print myArray(i) '输出数组元素
    Next i
End Sub