运行效果: ​VB编程:UBound获取数组上限;LBound获取数组下限-25_彭世瑜_新浪博客_android


程序代码:

Private Sub Command1_Click()

   Dim a(5)

   Text1.Text = UBound(a)

   Text2.Text = LBound(a)

End Sub