Determinar la suma de las cifras pares de un número Codigo fuente en Visual Basic

Problema
Implemente un algoritmo para determinar la suma de las cifras pares de un número ingresado por teclado

Solución
Se ingresan una cadena de números y obtenemos como resultado la suma de los números pares de dicha cadena.
Ejemplo:

• Entrada: 123456

              2 + 4 + 6

• Resultado: 12

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 Long
        Dim digito As Integer
        Dim suma As Integer
        num = TextBox1.Text
        While (num > 1)
            digito = num Mod 10
            num = Math.Floor(num / 10)
            If (digito Mod 2 = 0) Then
                suma = suma + digito
            End If
        End While
        TextBox2.Text = suma
    End Sub
End Class

Descargar Proyecto Visual Basic