Switch funkcija

Įvertina argumentų sąrašą, kurį sudaro reiškinys ir reikšmė. Funkcija „Switch“ grąžina reikšmę, susietą su šios funkcijos perduotu reiškiniu.

Sintaksė:


Switch (reiškinys1, reikšmė1[, reiškinys2, reikšmė2[..., reiškinys_n, reikšmė_n]])

Parametrai:

Funkcija Switch įvertina reiškinį iš kairės į dešinę ir tada grąžina reikšmę, priskiriamą funkcijos reiškiniui. Jei reiškinys ir reikšmė nepateikiami drauge, įvyksta vykdymo klaida.

Reiškinys: Reiškinys, kurį norite įvertinti.

Reikšmė: Reikšmė, kurią norite grąžinti, jei reiškinys yra „True“.

Šiame pavyzdyje funkcija Switch priskiria tinkamą lytį vardui, kuris perduodamas funkcijai:

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

Pavyzdys:


Sub ExampleSwitch
Dim sGender As String
    sGender = GetGenderIndex( "Jonas" )
    MsgBox sGender
End Sub
 
Function GetGenderIndex (sName As String) As String
    GetGenderIndex = Switch(sName = "Janina", "moteris", sName = "Jonas", "vyras")
End Function

Paremkite mus!