Pages

viernes, 18 de enero de 2013

Sumatoria de números múltiplos de cinco Codigo Fuente en Visual Basic

Problema
Desarrolle un algoritmo que realice la sumatoria de los números enteros múltiplos de 5,
comprendidos entre el 1 y el 100, es decir, 5 + 10 + 15 +…. + 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 = 5 To 100 Step 5
            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