ProjectEuler_9 -TizzyT

Module SpecialPythagoreanTriplet 'My solution to Project Euler Problem 9
    Sub Main()
        For a = 0 To 1000
            For b = a + 1 To 1000
                For c = b + 1 To 1000
                    If a + b + c = 1000 AndAlso a ^ 2 + b ^ 2 = c ^ 2 Then
                        Console.WriteLine(a * b * c)
                        Exit Sub
                    End If
                Next
            Next
        Next
    End Sub
End Module