ເນື້ອໃນ

# ຄຳສັ່ງ Select...Case

ກຳນົດໜຶ່ງ ຫຼື ຫຼາຍບລັອກຄຳສັ່ງໂດຍຂຶ້ນກັບຄ່າຂອງນິພົດ.

### ໄວຍາກອນ:

      Select Case ນິພົດ
         Case ຄ່າຕ່າງໆ
           ບລັອກຄຳສັ່ງ
      [  Case ຄ່າຕ່າງໆ2
           ບລັອກຄຳສັ່ງ]
      [  Case Else
           ບລັອກຄຳສັ່ງ]
      End Select

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

ນິພົດ: ນິພົດໃດໜຶ່ງທີ່ຄວບຄຸມວ່າບລັອກຄຳສັ່ງທີ່ຕາມຫຼັງຂໍ້ຄວາມ Case ນັ້ນຈະຖືກປະມວນຜົນຫຼືບໍ່.

ຄ່າຕ່າງໆ: ລາຍການຄ່າໃດໜຶ່ງທີ່ເຂົ້າກັນໄດ້ກັບນິພົດ. ບລັອກຄຳສັ່ງທີ່ຕາມຫຼັງຂໍ້ຄວາມ Case ຈະຖືກປະມວນຜົນຖ້າ ນິພົດ ກົງກັບ ຄ່າຕ່າງໆ.

### ຕົວຢ່າງ:

    Sub ExampleRandomSelect
    Dim iVar As Integer
        iVar = Int((15 * Rnd) -2)
        Select Case iVar
            Case 1 To 5
                Print "ຕົວເລກແຕ່ 1 ຫາ 5"
            Case 6, 7, 8
                Print "ຕົວເລກແຕ່ 6 ຫາ 8"
            Case 8 To 10
                Print "ໃຫຍ່ກວ່າ 8"
            Case Else
                Print "ຢູ່ນອກຊ່ວງ 1 ຫາ 10"
        End Select
    End Sub

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

ຟັງຊັນ Choose

ຟັງຊັນ Switch

ຄຳສັ່ງ If

ຟັງຊັນ Iif ຫຼື Switch

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!