VB .NET

VB .NET

Slip1

Q.1 ) Write a Vb.net program to check whether entered string is palindrome or not. [Marks 20]

Solution

Public Class slip1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a As String

        a = StrReverse(TextBox1.Text)

        If a = TextBox1.Text Then

            MsgBox("given string is palindrome")

        Else

            MsgBox("given string is not palindrome")

        End If

    End Sub

    Private Sub slip1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class