Ingrese 10 números desde el teclado en VB, ¿cuántos números pares hay y cuántos números impares hay?

Lo escribí para ti, es bastante simple. Agregue dos controles de etiqueta y un control de comando en el formulario

Dim a(1 To 10)

Dim b

Dim c As Integer

Atenuar d como entero

Subcomando privado1_Click()

Para b = 1 a 10

a(b) = InputBox("Datos de entrada", "", "")

Si a(b) Mod 2 = 0 Entonces

c = c 1

Label1.Caption = "Ingresaste" amp ; c amp; "número par"

ElseIf a(b) Mod 2 lt 0 Entonces

d = d 1

Label2.Caption; "Usted ingresó" amp; d amp; "número impar"

Finalizar si

Siguiente b

Fin Sub

Sub privado Form_Load ()

Label1.Caption = ""

Label2.Caption = ""

End Sub