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