数组的定义:
Dim A(1 To 100, 0 To 3, -3 To 4) 语句 返回值
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4 最小下标可以用LBound求出
Dim A(1 To 100, 0 To 3, -3 To 4) 语句 返回值
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4 最小下标可以用LBound求出
解决方案 »
- 能否通过windows消息,在子窗体上的某特定坐标上执行单击操作?
- 请问如何在VB中创建和使用字符串数组及整形数组?
- 如何代码实现查找字段Name的值包含“Jimmy”的所有记录并显示在DataGrid1上
- 各位高人,这个问题超难吗?VB做不到?(100分送)
- 问几个响应键盘的问题
- 哪里有Excel对象的属性方法的大略说明
- 高手过来看看这程序的问题,,,关于把图象存储在SQL中,急。。。。。。。。。
- 急急,谁知道那个网站上有用VB编的图书管理系统的源代码。
- 请问如何在vb中调用outlook发送电子邮件,就像共享软件那样做的。
- 怎么同鼠标的一些HOOK屏蔽掉flash控件里面的菜单,很烦人呀,谢谢
- ###一道应聘erp公司时所做的面试题,操纵文本文件,请高手指教!###
- 怎么将TEXTBOX中的数据替换
Dim MyArray(1 To 10, 5 To 15, 10 To 20) ' Declare array variables.
Dim AnyArray(10)
Upper = UBound(MyArray, 1) ' Returns 10.
Upper = UBound(MyArray, 3) ' Returns 20.
Upper = UBound(AnyArray) ' Returns 10.
同理用LBound.
---- from msdn
UBound 函数 返回一个 Long 型数据,其值为指定的数组维可用的最大下标。语法UBound(arrayname[, dimension])UBound 函数的语法包含下面部分:部分 描述
arrayname 必需的。数组变量的名称,遵循标准变量命名约定。
dimension 可选的;Variant (Long)。指定返回哪一维的上界。1 表示第一维,2 表示第二维,如此等等。如果省略 dimension,就认为是 1。
说明UBound 函数与 LBound 函数一起使用,用来确定一个数组的大小。LBound 用来确定数组某一维的上界。对具有下述维数的数组而言,UBound 的返回值见下表:Dim A(1 To 100, 0 To 3, -3 To 4)语句 返回值
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4 UBound 函数示例
该示例使用 UBound 函数,确定数组的指定维的最大可用下标。Dim Upper
Dim MyArray(1 To 10, 5 To 15, 10 To 20) '声明数组变量。
Dim AnyArray(10)
Upper = UBound(MyArray, 1) '返回 10。
Upper = UBound(MyArray, 3) '返回 20。
Upper = UBound(AnyArray) '返回 10。
LBound 函数 返回一个 Long 型数据,其值为指定数组维可用的最小下标。语法LBound(arrayname[, dimension])LBound 函数的语法包含下面部分:部分 描述
arrayname 必需的。数组变量的名称,遵循标准的变量命名约定。
dimension 可选的;Variant (Long)。指定返回哪一维的下界。1 表示第一维,2 表示第二维,如此类推。如果省略 dimension,就认为是 1。
说明LBound 函数与 UBound 函数一起使用,用来确定一个数组的大小。UBound 用来确定数组某一维的上界。对具有下述维数的数组而言,LBound 的返回值见下表:Dim A(1 To 100, 0 To 3, -3 To 4)语句 返回值
LBound(A, 1) 1
LBound(A, 2) 0
LBound(A, 3) -3
所有维的缺省下界都是 0 或 1,这取决于 Option Base 语句的设置。使用 Array 函数创建的数组的下界为 0;它不受 Option Base 的影响。对于那些在 Dim 中用 To 子句来设定维数的数组而言,Private、Public、ReDim 或 Static 语句可以用任何整数作为下界。
LBound 函数示例
该示例使用 LBound 函数来返回数组的指定维数的最小可用下标。可以使用 Option Base 语句取代数组缺省下标值 0。Dim Lower
Dim MyArray(1 To 10, 5 To 15, 10 To 20) '声明数组变量。
Dim AnyArray(10)
Lower = Lbound(MyArray, 1) '返回 1。
Lower = Lbound(MyArray, 3) '返回 10。
Lower = Lbound(AnyArray) '返回 0 或 1,取决于
'Option Base 的设置。