12/11/2003, 03:17
|
| | | Fecha de Ingreso: abril-2003 Ubicación: Madrid
Mensajes: 707
Antigüedad: 21 años, 10 meses Puntos: 0 | |
| 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 |