Constellation Knowledge Network - Preguntas y respuestas sobre la interpretación de los sueños - ¿Cómo hacer que la siguiente función aleatoria no aparezca repetidamente (VB)?

¿Cómo hacer que la siguiente función aleatoria no aparezca repetidamente (VB)?

Aquí te dejo un pequeño programa, espero que te sea de ayuda.

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

上篇: ¿Cuántos matrimonios ha tenido Cáncer antes? 下篇:
Artículos populares