Question

How to check whether a string is palindrome or not in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function reverseString(ByVal s As String) As String
        Dim arr As Char() = s.ToCharArray()
        
		Array.Reverse(arr)
		
        Return New String(arr)
    End Function

    Public Shared Sub Main()
        Dim s As String = "rotator"

        If s = reverseString(s) Then
            Console.Write("Palindrome")
        Else
            Console.Write("Not Palindrome")
        End If
    End Sub
End Class





' run:
'
' Palindrome
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim s As String = "rotator", reverse As String = ""

		For i As Integer = s.Length - 1 To 0 step -1
            reverse += s(i)
        Next

        If reverse = s Then
            Console.Write("Palindrome")
        Else
            Console.Write("Not Palindrome")
        End If
    End Sub
End Class





' run:
'
' Palindrome
'

 

70+ SQL courses for beginners and professionals