Select...Case Statement

Xác định một hay nhiều khối câu lệnh phụ thuộc vào giá trị của một biểu thức.

Cú pháp:

Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select

Tham số :

Điều_kiện : bất cứ biểu thức nào mà điều khiển nếu nên thực hiện khối câu lệnh nằm sau mệnh đề Case tương ứng.

Biểu_thức : bất cứ biểu thức nào tương thích với biểu thức kiểu Condition (điều kiện). Khối câu lệnh nằm sau mệnh đề Case (trường hợp) được thực hiện nếu Condition tương ứng với Biểu_thức.

Thí dụ :

Sub ExampleRandomSelect

Dim iVar As Integer

    iVar = Int((15 * Rnd) -2)

    Select Case iVar

        Case 1 To 5

            Print "Đánh số từ 1 đến 5"

        Case 6, 7, 8

            Print "Đánh số từ 6 đến 8"

        Case 8 To 10

            Print "Lớn hơn 8"

        Case Else

            Print "Ở ngoại phạm vi 1 đến 10"

    End Select

End Sub