• SELECT

SELECT [ CASE ] Expression [ CASE [ Expression ] [ TO Expression #2 ] [ , ... ] ... ] [ CASE [ Expression ] [ TO Expression #2 ] [ , ... ] ... ] [ CASE LIKE Expression [ , ... ] ... ] [ { CASE ELSE | DEFAULT } ... ] END SELECT

比較する式を選択し、対応する対応するCASE文に囲まれたコードを実行します。
CASEステートメントが一致しない場合は、DEFAULTまたはCASE ELSEステートメントが実行されます。
CASEステートメントは、TOキーワードで区切られた単一値のリスト、または2つの値の間隔です。
最初の式はオプションです。CASE TO ExpressionはExpressionまでのすべての値に一致します。
最後に、CASE LIKE構文を使って正規表現と突き合わせることができます。

Examples

'あなたはダイのランダムな機能をチェックしたいです。
'だから、ランダム機能を1000回繰り返す
'あなたは、何回1、2、3、4、5または6回数え、
「投げられました。

Dim x As Integer
Dim w As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer

For x = 1 To 1000

 w = Int(Rnd(6) + 1)

Select Case w
Case 1
 a = a + 1
 Case 2
 b = b + 1
 Case 3
 c = c + 1
 Case 4
 d = d + 1
 Case 5
 e = e + 1
 Case 6
 f = f + 1
 Case Else
Print "This is impossible!"
 End Select

Next

Print a, b, c, d, e, f

See also

• Test Control Structures & Functions