¿Cómo ordenar aleatoriamente los ocho números del 1 al 8 en VB?

Agregue etiqueta1 y botón comando1 al formulario y pegue el siguiente código. El siguiente código implementa una clasificación aleatoria no repetitiva de ocho números del 1 al 8. Sería más fácil si los números pudieran repetirse.

Dim flag (8) es un número entero, InitNum (8) es un número entero, Num (8) es un número entero

Dim i es un número entero, j es un número entero

p>

Subcomando privado 1_Click()

Para i = 0 a 7

Bandera(i) = 0

Siguiente i

i = 0

Do

j = Int(Rnd() * 8)

Si flag(j) = 0, entonces

Num(i) = InitNum(j)

flag(j) = 1

i = i + 1

Terminará si... .

Ciclo hasta i = 8

Etiqueta1. title = " "

Para i = 0 a 7

Etiqueta1. Título = Etiqueta1. Títulos y títulos. Número (1)

Siguiente I

Conector final

Subform_Load() privado

Hacer irregular

Para i = 0 a 7

InitNum(i) = i + 1

Siguiente I

Conector final