# SELECT

SELECT Expression

[ CASE Expression [ , Expression ... ]

... ]

[ CASE Expression [ , Expression ... ]

... ]

[ ( CASE ELSE | DEFAULT )

... ]

END SELECT

Selects an expression to compare, and execute the code enclosed in the corresponding matching CASE statement. If no CASE statement matches, the DEFAULT or CASE ELSE statement is executed.

Example

You want to check the random function of a die. So you repeat the random function a thousand times and you count, how many times 1, 2, 3, 4, 5 or 6 have been thrown.

    PUBLIC SUB Form_Open()

      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
        END SELECT

      NEXT

      PRINT a, b, c, d, e, f

    END

See also

WITH, If / IIf

Previous: SEEK Next: Sgn