Buenas tardes, me gustaría ver si alguien me pudiera echar una mano.
Me ponen una lista de ejercicios y el último dice así.

Escribe un programa que, dado un número entero, calcule la suma de todos sus dígitos que sean pares. Para extraer los dígitos usaremos un bucle que divida X por 10 sucesivamente. El resto de cada división corresponde a cada uno de los dígitos.

Estoy dándome cabezazos y no sé donde estoy fallando...
Gracias de antemano.
Un saludo.

No funciona.. aquí el código

Private Sub Form_Load()
 
Dim numero As Integer
Dim suma As Integer
Dim par As Boolean
Dim digito As Integer
 
 
 
numero = InputBox("Introduce un numero: ")
 
par = False
suma = 0
 
    While numero > 0
 
        digito = numero Mod 10
 
        If digito Mod 10 = 0 Then
        suma = suma + digito
 
par = True
 
        numero = numero / 10
        End If
    Wend
 
 
        MsgBox ("La suma de los digitos pares han sido: " & suma)
 
 
 
End Sub
 
 

[MOD] usar etiquetas GeSHi para publicar código.

Correcto llevas razón engel, cambio el 10 por el 2 para saber si es par o no, pero no entiendo al línea 22, cuando ejecuto el código; introduce el usuario 44 devuelve 8, aparentemente funciona pero cuando introduzco 88 se queda colgado...

Private Sub Form_Load()
 
Dim numero As Integer
Dim suma As Integer
Dim par As Boolean
Dim digito As Integer
 
 
 
numero = InputBox("Introduce un numero: ")
 
par = False
suma = 0
 
    While numero > 0
 
        digito = numero Mod 10
 
        If digito Mod 2 = 0 Then
        suma = suma + digito
 
par = True
 
        numero = numero / 10
        End If
    Wend
 
 
        MsgBox ("La suma de los digitos pares han sido: " & suma)
 
 
 
End Sub

Te corrijo el código in situ...

Private Sub Form_Load()
    Dim numero As Integer, suma As Integer, digito As Integer ' , par As Boolean no hace falta
 
    numero = InputBox("Introduce un numero: ") ' si ofrece un valor superior a 32767 generará un error de desbordamiento, mejor si lo declaras como 'long', en vez de 'integer'
    'par = False
    'suma = 0  con la declaración ya se establece el valor a 0.
    Do While (numero > 0)
        digito = (numero Mod 10)
        If ((digito And 1) = 0) Then ' "mod 2" es lo mismo que "and 1", pero así mucho más rápido
            suma = (suma + digito)
            'par = True
        End If
        numero = (numero \ 10) ' esta línea debe quedar fuera del condicional
        ' se debe ejecutar si o si en cada ciclo, para tener acceso al siguiente dígito
        ' además debe ser "\" (una división entera) no "/"
        ' ...O bien eliminar los decimales con: numero = Int(numero / 10)
        ' porque dejará decimales y al ser 'numero' declarado entero forzará un redondeo que falsea el resultado...
    Loop
 
    MsgBox ("La suma de los digitos de valor par es: " & suma)
End Sub