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 ditetapkan 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