对于一维数组a元素个数为 UBound(a)-LBound(a)+1
例如：Private Sub Command1_Click()Dim a(5) As IntegerDebug.Print LBound(a), UBound(a)End Sub
