VB编程：UBound获取数组上限;LBound获取数组下限-25

运行效果：

\

程序代码：

Private Sub Command1_Click()

    Dim a(5)

    Text1.Text = UBound(a)

    Text2.Text = LBound(a)

End Sub

\