Programación VB: hay un botón de cálculo Comando1 en el formulario. Cuando se ejecute, haga clic en el botón de cálculo e ingrese N en Texto1, y luego busque S.
Subcomando privado1_Click() Dim n como entero n = Texto1 para i = 1 a n
s = s + i Siguiente i Imprimir s
End Sub