none
Random sin repetir 60 números en VB 2008 Express RRS feed

Respuestas

  • Como puedo seleccionar 37 números de 60 con random sin que se repita ninguno.
    Gracias
    Es lo único que se me ha ocurrido.
    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
    jueves, 8 de octubre de 2009 12:31

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
    martes, 6 de octubre de 2009 5:52
  • Como puedo seleccionar 37 números de 60 con random sin que se repita ninguno.
    Gracias
    Es lo único que se me ha ocurrido.
    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
    jueves, 8 de octubre de 2009 12:31
  • 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
    jueves, 15 de octubre de 2009 14:01