Choose Function
Tagastab valitud väärtuse argumentide loendist.
SĂĽntaks:
Choose (Index, Selection1[, Selection2, ... [,Selection_n]])
Parameetrid:
Index: arvavaldis, mis määrab tagastatava väärtuse.
Selection1: suvaline avaldis, mis sisaldab ühte võimalikest valikutest.
Funktsioon Choose tagastab väärtuse avaldiste loendist indeksi väärtuse põhjal. Kui indeks =1, siis tagastab funktsioon loendi esimese väärtuse, kui indeks =2, siis teise väärtuse jne.
Kui indeksi väärtus on väiksem kui 1 või suurem kui loendis olevate avaldiste arv, siis tagastab funktsioon tühiväärtuse.
Järgmises näites kasutatakse funktsiooni Choose stringi valmiseks menüü moodustavate erinevate stringide hulgast:
Näide:
Sub ExampleChoose
Dim sReturn As String
sReturn = ChooseMenu(2)
Print sReturn
End Sub
Function ChooseMenu(Index As Integer)
ChooseMenu = Choose(Index, "Kiire vorming", "Salvesta vorming", "SĂĽsteemi vorming")
End Function