VB 判断一个未知数组是一维还是二维的方法

在 VB 中，可以使用 UBound 函数来判断一个数组的维数。如果 UBound 函数返回 0，则说明该数组是一维的；如果 UBound 函数返回大于 0 的值，则说明该数组是二维的。

以下是一个示例代码：

Sub Test()
    Dim arr() As Variant
    Dim i As Integer

    ' 一维数组
    ReDim arr(10)
    Debug.Print UBound(arr) ' 输出 10

    ' 二维数组
    ReDim arr(10, 5)
    Debug.Print UBound(arr) ' 输出 1
    Debug.Print UBound(arr, 2) ' 输出 5
End Sub

在上面的代码中，我们首先定义了一个一维数组 arr，然后使用 UBound 函数来获取数组的上限，结果为 10。接下来，我们定义了一个二维数组 arr，使用 UBound 函数来获取数组的上限，结果为 1，表示该数组的第一维长度为 10，第二维长度为 5。