vb6.0 genera números aleatorios no repetidos
dim a, b, c, d
sub asdf
aleatorio
a = Int(10 * Rnd)
Do p>
b = Int(10 * Rnd)
Bucle hasta b lt; a
Hacer
c = Int(10 * Rnd )
Bucle hasta c lt; b y c lt; a
Hacer
d = Int(10 * Rnd)
Bucle hasta d lt; b Y d gt; a Y d gt;