VB程式設計：UBound擷取數組上限;LBound擷取數組下限

程式代碼：

Private Sub Command1_Click()

   Dim a(5)

   Text1.Text = UBound(a)

   Text2.Text = LBound(a)

End Sub