判断vb数组的维数是多少

阿杰

1. Public Function ArrayRange(MyArray As Variant) As Integer
   
2.     '返回值：0-该变量不是数组,1-该变量为1维数组，2-该变量为2维数组,.....60-该变量为60维数组
   
3. Dim i As Integer, RangeNum As Integer, Temp As Integer
   
4.     On Error GoTo ErrHandle
   
5.     If Not IsArray(MyArray) Then    '首先判断传入的变量是否为数组
   
6.         ArrayRange = 0
   
7.         Exit Function
   
8.     End If
   
9.     For i = 1 To 60    '在VB中数组最大维数是60
   
10.         Temp = UBound(MyArray, i)    '用UBound函数判断某一维的上界，如果大于数组的实际维数时将产生产生超出范围错误
    
11.         RangeNum = i
    
12.     Next i
    
13.     ArrayRange = RangeNum
    
14.     Exit Function
    
15. ErrHandle:
    
16.     ArrayRange = RangeNum
    
17. End Function
    
18. 
    
19. Private Sub Form_Load()
    
20. Dim a(4, 5, 6), i, n
    
21.     Debug.Print ArrayRange(a)
    
22.     End
    
23. End Sub

复制代码

upring

很好 支持一下