Fungsi Choose

Mengembalikan nilai yang dipilih dari daftar argumen.

Sintaksis:

Pilih (Indeks, Pilihan1 [, Pilihan2, ... [, Pilihan_n]])

Parameter:

Indeks: Ekspresi numerik yang menentukan nilai untuk pengembalian.

Pilihan1: Ekspresi apa pun yang berisi salah satu pilihan yang mungkin.

Fungsi Choose mengembalikan nilai dari daftar ekspresi berdasarkan nilai indeks. Jika Indeks = 1, fungsi mengembalikan ekspresi pertama dalam daftar, jika indeks i = 2, ia mengembalikan ekspresi kedua, dan seterusnya.

Jika nilai indeks kurang dari 1 atau lebih besar dari jumlah ekspresi yang tercantum, fungsi mengembalikan nilai Nihil.

Contoh berikut menggunakan fungsi Pilih untuk memilih string dari beberapa string yang membentuk menu:

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:

Sub ExampleChoose

Dim sReturn As String

    sReturn = ChooseMenu(2)

    Print sReturn

End Sub

 

Function ChooseMenu(Index As Integer)

    PilihMenu = Pilih(Indeks, "Format Cepat", "Simpan Format", "Format Sistem")

End Function