Atgriež garu, kas satur lielāko pieejamo apakšrakstu masīvs norādīto dimensiju.
Sintakse
UBound ( arrayname [, Dimension ] )
Funkcijas UBound sintaksei ir šādi argumenti.
Arguments |
Apraksts |
arrayname |
Obligāts. mainīgais masīva nosaukums; tālāk norādītās standarta mainīgo nosaukumdošanas metodes. |
dimensija |
Nav obligāts. Variants (Garš). Vesels skaitlis, kas norāda, kuras dimensijas augšējā robeža tiek atgriezta. Izmantojiet 1 pirmajai dimensijai, 2 otrajai un tā tālāk. Ja dimensija ir izlaista, tiek pieņemta vērtība 1. |
Piebildes
Funkcija UBound tiek izmantota kopā ar funkciju LBound , lai noteiktu masīva lielumu. Izmantojiet funkciju LBound , lai atrastu masīva dimensijas apakšējo robežu.
UBound atgriež tālāk norādītās vērtības masīvs ar šīm dimensijām:
Dim A(1 To 100, 0 To 3, -3 To 4)
Paziņojumu |
Atgrieztā vērtība |
UBound(A, 1) |
100 |
UBound(A, 2) |
3 |
UBound(A, 3) |
4 |
Piemērs
Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Šajā piemērā tiek izmantota funkcija UBound , lai norādītu lielāko pieejamo apakšrakstu no masīva norādītās dimensijas.
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.