Pages

viernes, 25 de enero de 2013

Calcular la sumatoria números múltiplos de 3 Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo, que permita el ingreso de 100 números enteros. El programa debe sumar todos los números que sean múltiplos de 3.

Codigo Fuente en Visual Basic
Public Class Form1
    Dim c As Integer = 0
    Dim sum As Integer = 0
    Dim num, lon As Integer
    Dim cad As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        lon = TextBox1.Text
        num = TextBox2.Text
        If (lon <> c) Then
            If (num Mod 3 = 0) Then
                sum = sum + num
            End If
            c = c + 1
            cad = cad + " " + Trim(num)
            TextBox3.Text = cad
        Else
            TextBox4.Text = Trim(sum)
        End If
    End Sub
End Class

5 comentarios:

Antonio Perez Martinez dijo...

En la 8a Línea me marca error

Hey dime Diego dijo...

me marca 6 errores todos en la textbox

Magali Pfocco Zuniga dijo...

X favor me pueden ayudar con un ejercio

Magali Pfocco Zuniga dijo...

Como determinar si un numero entero es múltiplo de 3

Magali Pfocco Zuniga dijo...

Como determinar si un numero entero es múltiplo de 3

Publicar un comentario en la entrada