Programación para problemas de conteo de niños
Subcomando privado 1_Click()
Dim a(20) es un número entero, I es un número entero, ii es un número entero, iii es un número entero, s es un número entero, h es un número entero
Para i = 1 a 20
a(i) = i
Siguiente i
Para iii = 1 a 20
Para i = 1 a 20
Si a(i) lt0 y a(i) Mod 3 = 0
Imprima "a(&i&")"
a(i) = 0
Terminará si...
Siguiente i
Para i = 20 a 1 paso - 1
Si a(I) lt; gt entonces 0
s = a(i)
Salir para...
Terminará if...
Siguiente i
Para i = 1 a 20
Si a(I) lt entonces 0
a(i ) = s 1
h = i
Salir para...
Terminará si...
Siguiente yo
p>Para i = h 1 a 20
Si a(I) lt; entonces 0
Para ii = i - 1 a 1 paso - 1
Si a(ii) lt; entonces 0
a(i) = a(ii) 1
Salir para...
Terminará si...
Siguiente ii
Terminará si...
Siguiente yo
Siguiente iii
Conector final