Question

二级VB疑问

这倒题我不明白的是UBound(a,2)和UBound(a,1)是舌么意思？谢谢了！
执行下面的程序，第一行输出结果是3 5 7，第二行输出结果是4 7 10。
Option Base1
Private Sub Arry(b() As Integer)
Dim i As Integer,j As Integer,k As Integer
ReDim b(3,3)
For i=1 To 3
For j=1 To 3
b(i,j)=i*j+1
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a() As Integer
Call Arry(a)
For i=1 To UBound(a,2)
For j=1 To UBound(a,1)
Print a(i,j);
Next j
Print
Next i
End Sub

Answer 1

Ubound UBound函数
返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
语法
UBound(arrayname[, dimension])
UBound 函数的语法包含下面部分：
部分 描述
arrayname 必需的。数组变量的名称，遵循标准变量命名约定。
dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，以此类推。如果省略 dimension，就认为是 1。
说明
UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。LBound 用来确定数组某一维的上界。
比如
Dim A(1 To 10, 0 To 3)
语句 返回值
UBound(A, 1) 10
UBound(A, 2) 3

Answer 2

UBound(a,2)在a这个数组中倒数第3位，大概这样。