ເນື້ອໃນ

# ຟັງຊັນ Choose

ສົ່ງຄືນຄ່າທີ່ເລືອກຈາກລາຍການຂອງອາກິວເມັນ (arguments).

### ໄວຍາກອນ:

      Choose (Index As Integer, Expression1[, Expression2, ... [, Expression_n]]) As Variant

### ປະເພດຄ່າທີ່ສົ່ງກັບ:

Variant. ຄ່າທີ່ໄດ້ມາຈາກພາລາມິເຕີ Index.

### ພາຣາມິເຕີ:

Index: ນິພົດຕົວເລກໃດໜຶ່ງທີ່ຖືກປັດເປັນຈຳນວນຖ້ວນ. Index ຮັບຄ່າຈຳນວນຖ້ວນເລີ່ມຕົ້ນທີ່ 1 ເພື່ອກຳນົດວ່າຈະສົ່ງຄືນຕົວເລືອກໃດໃນບັນດາຕົວເລືອກທີ່ມີ.

Expression1, Expression2, …, Expression_n: ນິພົດຕ່າງໆທີ່ແທນແຕ່ລະຕົວເລືອກທີ່ເປັນໄປໄດ້.

ຟັງຊັນ Choose ຈະສົ່ງຄືນຄ່າຈາກລາຍການນິພົດໂດຍອີງຕາມຄ່າດັດຊະນີ (index). ຖ້າ Index = 1, ຟັງຊັນຈະສົ່ງຄືນນິພົດທຳອິດໃນລາຍການ, ຖ້າ Index = 2, ມັນຈະສົ່ງຄືນນິພົດທີສອງ ແລະ ຕໍ່ໆໄປ.

ຖ້າຄ່າດັດຊະນີນ້ອຍກວ່າ 1 ຫຼື ໃຫຍ່ກວ່າຈຳນວນນິພົດທີ່ມີໃນລາຍການ, ຟັງຊັນຈະສົ່ງຄືນຄ່າ Null.

ຂໍ້ຜິດພາດ #5 ຈະເກີດຂຶ້ນເມື່ອລະພາລາມິເຕີໄວ້. ຂໍ້ຜິດພາດ #13 ຈະເກີດຂຶ້ນຖ້າ Index ມີຄ່າເທົ່າກັບ Null.

### ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

13 ປະເພດຂໍ້ມູນບໍ່ເຂົ້າກັນ

### ຕົວຢ່າງ:

ຕົວຢ່າງຕໍ່ໄປນີ້ໃຊ້ຟັງຊັນ Choose ເພື່ອເລືອກສະຕຣິງຈາກຫຼາຍສະຕຣິງທີ່ປະກອບກັນເປັນເມນູ:

    Sub ExampleChoose
        Print ChooseMenu(2) ' "Save Format"
        MsgBox Choose(index :=  -5, 9, "Basic", PI) ' Null
        MsgBox Choose(index := 3.14, 9, "Basic", PI) ' PI
    End Sub

    Function ChooseMenu(Index As Integer)
        ChooseMenu = Choose(Index, "Quick Format", "Save Format", "System Format")
    End Function

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຄຳສັ່ງ Select...Case

ຟັງຊັນ Switch