Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB: ingrese un número n, luego ingrese n números en una línea, determine y genere los números pares entre ellos.

Programación VB: ingrese un número n, luego ingrese n números en una línea, determine y genere los números pares entre ellos.

Subcomando privado1_Click()

Atenuar i, n, m, a() como entero

Atenuar s, c() como cadena

Hacer

n = Val(InputBox("Ingrese un número entero positivo n", 0))

Si n > 0, entonces salga de Do

Loop

ch = InputBox("Ingrese una línea de números enteros separados por", "")

ReDim c(n), a(n)c = Split(ch, " ,")

m = 0

Para i = 0 Para n - 1

a(i) = Val(c(i))

Si a(i) Mod 2 = 0 Entonces m = m + 1

Imprimir "El número de entrada ("& ch & ") contiene " &m & "un número par"

End Sub