Funkcija UBound

Piezīme.:  Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā .

Atgriež Long satur lielāko pieejamo apakšraksts masīvsnorādītajai dimensijai.

Sintakse

UBound ( arrayname [dimensiju ] )

UBound sintaksē ir šādi argumenti:

Arguments

Apraksts

arrayname

Obligāts. Nosaukumu masīva mainīgais; seko standarta mainīgā nosaukumdošanas metodes.

dimensiju

Pēc izvēles. Varianta (Garš). Vesels skaitlis, kas norāda, kura dimensijas augšējā robeža tiek atgriezta. Izmantojiet 1 pirmajai dimensijai, 2 otrajai utt. Ja dimensiju ir izlaists, tiek pieņemts, ka tas ir 1.


Piezīmes

Funkcija UBound tiek izmantots ar funkcija LBound , lai noteiktu masīva lielumu. Izmantojiet funkciju LBound , lai atrastu masīva dimensijas apakšējā robeža.

UBound atgriež masīva ar šīm dimensijām šādas vērtības:

Dim A(1 To 100, 0 To 3, -3 To 4)

Paziņojums par

Return Value

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ā funkcija UBound , lai noteiktu lielāko pieejamo apakšraksts masīva norādītajai 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.
Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×