设计思想： 在VB中数姐最大维数是60，所以我们通过错误捕捉来处理这个问题，在这里我们用到UBound函数 Public Function ArrayRange(mArray As Variant) As Integer Dim i As Integer Dim Ret As Integer Dim ErrF As Boolean
ErrF = False On Error GoTo ErrHandle ''''判断代入的参数是否为数组 If Not IsArray(mArray) Then ArrayRange = -1 Exit Function End If ''''VB中数组最大为60 For i = 1 To 60 ''''用UBound函数判断某一维的上界，如果大数组的实际维数时产生超出范围错误， '''' 此时我们通过Resume Next 来捕捉错这个错误 Ret = UBound(mArray, i) If ErrF Then Exit For Next i ''''最后返回 ArrayRange = Ret
Exit Function ErrHandle: Ret = i - 1 ErrF = True Resume Next
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
