ubound和redim结合使用方法

在使用UBound和ReDim结合时，通常是用来重新定义一个数组的大小。UBound函数用于确定数组的上限，而Redim语句用于重新定义数组的大小。以下是一个示例代码：

Dim arr(4) As Integer Dim i As Integer  For i = 0 To UBound(arr)     arr(i) = i Next i  ReDim Preserve arr(9)  For i = 5 To UBound(arr)     arr(i) = i Next i  For i = 0 To UBound(arr)     Debug.Print arr(i) Next i 

在这个示例中，首先定义了一个包含5个元素的整数数组arr，并对其进行赋值。然后使用ReDim语句将数组大小重新定义为10个元素，并使用Preserve参数保留数组的已有数据。最后再次遍历数组并输出其值。