Tema: Como consigo numeros aleatorios enteros ?
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 20/05/2004, 08:32
Artur
 
Fecha de Ingreso: noviembre-2003
Mensajes: 79
Antigüedad: 21 años, 4 meses
Puntos: 0
Dim MyValue As Integer
Randomize()
numero = CInt(Int((100 * Rnd()) + 1))

Con esto obtienes un número aleatorio entre 1 y 100.