Imports System
Class Program
Public Shared Function IsPalindrome(ByVal num As Integer) As Boolean
Dim temp As Integer = num, rev As Integer = 0
While temp > 0
rev = rev * 10 + (temp Mod 10)
temp = temp \ 10
End While
Return rev = num
End Function
Public Shared Function GetLargestPalindromeOfTwo2DigitNumbers() As Integer
Dim largestPalindrome As Integer = 0
For i As Integer = 10 To 100 - 1
For j As Integer = 10 To 100 - 1
Dim product As Integer = i * j
If IsPalindrome(product) AndAlso product > largestPalindrome Then
largestPalindrome = product
End If
Next
Next
Return largestPalindrome
End Function
Public Shared Sub Main()
Console.WriteLine($"The largest palindrome made from the product of two 2-digit numbers is: {GetLargestPalindromeOfTwo2DigitNumbers()}")
End Sub
End Class
' run:
'
' The largest palindrome made from the product of two 2-digit numbers is: 9009
'
