Calcular la sumatoria de n primero números 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 numero ingresado.

Ejemplo

• Ingresa: 5

                       1+2+3+4+5 = 15   

• Salida: 15

Codigo Fuente en Visual Basic

Public Class Form1
    Public Function sumatoria(ByVal X As Integer,
                              ByVal N As Integer)
        If (N > 0) Then
            X = sumatoria(X, N - 1)
            X = X + N
            Return X
        Else
            X = 0
            Return X
        End If
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim X As Integer = 0
        N = TextBox1.Text
        X = sumatoria(X, N)
        TextBox2.Text = X
    End Sub
End Class

Descargar Proyecto Visual Basic