Pages

miércoles, 16 de enero de 2013

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

0 comentarios:

Publicar un comentario en la entrada