Pasirinkti funkciją

Grąžina iš argumentų sąrašo pasirinktą reikšmę .

Sintaksė:


Pasirinkti (indeksas, pasirinkimas[, pasirinkimas2, ... [,pasirinkimas_n]])

Parametrai:

Indeksas: Skaitinis reiškinys, nurodantis grąžintiną reikšmę.

Pasirinkimas1: Bet kuris reiškinys, kuriame yra vienas iš galimų pasirinkimų.

Funkcija Pasirinkti grąžina reikšmę iš reiškinio sąrašo pagal indekso reikšmę. Jei indeksas = 1, funkcija grąžina pirmąjį reiškinį sąraše, jei indeksas i = 2, antrąjį reiškinį ir pan.

Jei indekso reikšmė yra mažesnė nei 1 arba didesnė už išvardytų reiškinių skaičių, funkcija grąžina „Null“ reikšmę.

Šiame pavyzdyje naudojama funkcija Pasirinkt , kad pasirinktumėte eilutę iš kelių eilučių, sudarančių meniu:

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

Pavyzdys:


Sub ExampleChoose
Dim sReturn As String
    sReturn = ChooseMenu(2)
    Print sReturn
End Sub
 
Function ChooseMenu(Index As Integer)
    ChooseMenu = Parinkti(indeksas, "Greitas formatas", "Įrašyti formatą", "Sistemos formatas")
End Function

Paremkite mus!