Palíndromo 

El clásico ejemplo de palíndromo, en este caso para probar la palabra Shared en los métodos de una clase, que en definitiv equivale al static de java.

Se usa el palíndromo para String y para Enteros.

 

Public Class Palindromo
 
    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="cadena"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function esPalindromo(ByVal cadena As String) As Boolean
 
        Dim inversa As String = Microsoft.VisualBasic.StrReverse(cadena)
 
        For I As Integer = 0 To cadena.Length - 1
            If cadena.ElementAt(I) <> inversa.ElementAt(I) Then
                Return False
            End If
        Next
        Return True
 
    End Function
 
    ''' <summary>
    ''' esPalindromo con enteros, convierte el entero a cadena y reutiliza el 
    ''' método que espera Strings
    ''' </summary>
    ''' <param name="cadena"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function esPalindromo(ByVal cadena As Integer) As Boolean
        Return esPalindromo(cadena.ToString)
    End Function
 
End Class