LBound Function
рдПрд░реЗрдХреЛ рддрд▓реНрд▓реЛ рд╕рд┐рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
LBound (рдПрд░реЗ рдирд╛рдо [, рдЖрдпрд╛рдорд┐рдХ])
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдПрд░реЗ рдирд╛рдо: рдПрд░реЗрдХреЛ рдирд╛рдо рдЬреБрди рдЪрд╛рдБрд╣рд┐рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдПрд░реЗ рдЖрдпрд╛рдорд┐рдХрдХреЛ рдорд╛рдерд┐рд▓реНрд▓реЛ (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