Red de conocimiento informático - Problemas con los teléfonos móviles - VBA RND, por ejemplo, 1, 2, 3, 4, 5, 6 y 7 deben completarse aleatoriamente en 10 espacios y la frecuencia de cada número no debe exceder dos veces.

VBA RND, por ejemplo, 1, 2, 3, 4, 5, 6 y 7 deben completarse aleatoriamente en 10 espacios y la frecuencia de cada número no debe exceder dos veces.

Cambia tu forma de pensar

14 números 11223344556677

Elige uno al azar del 1 al 14, organiza los 13 restantes y luego suma los números del 1 al 13. Elija uno al azar hasta que se tomen los 10.

Atenuar i, j, k como entero

Atenuar a(14) como entero

Para i = 1 a 14

a (i) = Int((i 1) / 2)

Siguiente i

Para i = 1 a 10

j = Int((14 - i ) * Rnd 1)

Celdas(1, i) = a(j)

Para k = j A 14 - i

a(k) = a(k 1)

Siguiente k

Siguiente i