Los segmentos de valores de VB son diferentes entre sí

¿Privado?Sub?form_load()

Aleatorio

Mostrar

¿Dim?a(1?A?20)?¿Como? Entero,?g(1?To?9)?As?Entero

a(1)?=?Int(10?+?90?*?Rnd)

k? =?1?'?k se usa para contar aquí ***Se obtuvieron k números aleatorios

Do?While?k?

x?=?Int(10?+?90?*?Rnd)

f?=?0?' Suponiendo que x no se repite, f usa si la marca x se repite con el número aleatorio anterior, 0 significa sin repetición, 1 significa repetición

'If?x?=?a(k)?Then?f?=?1?Esta oración expresa For con el fin de determinar si existen datos duplicados, modifíquelos de la siguiente manera

For?i?=?1?To?k

If?x?=?a(i)? Entonces? f?=?1:?Exit?For?'Si x es el mismo que cualquier número aleatorio anterior, establezca f=1

Siguiente?i

Si?f? =? 0? ¿Entonces?'Si x es diferente de los números aleatorios anteriores, agregue un número aleatorio

k?=?k?+?1

a(k)?= ? x

Fin?Si

Bucle

For?j?=?1?To?20

Imprimir?a(j ) ;

Si?j?Mod?10?=?0?Entonces?Imprimir'Ajustar cada 10 salidas de datos

Siguiente?j

Imprimir

For?j?=?1?To?20

h?=?Int(a(j)?/?10)?'h es el dígito de las decenas del número aleatorio, También se puede escribir directamente como h=a(j)\10

g(h)?=?g(h)?+?1

Siguiente?j

Para?j?=?1?A?9

Imprimir?10?*?j;?"-";?10?*?j?+?9,?g(j )

¿Siguiente?j

Fin?Sub