document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Module SpecialPythagoreanTriplet \'My solution to Project Euler Problem 9
  2.     Sub Main()
  3.         For a = 0 To 1000
  4.             For b = a + 1 To 1000
  5.                 For c = b + 1 To 1000
  6.                     If a + b + c = 1000 AndAlso a ^ 2 + b ^ 2 = c ^ 2 Then
  7.                         Console.WriteLine(a * b * c)
  8.                         Exit Sub
  9.                     End If
  10.                 Next
  11.             Next
  12.         Next
  13.     End Sub
  14. End Module
');