Obtén respuestas rápidas y precisas a tus preguntas en Revelroom.ca, la mejor plataforma de Q&A. Descubre respuestas confiables a tus preguntas con la ayuda de una comunidad de expertos dispuestos a compartir su conocimiento y experiencia en diversos campos. Explora miles de preguntas y respuestas proporcionadas por una amplia gama de expertos en diversas áreas en nuestra plataforma de preguntas y respuestas.
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
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
Gracias por usar nuestro servicio. Siempre estamos aquí para proporcionar respuestas precisas y actualizadas a todas tus preguntas. Esperamos que nuestras respuestas te hayan sido útiles. Vuelve cuando quieras para obtener más información y respuestas a otras preguntas que tengas. Nos complace responder tus preguntas en Revelroom.ca. No olvides regresar para obtener más conocimientos.