vb中好像没有这个函数，可以自己写个函数进行判断：在VB中数姐最大维数是60，所以我们通过错误捕捉来处理这个问题，在这里我们用到UBound函数Public Function ArrayRange(mArray As Variant) As IntegerDim i As IntegerDim Ret As IntegerDim ErrF As BooleanErrF = FalseOn Error GoTo ErrHandle'判断代入的参数是否为数组If Not IsArray(mArray) ThenArrayRange = -1Exit FunctionEnd If'VB中数组最大为60For i = 1 To 60'用UBound函数判断某一维的上界，如果大数组的实际维数时产生超出范围错误，' 此时我们通过Resume Next 来捕捉错这个错误Ret = UBound(mArray, i)If ErrF Then Exit ForNext i'最后返回ArrayRange = RetExit FunctionErrHandle:Ret = i - 1ErrF = TrueResume NextEnd Function