Foros del web, para los que viven de bits

Tengo que hacer un programa que me sume los numeros pares entre dos cantidades, tengo dos texbox y en cada uno pongo una cantidad en un tercer texbox me debe salir el resultado.

Por ejemplo si pongo en el primero 10 y el otro 11 me deve de dar 10 pero si pongo 2 y 8 me debe de sumar el 2+4+6+8 y ponerme el resultado en el texbox3, yo pienso que es con un for pero este me imprime todos los numeros y ya no se como sumarlos.

ayudenme por favor.


gracias por adelantado.

nTotal = 0

For nInd = Me.cuadro1 to me.cuadro2
If (Me.cuadro1 mod me.cuadro2) = 0 Then
nTotal = nTotal + nInd
End If
Next

me.cuadro3 = nTotal


creo que esto debería funcionar....

Perdona, me confundí en una cosilla tonta


nTotal = 0

For nInd = Me.cuadro1 to me.cuadro2
' Comprobar si es par
If (nInd mod 2) = 0 Then
nTotal = nTotal + nInd
End If
Next

me.cuadro3 = nTotal

Hola bleid

otra forma de hacerlo:

Dim I_num As Long

'Asegúrate que solo se teclean números
If Text1 <> "" And Text2 <> "" And Text1 <= Text2 Then

For I_num = Text1 To Text2

If I_num Mod 2 = 0 Then

Text3 = Text3 + I_num
End If
Next
End If

Un saludo

Pues probare los dos gracias, aunque el tuyo teri no lo comprendo mucho me lo podrias explicar gracias.

Hace lo mismo que te ha puesto pabli, solo que no comprueba algunas cosas que él sí te pone.

'Inicilializar el acumulador
nTotal = 0

'me.cuadro1 campo de texto del formulario con el primer valor
'me.cuadro2 campo de texto del formulario con el segundo valor

For nInd = Me.cuadro1 to me.cuadro2
' Comprobar si es par
If (nInd mod 2) = 0 Then
' acumular los valores pares
nTotal = nTotal + nInd
End If
Next
' pasar el resultado al cuadro resultado
me.cuadro3 = nTotal

Si gracias es que me confundi por que tu utilizaste el me.cuadro1 en lugar de text1.text pero gracias por todo aun que no me funciono.
Lo que nesecitaba era esto:

Private Sub Command1_Click()
Dim n1 As Integer, n2 As Integer, x As Integer
n1 = Text1.Text
n2 = Text2.Text
K = n1 Mod 2

If K = "1" Then
n1 = n1 + 1
For x = n1 To n2 Step 2
s = s + x
Next x
Print s
ElseIf K = "0" Then
For x = n1 To n2 Step 2
s = s + x
Next x
Print s
End If
End Sub