Para generar números aleatorios evitando repeticiones de secuencias en Visual Basic 6, hay que utilizar esta instrucción:
Randomize Timer (Esta instrucción debe estar antes de la función Rnd())
Generar un número entre 0 y n:
minumero = Int ( Rnd ( ) x ( n+1 ) )
Generar un número entre 1 y n:
minumero = 1 + Int ( Rnd ( ) x n )
Generar un número entre m y n:
minumero = m + Int ( Rnd ( ) x ( n – m + 1 ) )