Palindrom

Teknik yang bisa digunakan untuk mengecek palindrom:

        Dim str As String = "Katak"
        Dim data() As Char = str.ToLower.ToCharArray
        Dim i, j As Integer
        Dim palin As Boolean = True
        j = data.GetUpperBound(0)
        For i = data.GetLowerBound(0) To data.GetUpperBound(0)
            If data(i) <> data(j) Then
                palin = False
                Exit For
            Else
                j -= 1
            End If
        Next
        If palin Then
            MsgBox(str & " is palindrom")
        Else
            MsgBox(str & " is not palindrom")
        End If

Rgds
Adi