document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Module SmallestMul \'My solution to Project Euler Problem 5
  2.     Sub Main()
  3.         Dim crntNbr As Double = 21
  4.         While True
  5.             Dim failed As Boolean = False
  6.             For i = 2 To 20
  7.                 If Not crntNbr Mod i = 0 Then
  8.                     failed = True
  9.                     Exit For
  10.                 End If
  11.             Next
  12.             If Not failed Then Exit While Else crntNbr += 1
  13.         End While
  14.         Console.WriteLine(crntNbr)
  15.     End Sub
  16. End Module
');