Palendrome
Palendrome
Rate Palendrome
(1(1 Vote))
Dim nam, rev1 as String
nam = InputBox("Enter the word : ")
rev1 = StrReverse(nam)
If nam = rev1 Then
MsgBox "The Word Is Paledrome"
Else
MsgBox "The Word Is Not Palendrome"
End If
End Sub
Palendrome Comments
No comments yet — be the first to post one!
Post a Comment