Ayuda Con Random

fakIu
15 de Octubre del 2005
Buenas, queria pedirles si alguien podria explicarme como hacer un buen random entre 1 y 40

el que tengo es algo asi .. pero se repiten mucho los numeros...

desde ya gracias ...

CODE :

'Obtenemos Aleatoriamente la Carta
X = Rnd * 100
X = CInt(X)

'Verifica que sea menor 40 y de lo contrario la corrige.
Do While X > 40
X = X - 1
Loop

'Verifica que no sea Mayor 40 y de lo contrario la corrige.
Do While X < 1
X = X + 1
Loop


mvallejos
15 de Octubre del 2005
LLama a Randomize antes de la serie de random y el rnd lo multiplicas por 40
Randomize
X = Rnd * 40