Ubound函数应用示例 Private Sub Form Click Dim A(5)As Integer Dim b(3 to 8, 200 to 208) Print UBound (A), UBound (B, 1), UBound (B, 2) End Sub 程序执行结果是:58 208Ubound函数应用示例 Private Sub Form_Click() Dim A(5) As Integer, Dim B(3 to 8,200 to 208) Print UBound(A),UBound(B,1),UBound(B,2) End Sub 程序执行结果是：5 8 208