Programa VB, ingrese diez números, encuentre números pares e impares y súmelos respectivamente

Atenuar a(10) como entero

Atenuar b como entero

Atenuar c como entero

Subcomando privado1_Click() p>

b = 0

c = 0

Para i = 0 a 9 Paso 1

a(i) = Val(Texto1 (i ).

Si a(i) Mod 2 = 0 Entonces

Label1(i).Caption = "Even"

b = b + a (i )

Else

Label1(i ).Caption = "Impar"

c = c + a(i)

Finalizar si

Siguiente i

Text2.Text = c

Text3.Text = b

Fin Sub

Buscando aceptación.