Fungsi Switch

Mengevaluasi daftar argumen, yang terdiri dari ekspresi diikuti oleh nilai. Fungsi Switch mengembalikan nilai yang dikaitkan dengan ekspresi yang dilewati oleh fungsi ini.

Sintaksis:


Switch (Ekspresi1, Nilai1 [, Ekspresi2, Nilai2 [..., Ekspresi_n, Nilai_n]])

Parameter:

Fungsi Switch mengevaluasi ekspresi dari kiri ke kanan, dan kemudian mengembalikan nilai yang ditugaskan ke ekspresi fungsi. Jika ekspresi dan nilai tidak diberikan sebagai pasangan, kesalahan runtime terjadi.

Ekspresi1, Ekspresi2: Ekspresi apa saja yang hendak dibandingkan.

Nilai: Nilai yang ingin Anda kembalikan jika ekspresi itu Benar.

Pada contoh berikut, fungsi Switch menetapkan jenis kelamin yang sesuai dengan nama yang diteruskan ke fungsi:

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:


Sub ExampleSwitch
Dim sGender As String
    sGender = GetGenderIndex( "John" )
    MsgBox sGender
End Sub
 
Function GetGenderIndex (sName As String) As String
    GetGenderIndex = Switch(sNama = "Jane", "female", sNama = "John", "male")
End Function