Las puntuaciones altas requieren que VB genere varios números aleatorios no repetidos.

Agregue los controles text1, text2, text3 y command1 al formulario, luego copie el siguiente código y ejecútelo. Cuando ingresa un número en texto1, ingresa un rango de números en texto2 y presiona el botón comando1, texto3 mostrará n números aleatorios únicos.

Opción explícita

Subcomando privado 1_Click()

Dim i es un número entero, j es un número entero, k es un número entero, ss, tt() es un número entero, outzf es una cadena

ss = Split(Text1. Text, ","")

Redim·TT

k = Val(Text2. Text )

Si k & gtUBound(ss) + 1 entonces

MsgBox "La cantidad generada que ingresó es mayor que la lista de cantidades, ¡corríjala!"

Conector de salida

Terminará si...

Hacer irregularidad

j = Rnd * k

Si tt(j) = 0, entonces

tt(j) = 1

outzf = outzf & ampss(j) y amp","

i = i + 1

Terminará si...

Múltiples actividades

Ciclo hasta i = k

SMS 3.

Texto = outzf

Conector final

上篇: Planificación del contenido de Hebi CBD 下篇: Consulta de almanaque para el auspicioso día del 5 de febrero de 2019