document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Module Multi3_5 \'My solution to Project Euler Problem 1
  2.     Sub Main()
  3.         Dim Nbrs(999) As Boolean, R As Integer = 0
  4.         For i = 3 To 999 Step 3 : Nbrs(i) = True : R += i : Next
  5.         For i = 5 To 999 Step 5 : If Not Nbrs(i) Then R += i
  6.         Next : Console.WriteLine(R)
  7.     End Sub
  8. End Module
');