document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Module LargestPalindrome \'My solution to Project Euler Problem 4
  2.     Sub Main()
  3.         Dim R As Integer = 0
  4.         For i = 100 To 999
  5.             For n = 100 To 999
  6.                 Dim D As Integer = i * n
  7.                 Dim digits() As Char = D.ToString.ToCharArray
  8.                 If digits.SequenceEqual(digits.Reverse) AndAlso D > R Then R = D
  9.             Next
  10.         Next
  11.         Console.WriteLine(R)
  12.     End Sub
  13. End Module
');