Red de conocimiento informático - Problemas con los teléfonos móviles - VBS es una bola aleatoria de dos colores, pero entrará en un bucle infinito, ¡¡¡por favor ayuda!!!!!!

VBS es una bola aleatoria de dos colores, pero entrará en un bucle infinito, ¡¡¡por favor ayuda!!!!!!

Dim num(7), k

'Aleatorizar 6 números

Para i = 1 a 6

Aleatorizar

Hacer

num(i - 1) = Int(33 * Rnd 1)

'Determinar si hay duplicados

k = 0

Si i gt; 1 entonces

Para j = 0 A i - 1

Si num(i) = num(j) Entonces k = 1: Salir para

Siguiente j

Finalizar si

Bucle while k = 1

Siguiente i

'Aleatorizar un número

num(6) = Int(16 * Rnd 1)

'Escribe estos 7 números

Para i = 0 a 6

Imprime num (i)