vb求数组的维数
2011-04-04 23:56
127 查看
设计思想:
在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
End Function
在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
End Function
相关文章推荐
- VB中判断数组维数
- VB.net遍历维数未知的多维数组的办法
- VB.NET中获取数组的秩(维数)和维度的上限
- 获得VB数组的维数
- VB 6.0中Byte数组和String转换
- vb 如何定义一个未知大小一维数组?
- vb 实现传递 控件数组
- VB.NET和VC#.NET中控件数组的建立
- vb.net 教程 1-9 数组2
- VC标准DLL中返回字符串数组给VB
- C语言问题:为什么可以留着数组中第一维的参数不进行说明,但是其他维数必须说明呢?
- python numpy 如何获取和更改数组(array)的形状、维数-shape&reshape
- VB.NET控件数组示例2则 (转载)
- 如何将自定义的structure转换为byte数组(VB.Net)
- [2013.9.10]vb.net坑爹的数组
- 计算数组的维数
- VB 任意随机数(N-M)的通用函数(单取、多取存入数组、排序等功能) 内附随机数介绍
- VB 二进制文件put函数保存数组
- 请赐教:用C++做一个DLL在VB中调用,要传递的是一个数组
- 使用java编写的一个遍历未知维数的数组函数