用vba写一个判断数组的长度的程序

以下是一个用 VBA 判断数组长度的示例程序：

Sub ArrayLength()
    Dim arr() As Integer
    Dim len As Integer
    
    '初始化数组
    arr = Array(1, 2, 3, 4, 5)
    
    '获取数组长度
    len = UBound(arr) - LBound(arr) + 1
    
    '输出数组长度
    Debug.Print "数组长度为：" & len
End Sub

在这个示例程序中，我们首先声明了一个整型数组 `arr`，并将其初始化为包含 1 到 5 这五个元素的数组。然后，我们使用 `UBound` 和 `LBound` 函数计算数组的长度，并将结果存储在变量 `len` 中。最后，我们通过 `Debug.Print` 输出数组的长度。

需要注意的是，数组的长度是由数组的上下界决定的，因此我们需要使用 `UBound` 和 `LBound` 函数来计算数组的长度。其中，`UBound(arr)` 返回数组 `arr` 的上界，而 `LBound(arr)` 返回数组 `arr` 的下界。通过将数组的上下界相减并加上 1，即可得到数组的长度。