Pages

viernes, 18 de enero de 2013

Problema
Desarrolle un algoritmo que realice la sumatoria de los números enteros pares
comprendidos entre el 1y el 100, es decir, 2 + 4 + 6 +…. + 100. El programa deberá imprimir los números en cuestión y finalmente su sumatoria

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 sum As Integer = 0
        Dim cad As String = ""
        For i As Integer = 2 To 100 Step 2
            sum = sum + i
            cad = cad + " - " + Trim(i)
        Next i
        TextBox1.Text = cad
        TextBox2.Text = Trim(sum)
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada