Funkcija UBound

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

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.

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas 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.

×