Public Class Test
Public Shared Function reverse_string(ByVal s As String) As String
Dim arr() As Char = s.ToCharArray()
Array.Reverse(arr)
Return New String(arr)
End Function
Public Shared Function is_palindrome(s As String , i As Integer, j As Integer) As Boolean
Dim rev As String = s.Substring(i, j - i)
rev = reverse_string(rev)
Dim tmp_s As String = s.Substring(i, j - i)
Dim b As Boolean = false
if (tmp_s = rev And tmp_s.Length>= 2) Then
b = true
End If
return b
End Function
Public Shared Sub Main()
Dim s As String = "abaab"
For i As Integer = 0 To s.Length
For j As Integer = i + 1 To s.Length
If (is_palindrome(s, i, j)) Then
Console.WriteLine(s.Substring(i, j - i))
End If
Next
Next
End Sub
End Class
' run:
'
' aba
' baab
' aa
'
