Private Function SumModSeri()
Dim s As Integer, i As Integer '聲明變量s和i
For i = 1 To 100 '變量由1到100循環累加
If i Mod 2 = 0 Then
s = s - i ‘如果變量i為偶數，則減i
Else
s = s + i '如果變量i為基數，則加i
End If
Next i '回頭處理下壹個i值
SumModSeri = s ' 函數輸出累計計算結果
End Function
調用函數舉例
Private Sub Command1_Click()
MsgBox SumModSeri '提示框顯示計算結果為-50
End Sub