Module
Contents
Index 🔎︎

# Select...Case Statement

1 ないし複数のステートメントブロックを、与えられた表式に応じて選択します。

## 構文:

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

## パラメーター:

Condition: 個々の Case 句に続くステートメントブロックを実行するかの判定基準となる表式。

Expression: Condition の判定基準と対比させる、同じ変数型の表式。各 Case 句に続くステートメントブロックは、該当する Expression が Condition と一致した場合にのみ実行されます。

## 例:

    Sub ExampleRandomSelect

    Dim iVar As Integer

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

        Select Case iVar

            Case 1 To 5

                Print "Number from 1 to 5"

            Case 6, 7, 8

                Print "Number from 6 to 8"

            Case 8 To 10

                Print "Greater than 8"

            Case Else

                Print "Out of range 1 to 10"

        End Select

    End Sub