Sum multiples of 3 and 5

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

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.

BASIC

Works with: FreeBASIC

This example is incorrect. Please fix the code and remove this message. Details: (Or if the function is right, the output is wrong.)

<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 += 1
       End if
   Next i
   Return s

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

Output:

 467