Excel - La suma de los pares

 
Vista:

La suma de los pares

Publicado por daniel (1 intervención) el 31/07/2021 02:05:57
Sub Problema10()

Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim s As Integer
Dim mensaje As String

Dim v(10) As Integer

MsgBox ("Digitar 10 numeros")
n = 10
For i = 1 To n

mensaje = InputBox("Digite el número", i)
v(i) = Val(mensaje)
Next i
For i = 2 To n
m = v(i) Mod 2

If m = 0 And v(i) <> 0 Then
j = v(i)
s = j / s
End If
Next i

MsgBox ("la suma de los pares es :" & s)

Grupo buenas noches he tratado de realizar este codigo pero no compila en vba excel,

leer 10 números enteros almacenados en un vector y determinar a cuanto es igual la suma de los pares de los numeros leidos, el codigo esta medianamente bien por que compila pero el problema esta en que no me aroja un resultado siempre es 0
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
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

La suma de los pares

Publicado por Antoni Masana (1895 intervenciones) el 02/08/2021 16:13:16
Las cosas que están medianamente bien también están medianamente mal y esta esta mal.

1
2
3
4
5
6
7
8
9
10
11
12
Sub Problema10()
    Dim Mensaje As Integer, Suma as Integer, n as Byte
 
    MsgBox ("Digitar 10 números")
    n = 10
    Suma = 0
    For i = 1 To n
        mensaje = val(InputBox("Digite el número", i))
        If (Mensaje Mod 2) = 0 Then Suma = Suma + Mensaje
    Next
    MsgBox ("la suma de los pares es :" & Suma)
End Sub

Funciona bien si los número introducidos no tienen un valor mayor de 32768 y la suma tampoco.
Para números mayores cambia:

1
2
Sub Problema10()
    Dim Mensaje As Long, Suma as Long, n as Byte

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar