ຟັງຊັນ Switch

ປະເມີນລາຍການຂອງອາກິວເມັນ ເຊິ່ງປະກອບດ້ວຍນິພົດຕາມດ້ວຍຄ່າ. ຟັງຊັນ Switch ຈະສົ່ງຄືນຄ່າທີ່ກ່ຽວຂ້ອງກັບນິພົດທີ່ຖືກສົ່ງມາຫາຟັງຊັນນີ້.

Switch (Expression1, Value1[, Expression2, Value2[..., Expression_n, Value_n]]) As Variant

ຟັງຊັນ Switch ຈະປະເມີນນິພົດຕ່າງໆຈາກຊ້າຍໄປຂວາ ແລ້ວສົ່ງຄືນຄ່າທີ່ຖືກກຳນົດໃຫ້ກັບນິພົດນັ້ນ. ຖ້ານິພົດ ແລະ ຄ່າບໍ່ໄດ້ຖືກລະບຸເປັນຄູ່, ຈະເກີດຂໍ້ຜິດພາດໃນເວລາດຳເນີນການ (runtime error).

ນິພົດ (Expression): ນິພົດທີ່ທ່ານຕ້ອງການປະເມີນ.

ຄ່າ (Value): ຄ່າທີ່ທ່ານຕ້ອງການໃຫ້ສົ່ງຄືນຖ້ານິພົດເປັນ True (ຈິງ).

ໃນຕົວຢ່າງຕໍ່ໄປນີ້, ຟັງຊັນ Switch ຈະກຳນົດເພດທີ່ເໝາະສົມໃຫ້ກັບຊື່ທີ່ຖືກສົ່ງໃຫ້ຟັງຊັນ:

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