Calcular la sumatoria de n primero números iterativo Codigo Fuente en Visual Basic

Problema
Calcular la sumatoria de n primero números

Solución
Se ingresa un número entero y  retorna la suma de los números anteriores incluido el número ingresado.

Ejemplo

• Ingresa: 5

          1+2+3+4+5 = 15   

• Salida: 15

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
     ByVal e As System.EventArgs) Handles Button1.Click
        Dim Num As Integer
        Dim sum As Integer
        Num = TextBox1.Text
        For i As Integer = 1 To Num
            sum = sum + i
        Next
        TextBox2.Text = Trim(sum)
    End Sub
End Class

Descargar Proyecto Visual Basic