¿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