WAP to check given no. is Palindrome or not by using Form.
_________________________________________________
Private Sub Command1_Click()
Dim a, b, c
a = Text1.Text
b = StrReverse(Text1.Text)
c = StrComp(a, b)
If (c = 0) Then
Text2.Text = "Given string is Palindrome!"
Else
Text2.Text = "Given Sting is not a Palindrome!"
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
End Sub
_____________________________________________
OUTPUT
_____________________________________________
____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
No comments:
Post a Comment