vb求数组的维数
来源:互联网 发布:金豆数据 姜慧霞 编辑:程序博客网 时间:2024/04/28 20:44
设计思想:
在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数组的维数
- 求数组的逆序数
- 求数组的逆序数
- 求数组的鞍点数
- VB中判断数组维数
- VB键盘输入一个数求阶乘的和
- 求数组里面第二大的数
- 求数组里面第二大的数
- 求数组中第二大的数
- 求数组中第二大的数
- 树状数组求逆序数的模板
- 求数组中第二大的数
- 数组中求一组数的最大值
- 求数组中数对的最大值
- 两个有序的数组,求中间数
- 1、求旋转数组的最小数
- Java 求整型数组的逆序数
- 求模电答案
- Android核心分析 之二 -------方法论探讨之概念空间篇
- 心情笔记
- SQLite Helper Library For C#
- Android是什么 之三-------手机之硬件形态
- vb求数组的维数
- VC++图象处理编程(二)
- Android核心分析之四 ---手机的软件形态
- autotools自动生成Makefile与打包
- 新的起点!
- Android 核心分析 之五 -----基本空间划分
- 存储过程进阶(vb.net+SQL Server2008环境)
- 一个jsp处理两个servlet
- 素数筛法