Pregunta de VB: genera el número de números negativos, el número de números pares y la suma de árboles impares entre 10 números cualesquiera

Agregar un botón

Subcomando privado1_Click()

Atenuar a(9) Mientras, i Como entero, k Como entero, s Como entero, n Como entero

Para i = 0 a 9

a(i) = Val(InputBox("Ingrese cualquier número"))

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

Si a(i) Mod 2 <> 0 Entonces s = s + a(i)

Si a(i) < 0 Entonces n = n + 1

Siguiente i

Imprimir "El número de números pares es:" & k

Imprimir "El número de números negativos es :" " & n

Imprimir "La suma de los números impares es: " & s

End Sub