Principales respuestas
Random sin repetir 60 números en VB 2008 Express

Pregunta
-
Respuestas
-
Como puedo seleccionar 37 números de 60 con random sin que se repita ninguno.
Es lo único que se me ha ocurrido.
Gracias
Platicame para que lo quieres.
Gracias.
N=1
Inic3:
Randomize
Num(N) = Int(60 * Rnd()) + 1
For T = 1 To 60
If Num(N) = Numero(T) Then GoTo Inic3:
Next T
Numero(N).Caption = Num(N)
N = N + 1
If N = 61 Then GoTo Sig3:
GoTo Inic3:
Sig3:- Propuesto como respuesta NachoKiller jueves, 8 de octubre de 2009 12:34
- Marcado como respuesta Ignacio Vargas miércoles, 14 de octubre de 2009 17:41
Todas las respuestas
-
man yo tbn estoy buascando como hacer eso me podrias ayudar si ya lo hicistes te agradeceria mucho
- Propuesto como respuesta NachoKiller jueves, 8 de octubre de 2009 12:29
-
Como puedo seleccionar 37 números de 60 con random sin que se repita ninguno.
Es lo único que se me ha ocurrido.
Gracias
Platicame para que lo quieres.
Gracias.
N=1
Inic3:
Randomize
Num(N) = Int(60 * Rnd()) + 1
For T = 1 To 60
If Num(N) = Numero(T) Then GoTo Inic3:
Next T
Numero(N).Caption = Num(N)
N = N + 1
If N = 61 Then GoTo Sig3:
GoTo Inic3:
Sig3:- Propuesto como respuesta NachoKiller jueves, 8 de octubre de 2009 12:34
- Marcado como respuesta Ignacio Vargas miércoles, 14 de octubre de 2009 17:41
-
He tratado de comunicarme contigo la mejor forma que se me ocurrió es esta:
Dim Num(60) as Integer
N=1
Inic3:
Randomize
Num(N) = Int(60 * Rnd()) + 1
For T = 1 To 60
If Num(N) = Numero(T) Then GoTo Inic3:
Next T
Numero(N).Caption = Num(N)
N = N + 1
If N = 61 Then GoTo Sig3:
GoTo Inic3:
Iganacio Vargas