Visual Basic - Ayuda: Código en Visual Basic 6.0

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda: Código en Visual Basic 6.0

Publicado por Juan Luis (2 intervenciones) el 19/11/2017 01:17:50
Buenas noches, 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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda: Código en Visual Basic 6.0

Publicado por Juan Luis (2 intervenciones) el 19/11/2017 02:30:51
El código esta aqui pero no me funciona

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar