Visual Basic - No repetir varios numeros aleatorios independiente

Life is soft - evento anual de software empresarial
 
Vista:

No repetir varios numeros aleatorios independiente

Publicado por EPI (3 intervenciones) el 17/06/2001 11:18:05
Estoy intentando hacer somo si fuese un programa para rellenar boletos de la primitiva, pero con nueve números y aleatoriamente del 1 al noventa, pero como son independientes, suelen repetirse de vez en cuando.
¿como puedo evitar estas repeticiones?.
Como podeis ver soy muy novato en esto de la programación, pero espero que ya aprenderé más adelante.
Gracias de antemano por vuestra ayuda.
EPI
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Usa variables

Publicado por Francisco Rossi (Stone Cold) (76 intervenciones) el 18/06/2001 04:06:19
Para esto puedes usar variables.
Coloca en las declaraciones esto
Dim ExNumAlea(1 to 90) as boolean

entonces para hacer una lista del 1 al 90 de forma desordenada coloca esto, pero antes crea una lista, esto es para que veas como es no mas, le puedes quitar muchas cosas, ya que no te puedo explicar las cosas detalladamente.

Crea un boton para que haga la lista.
Private Sub boton_click()

dim conteo%, num%
conteo = 0

do while conteo < 90

num = (90 * rnd)
if ExNumAlea(num) = 0 then
list1.additem num
ExNumAlea(num) = 1
conteo = conteo + 1
end if

loop

End sub

espero que no tengas ninguna falla. porque no lo hice por el VB
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar