selectcase

' Desea calcular una función aleatoria.
' Repite una función aleatoria mil veces para
' conocer cuantas veces aparecen los números
' 1,2,3,4,5 o 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 "¡Esto es imposible!"
  END SELECT

NEXT

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