IBM Lotus Symphony
|
Vrne izbrano vrednost s seznama argumentov.
Choose (Index, Selection1[, Selection2, ... [,Selection_n]])
Index (Indeks): Številski izraz, ki podaja vrednost, ki naj se vrne.
Selection1 (Izbor1): Katerikoli izraz, ki vsebuje eno od možnih izbir.
Funkcija Choose vrne vrednost s seznama izrazov, ki temeljijo na vrednosti indeksa. Če je Index = 1, funkcija vrne prvi izraz na seznamu, če je Index i= 2, vrne drugi izraz in tako naprej.
Če je vrednost Index manjša od 1 ali večja kot število navedenih vrednosti, funkcija vrne vrednost Null.
Naslednji primer uporablja funkcijo Choose za izbiro niza od več nizov, ki tvorijo meni:
Sub ExampleChoose
Dim sReturn As String
sReturn = ChooseMenu(2)
Print sReturn
end sub
Function ChooseMenu(Index As Integer)
ChooseMenu = Choose(Index, "Quick Format", "Save Format", "System Format")
End Function