by Ritesh Biswas (1 Submission)
Category: String Manipulation
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Thu 6th July 2006
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Finding Palindrome
Dim st As String, rst As String
st = InputBox("Enter any string")
st = UCase(st)
For i = Len(st) To 1 Step -1
rst = rst & Mid(st, i, 1)
Next i
If rst = st Then
Print "Palindrome"
Else
Print "Not-Palindrome"
End If
End Sub