Vraća dugačak broj koji sadrži najveći dostupni indeksni tekst za naznačenu dimenziju niz.
Sintaksa
UBound ( ime niza [, dimenzija ] )
Sintaksa funkcije UBound ima sledeće argumente:
Argument |
Opis |
ime niza |
Obavezno. Ime imena niza promenljiva; sledi standardne konvencije imenovanja promenljivih. |
dimenzija |
Opcionalno. Varijanta (Long). Ceo broj koji ukazuje na to koja je gornja granica dimenzije vraćena. Koristite 1 za prvu dimenziju, 2 za drugu i tako dalje. Ako je argument dimenzija izostavljen, pretpostavlja se da je 1. |
Napomene
Funkcija UBound se koristi sa funkcijom LBound da bi se utvrdila veličina niza. Koristite funkciju LBound da biste pronašli donje ograničenje dimenzije niza.
UBound daje sledeće vrednosti za niz sa sledećim dimenzijama:
Dim A(1 To 100, 0 To 3, -3 To 4)
Izjavu |
Povratna vrednost |
UBound(A, 1) |
100 |
UBound(A, 2) |
3 |
UBound(A, 3) |
4 |
Primer
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju UBound za određivanje najvećeg dostupnog indeksnog teksta za naznačenu dimenziju niza.
Dim Upper
' Declare array variables. Dim MyArray(1 To 10, 5 To 15, 10 To 20) Dim AnyArray(10) Upper = UBound(MyArray, 1) ' Returns 10. Upper = UBound(MyArray, 3) ' Returns 20. Upper = UBound(AnyArray) ' Returns 10.