UBound Function
рдПрд░реЗрдХреЛ рдорд╛рдерд┐рд▓реНрд▓реЛ рд╕рд┐рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
UBound (рдПрд░реЗ рдирд╛рдо [, рдЖрдпрд╛рдорд┐рдХ])
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдЗрд░реЗ рдирд╛рдо: рдПрд░реЗрдХреЛ рдирд╛рдо рдЬреБрдирдЪрд╛рдБрд╣рд┐ рддрдкрд╛рдИрдБ рдорд╛рдерд┐рд▓реНрд▓реЛ (Ubound) рд╡рд╛ рддрд▓реНрд▓реЛ (LBound) рд╕рд┐рдорд╛рдорд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
[Dimension]: рдЗрдиреНрдЯрд┐рдЬрд░ рдЬрд╕рд▓реЗ рдЬреБрдирдЪрд╛рдБрд╣рд┐ рдЖрдпрд╛рдорд┐рдХрд▓рд╛рдИ рдорд╛рдерд┐рд▓реНрд▓реЛ (Ubound) рд╡рд╛ рддрд▓реНрд▓реЛ (LBound) рд╕рд┐рдорд╛рдорд╛ рдлрд░реНрдХрд╛рдЙрди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рдпрджрд┐ рдорд╛рди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдкрд╣рд┐рд▓реЛ рдЖрдпрд╛рдорд┐рдХрдХреЛ рд╕рд┐рдорд╛рдорд╛ рдлрд░реНрдХрд┐рдПрдХреЛ рд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleUboundLbound
Dim sVar(10 To 20) As String
Print LBound(sVar())
Print UBound(sVar())
End Sub
Sub ExampleUboundLbound2
Dim sVar(10 To 20,5 To 70) As String
Print LBound(sVar()) REM Returns 10
Print UBound(sVar()) REM Returns 20
Print LBound(sVar(),2) REM Returns 5
Print UBound(sVar(),2) REM Returns 70
End Sub