温馨提示×

ubound和redim结合使用方法

小樊
88
2024-06-29 00:46:26
栏目: 编程语言
开发者测试专用服务器限时活动,0元免费领,库存有限,领完即止! 点击查看>>

在使用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参数保留数组的已有数据。最后再次遍历数组并输出其值。

亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>

推荐阅读:lighttpd与PHP的结合使用方法

0