Atgriež Long vērtību, kas satur norādīto objekta dimensijas lielāko pieejamo apakšrakstu masīvs.
Sintakse
UBound (masīva _nosaukums [, dimensija ] )
Funkcijas UBound sintaksē ir šādi argumenti:
Arguments |
Apraksts |
masīva nosaukums |
Obligāts arguments. Masīva masīva mainīgais; ir spēkā standarta mainīgo nosaukumdošanas metodes. |
dimensija |
Neobligāts arguments. Variants (Garš). Vesels skaitlis, kas norāda, kuras dimensijas augšējā robeža tiek atgriezta. Pirmajai dimensijai izmantojiet 1, otrajai dimensijai 2 utt. Ja dimensija ir izlaista, tiek pieņemts, ka tā ir 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ž šādas masīva vērtības ar šīm dimensijām:
Dim A(1 To 100, 0 To 3, -3 To 4)
Paziņojums |
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ā izmantota funkcija UBound , lai noteiktu lielāko pieejamo apakšrakstu norādītai masīva dimensijai.
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.