UBound Function
рдПрд░реЗрдХреЛ рдорд╛рдерд┐рд▓реНрд▓реЛ рд╕рд┐рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
UBound (рдПрд░реЗ рдирд╛рдо [, рдЖрдпрд╛рдорд┐рдХ])
Long
рдЗрд░реЗ рдирд╛рдо: рдПрд░реЗрдХреЛ рдирд╛рдо рдЬреБрдирдЪрд╛рдБрд╣рд┐ рддрдкрд╛рдИрдБ рдорд╛рдерд┐рд▓реНрд▓реЛ (Ubound) рд╡рд╛ рддрд▓реНрд▓реЛ (LBound) рд╕рд┐рдорд╛рдорд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
[Dimension]: рдЗрдиреНрдЯрд┐рдЬрд░ рдЬрд╕рд▓реЗ рдЬреБрдирдЪрд╛рдБрд╣рд┐ рдЖрдпрд╛рдорд┐рдХрд▓рд╛рдИ рдорд╛рдерд┐рд▓реНрд▓реЛ (Ubound) рд╡рд╛ рддрд▓реНрд▓реЛ (LBound) рд╕рд┐рдорд╛рдорд╛ рдлрд░реНрдХрд╛рдЙрди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рдпрджрд┐ рдорд╛рди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдкрд╣рд┐рд▓реЛ рдЖрдпрд╛рдорд┐рдХрдХреЛ рд╕рд┐рдорд╛рдорд╛ рдлрд░реНрдХрд┐рдПрдХреЛ рд╣реБрдиреНрдЫ ред
Sub VectorBounds
Dim v(10 To 20) As String
Print LBound(v()) ' returns 10
Print UBound(v) ' returns 20
End Sub ' VectorBounds
Sub TableBounds
Dim t(10 To 20,-5 To 70) As Currency
Print LBound(t), UBound(t()) ' returns 10 20
Print LBound(t(),2) ' returns - 5
Print UBound(t,2) ' returns 70
End Sub ' TableBounds