LBound Function
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π½ΠΈΠΆΠ½ΡΡ Π³ΡΠ°Π½ΠΈΡΡ ΠΌΠ°ΡΡΠΈΠ²Π°.
LBound (ΠΠΌΡ_ΠΌΠ°ΡΡΠΈΠ²Π° [, ΠΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅])
Long
ΠΠΌΡ_ΠΌΠ°ΡΡΠΈΠ²Π°. ΠΠΌΡ ΠΌΠ°ΡΡΠΈΠ²Π°, Π΄Π»Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π½ΡΠΆΠ½ΠΎ Π²Π΅ΡΠ½ΡΡΡ Π²Π΅ΡΡ Π½ΡΡ (Ubound) ΠΈΠ»ΠΈ Π½ΠΈΠΆΠ½ΡΡ (LBound) Π³ΡΠ°Π½ΠΈΡΡ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π°.
[ΠΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅]. Π¦Π΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ, Π΄Π»Ρ ΠΊΠ°ΠΊΠΎΠ³ΠΎ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ Π½ΡΠΆΠ½ΠΎ Π²Π΅ΡΠ½ΡΡΡ Π²Π΅ΡΡ Π½ΡΡ (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