Sum multiples of 3 and 5

From Rosetta Code
Sum multiples of 3 and 5 is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

The objective is to find the sum of multiplies of 3 or 5 below n within a function. Test it with n = 1000.

BASIC

Works with: FreeBASIC

<lang basic> Declare function mulsum35(n as integer) as integer Function mulsum35(n as integer) as integer 

   Dim s as integer
   For i as integer = 1 to n
       If (i mod 3 = 0) or (i mod 5 = 0) then
           s += i
       End if
   Next i
   Return s

End Function Print mulsum35(1000) Sleep End </lang>

Output

 234168
Retrieved from "https://rosettacode.org/wiki/Sum_multiples_of_3_and_5?oldid=231588"