Bienvenido a Revelroom.ca, donde puedes obtener respuestas confiables y rápidas con la ayuda de nuestros expertos. Encuentra respuestas rápidas y fiables a tus preguntas gracias a la asistencia de expertos experimentados en nuestra plataforma amigable y fácil de usar. Experimenta la conveniencia de obtener respuestas precisas a tus preguntas gracias a una comunidad dedicada de profesionales.

suma de numeros pares en visual porfa

Sagot :

Cree diez cajas de texto, para llenar con numeros enteros, y que sume los valores pares e impares y mostar la sumatoria en dos cajas diferentes y por aparte...
Hize la forma sencilla y despues me dijeron, esta:

Dim I As Integer
Dim P As Long
Dim R As Long
For I = 1 To 10
If I Mod 2 = 0 Then
R = R + I
Else
P = P + I
End If
Next I
TxtResulpar.Text = Str(R)
TxtResulim.Text = Str(P)

->Pero nada que me sale... Con esto me exoneran del examen