Tema: Aleatorios
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 05/06/2008, 12:18
Avatar de David
David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años, 1 mes
Puntos: 839
De acuerdo Respuesta: Aleatorios

Pues bien, el código que te puse hace exactamente eso:
Código:
 
Dim Looping As Integer
Dim Numero As Integer
Dim Minimo As Integer
Dim Maximo As Integer
Numero = 32
Minimo = 10
Maximo = 20
Randomize Numero
For Looping = 0 To 10
    MsgBox Fix(Minimo + Rnd * ((Maximo - Minimo) + 1))
Next Looping
Pasándole el valor 32 te genera diez números aleatorios entre 10 y 20. Si en vez de poner 32 colocas 33 los números generados serán diferentes. Pero los números generados siempre serán iguales al colocar el mismo número...
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.