Red de conocimiento informático - Problemas con los teléfonos móviles - VB ingresa 10 números enteros y calcula la suma de números pares e impares. Gracias

VB ingresa 10 números enteros y calcula la suma de números pares e impares. Gracias

Crea un texto1 y un comando1, el código es el siguiente:

Private Sub Command1_Click()

Si no es numérico(Text1.Text) Entonces

MsgBox ("Ingrese primero el rango de números en el cuadro")

Salir de Sub

Fin si

Dim A(10) Como entero, N como entero

Dim I como entero, Og como entero, Jh como entero

Form1.AutoRedraw = True

Form1.Cls

N = Val(Text1.Text)

Aleatorizar

Imprimir "Los 10 números ingresados son:";

Para I = 1 a 10

A(I) = Int(Rnd * N) + 1

Imprimir A(I);

Si A(I) Mod 2 = 0 Entonces

Og = Og + 1

Else

Jh = Jh + A(I)

Fin si

Imprimir

Imprimir "La suma de los números pares es:" Og

Imprimir "La suma de los números impares es:"; p>

End Sub

Ya ejecutado.