运行效果：
程序代码：
Private Sub Command1_Click()
Dim a(5)
Text1.Text = UBound(a)
Text2.Text = LBound(a)
End Sub
