LBound Function

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

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


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

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

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

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

рдПрд░реЗ рдирд╛рдо: рдПрд░реЗрдХреЛ рдирд╛рдо рдЬреБрди рдЪрд╛рдБрд╣рд┐рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдПрд░реЗ рдЖрдпрд╛рдорд┐рдХрдХреЛ рдорд╛рдерд┐рд▓реНрд▓реЛ (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