Programación VB, el mono come melocotones

Supongamos que el número del día siguiente es p>De esta relación, podemos derivar la relación entre N y X:

x=n-n/2-1

x=n/2-1

n/2=x 1

n=2x 2

Con esta relación se puede programar:

Sub privado Form_Click()

n = 1

Imprimir "Día 10: 1 "

Para i = 9 a 1 Paso -1

n = 2 * n 2

Imprimir "th"; i "día:"; n

Siguiente

End Sub