super randomblandon!

Ya pusimo una ve un generador de random blandon, pero que les pareceria un SUPER RANDOM BLANDON????, imposible?, no lo creo!.

BRANDO_SUPERMAN

' NOTA: e un pajaro? e un avion? e SuperRand!
Function SuperRand() As Integer
    Dim iRandomMalo As Integer
    Dim iRandomBueno As Integer
   
    Randomize
   
    ' hay malo random y bueno marlons
   '  todo depende como pegue la falopa con el guisky

    iRandomMalo = Int(46 * Rnd) + 1
    iRandomBueno = Int(23 * Rnd) + 1
    iRandomBueno = iRandomBueno + Int(23 * Rnd) + 1
       
    Do While iRandomBueno = iRandomMalo
        iRandomBueno = Int(23 * Rnd) + 1
        iRandomBueno = iRandomBueno + Int(23 * Rnd) + 1
    Loop
   
    SuperRand = iRandomBueno
       
  End Function

conozco a un par que le dan al poxiRand, pero bueno eso lo dejo pa otro post.

Social Share Toolbar

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *