UBound Function

рдПрд░реЗрдХреЛ рдорд╛рдерд┐рд▓реНрд▓реЛ рд╕рд┐рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

UBound (рдПрд░реЗ рдирд╛рдо [, рдЖрдпрд╛рдорд┐рдХ])

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдЗрд░реЗ рдирд╛рдо: рдПрд░реЗрдХреЛ рдирд╛рдо рдЬреБрдирдЪрд╛рдБрд╣рд┐ рддрдкрд╛рдИрдБ рдорд╛рдерд┐рд▓реНрд▓реЛ (Ubound) рд╡рд╛ рддрд▓реНрд▓реЛ (LBound) рд╕рд┐рдорд╛рдорд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

[Dimension]: рдЗрдиреНрдЯрд┐рдЬрд░ рдЬрд╕рд▓реЗ рдЬреБрдирдЪрд╛рдБрд╣рд┐ рдЖрдпрд╛рдорд┐рдХрд▓рд╛рдИ рдорд╛рдерд┐рд▓реНрд▓реЛ (Ubound) рд╡рд╛ рддрд▓реНрд▓реЛ (LBound) рд╕рд┐рдорд╛рдорд╛ рдлрд░реНрдХрд╛рдЙрди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред рдпрджрд┐ рдорд╛рди рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдкрд╣рд┐рд▓реЛ рдЖрдпрд╛рдорд┐рдХрдХреЛ рд╕рд┐рдорд╛рдорд╛ рдлрд░реНрдХрд┐рдПрдХреЛ рд╣реБрдиреНрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

9 рджрд╛рдпрд░рд╛ рдмрд╛рд╣рд┐рд░рдХреЛ рд╕рдмрд╕реНрдХреНрд░рд┐рдкреНрдЯ

рдЙрджрд╛рд╣рд░рдг:

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