by Rodolfo Recio (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 24th January 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A Palendrome Program
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