mmainselect

' Gambas module file

' 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.

'Se declaran publica para que se puedan acceder desde otros modulos/clases
Public valores As New Integer[] 'como es un array siempre se pasa por referencia

Public Sub Main()

  Dim x As Integer
  Dim w As Integer
  Dim SwitchNumero As Switch

  valores.Resize(6) 'creo un array de 6 valores

  SwitchNumero = New Switch(valores)

  For x = 1 To 100
    w = Int(Rnd(6) + 1)

    SwitchNumero.operar(w)

  Next

  Print "Valores: ", 1, 2, 3, 4, 5, 6
  Print "              ", valores[0], valores[1], valores[2], valores[3], valores[4], valores[5]

End