Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB 17 personas numeradas del 0 al 16 forman un círculo. La persona 0 comienza a contar desde 1. Cualquiera que informe un número múltiplo de 3 abandona el círculo.

Programación VB 17 personas numeradas del 0 al 16 forman un círculo. La persona 0 comienza a contar desde 1. Cualquiera que informe un número múltiplo de 3 abandona el círculo.

Private Sub Form_Click()

Atenuar pin(0 a 16) como entero

Atenuar i, n, orden

Para i = 0 a 16

pin(i) = 1

n = 17

i = 0

pedido = 0

Mientras n gt; 1

Si pin(i) = 1 Entonces

pedido = pedido 1

Si orden Mod 3 = 0 Entonces

pin(i) = 0

n = n - 1

Imprimir i amp "out"

Finalizar si

i = (i 1) Mod 16

Wend

Para i = 0 a 16

Si pin(i) = 1 Entonces

Imprimir i amp "izquierda"

Fin

Fin del subtítulo