在使用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参数保留数组的已有数据。最后再次遍历数组并输出其值。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,请发送邮件至 55@qq.com 举报,一经查实,本站将立刻删除。转转请注明出处:https://www.szhjjp.com/n/1085281.html