Pregunta de VB: expresa cualquier número de cuatro cifras como la suma de números naturales consecutivos

dim n como entero

n=inputbox("Ingrese un número de cuatro dígitos:")

if (n-6) mod 4=0 entonces

text1.text=str(n) "=" str((n-6)/4 ) " " str((n-6)/4 1) " " str((n-6 ) /4 2) " " str((n-6)/4 3)

else

text1.text="No se pueden encontrar cuatro números naturales consecutivos"

terminar si