Pages

jueves, 17 de enero de 2013

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

0 comentarios:

Publicar un comentario