• Home
 · 
• String Manipulation
 · 
• Finding Palindrome

Finding Palindrome

Finding Palindrome

Rate Finding Palindrome

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 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