A Palendrome Program
A Palendrome Program
Rate A Palendrome Program
(2(2 Vote))
For i = 1 To Len(txt1.Text)
S = Mid(txt1.Text, i, 1)
S = LCase(S)
b = Mid(txt1.Text, Len(txt1.Text) + 1 - i, 1)
b = LCase(b)
If Not S = b Then
MsgBox ("This is not a Palendrome")
End
End If
Next i
If S = b Then
MsgBox ("This is a Palendrome")
End If
End Sub
A Palendrome Program Comments
No comments yet — be the first to post one!
Post a Comment