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