Question

How to check if a number is palindrome in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function isPalindrome(ByVal num As Integer) As Boolean
		Dim reverse As Integer = 0
		Dim savednum As Integer = num
 
        Do While (num > 0)
            reverse = reverse * 10 + (num Mod 10)
            num = num / 10
        Loop
 
        Return savednum = reverse
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim n As Integer = 12321
		
        Console.WriteLine((If(isPalindrome(n) = True, "Yes", "No")))
    End Sub
End Class




' run:
'
' Yes
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Linq

Public Class Program
    Public Shared Function isPalindrome(ByVal n As Integer) As Boolean
        Dim strn As String = n.ToString()
        Dim reversestr As String = String.Join("", strn.Reverse())
		
        Return strn = reversestr
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim n As Integer = 12321
		
        Console.WriteLine((If(isPalindrome(n) = True, "Yes", "No")))
    End Sub
End Class




' run:
'
' Yes
'

 

70+ SQL courses for beginners and professionals