Código de programación VB: Si hay 2010 estudiantes alineados, presione 1, 2, 1, 2, 3, 2, 1, 2, 3, 4, 3, 2, 1, 2, 3, 4, 5, las reglas de 4, 3, 2, 1,...

El resultado es 30

Dim i, lMax, j, iStep

Dim s$

lMax = 2

iStep = 1

j = 0

Hacer mientras i lt 2010

j = j iStep

Si j =; lMax Entonces

lMax = lMax 1

iStep = -1

Si no j = 1 Entonces

iStep = 1

Finalizar si

i = i 1

s = s amp; ","

Bucle

MsgBox; " Número de "amp; i &" = "j

Debug.Print s