¿Cómo hacer que la siguiente función aleatoria no aparezca repetidamente (VB)?
Dim n es un número entero, a(20) es un número entero
¿Subcomando privado 1_Click()? Inicialización
n = 20
Para i = 1 a n
a(i) = i
Siguiente i
Imprimir
Comando 2. Enabled=True
Conector final
Subcomando privado2_Click()' Extrae aleatoriamente números únicos.
Hacer irregular
k = Int(Rnd * n) + 1
Imprimir a(k);
a( k) = a(n)
n = n - 1
Si n Mod 10 = 0, entonces imprima
Si n = 0, entonces comando 2.
enable=false
Finalizar ajuste