在线等 VB一道简单的计算题

如果没有用Option Base 1定义，数组中每一维的下标下限都是从0开始的，如果用Option Base 1定义，则下标下限从1开始，所以dim a(5,10)表示：

a是二维数组，第一维，下标从0到5，第二维，下标从0到10

UBound(数组名a,维序号n)表示求数组a的第n维下标上限
LBound(数组名a,维序号n)表示求数组a的第n维下标下限

此题中，UBound(a,2)=10

Option Explicit

Private Sub Command1_Click()
Dim a(5, 2 To 7)
Text1 = UBound(a, 2)
End Sub

Private Sub Form_Click()
Dim i%, j%, k%
Dim a()
i = Text2: j = Text3
ReDim a(i, j)
k = UBound(a, 2)
Text1 = k
End Sub

Ubound()
a表示数组a()
2表示第二维
Ubound是求该维数上限

10
运行一下就行了