程序代码：

Private Sub Command1_Click()

   Dim a(5)

   Text1.Text = UBound(a)

   Text2.Text = LBound(a)

End Sub