Question

Write a VB program to check whether the given number is palindrome or not.

Answer 1

Private Sub Command1_Click()

Dim x, s, n, a As Integer

n = Val(Text1.Text)

a = n

s = 0

Do While (n > 0)

x = n Mod 10

s = s * 10 + x

n = n / 10

Loop

If (a = s) Then

Text2.Text = "Pal"

Else

Text2.Text = "not Pal"

End If

End Sub