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