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