首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

LBound()有关问题

2012-02-16 
LBound()问题我定义一个三维数组dim qz(1 to 100,1 to 50, 1 to 12)请问怎么取得第二维的Len。LBound(qz)取

LBound()问题
我定义一个三维数组dim qz(1 to 100,1 to 50, 1 to 12)
请问怎么取得第二维的Len。
LBound(qz)取得是最外层的。
LBound(qz(1))报错,请问怎么得到LBound(qz(1))的效果

[解决办法]
lbound(qz,维数)
即:lbound(qz,1),但是其实默认就是1,所以可以省略逗号和1
[解决办法]

VB code
Sub test()    Dim i As Byte    Dim qz(0 To 100, 1 To 50, 2 To 12)    For i = 1 To 3        MsgBox LBound(qz, i)    Next iEnd Sub
[解决办法]
探讨
VB codeSub test()Dim iAsByteDim qz(0To100,1To50,2To12)For i=1To3
MsgBoxLBound(qz, i)Next iEnd Sub

热点排行