ProjectEuler_1 -TizzyT

Module Multi3_5 'My solution to Project Euler Problem 1
    Sub Main()
        Dim Nbrs(999) As Boolean, R As Integer = 0
        For i = 3 To 999 Step 3 : Nbrs(i) = True : R += i : Next
        For i = 5 To 999 Step 5 : If Not Nbrs(i) Then R += i
        Next : Console.WriteLine(R)
    End Sub
End Module