vb 如何判断一个数组是一维数组还是数组? 例如 dim a(3,4)
发布网友
发布时间：2024-10-24 02:24
共2个回答
热心网友
时间：2024-11-14 12:07
系统会根据你的定义来识别：
dim a(3)vb自动识别为一维数组，
dim a(3,4)vb识别为二维数组
dim a(3,4,5)vb识别为三维数组
二维（包括二维）以上的数组都是数组；
所以不用担心软件无法识别！
热心网友
时间：2024-11-14 12:07
Public Function ArrayRange(MyArray As Variant) As Integer
'返回值：0-该变量不是数组,1-该变量为1维数组，2-该变量为2维数组,.....60-该变量为60维数组
Dim i As Integer, RangeNum As Integer, Temp As Integer
On Error GoTo ErrHandle
If Not IsArray(MyArray) Then '首先判断传入的变量是否为数组
ArrayRange = 0
Exit Function
End If
For i = 1 To 60 '在VB中数组最大维数是60
Temp = UBound(MyArray, i) '用UBound函数判断某一维的上界，如果大于数组的实际维数时将产生产生超出范围错误
RangeNum = i
Next i
ArrayRange = RangeNum
Exit Function
ErrHandle:
ArrayRange = RangeNum
End Function
