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:

Error codes:

5 Vigane protseduuri väljakutse

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