La programación VB realiza el cálculo de s=1-2 3-4... 97-98 99-100

Escribir función de acumulación

Función privada SumModSeri()

Dim s As Integer, i As Integer 'Declarar variables s e i

For i = 1 To 100 'La variable se acumula en un bucle de 1 a 100

Si i Mod 2 = 0 Entonces

s = s - i 'Si la variable i es un número par, luego resta i

Else

s = s i 'Si la variable i es la base, suma i

End If

Siguiente i 'Volver al proceso Un valor i

SumModSeri = s ' La función genera el resultado del cálculo acumulativo

Función final

Ejemplo de llamada de función

Private Sub Command1_Click()

MsgBox SumModSeri 'El cuadro de diálogo muestra que el resultado del cálculo es -50

End Sub