Imports System

​

Public Module Module1

​

    Public Sub Main() 

​

        Dim resultado as boolean 

        Dim valor as Double = 1384 

        Dim enteroInvertido, valorObtenido as Double 

        Dim probarPalindromo as String 

        While( resultado <> True) 

            enteroInvertido = invertirEntero(valor) 

            Console.WriteLine("Inverso de " &  valor & " es " & enteroInvertido) 

            valorObtenido = obtenerPalindromo(valor, enteroInvertido) 

            Console.WriteLine("Suma obtenida es " &  valorObtenido) 

            probarPalindromo = valorObtenido.ToString() 

            resultado = esPalindromo(probarPalindromo) 

            valor = valorObtenido 

        End While 

​

        'resultado = esPalindromo("anona") 

​

        IF resultado then 

            Console.WriteLine(valor & " ES palindromo") 

        ELSE 

            Console.WriteLine(valor & " NO es palindromo"  ) 

        END IF 

    End Sub 

​

​

    Function esPalindromo(cadena as String) as Boolean 

​

        dim arrayInverso as Char() = cadena.ToCharArray() 

        Array.Reverse(arrayInverso) 

        dim cadenaInversa as String = new String(arrayInverso) 

        IF String.Equals(cadena, cadenaInversa) then 

            return TRUE 

        END IF 

​

        Return FALSE 

​

    End Function 

    FUNCTION invertirEntero(valor as Double) as Double  

​

        dim valorString = valor.ToString() 

        dim valorInverso as String = ""'Char() = valorString.ToCharArray()

        dim enteroInverso as Double 

        For cont as integer = valorString.Length-1 To 0 Step -1

            valorInverso = valorInverso & valorString.Substring(cont, 1 )       

        Next

                              'Array.Reverse(valorInverso)

​

                              'enteroInverso = Convert.toInt32(valorInverso.ToString())

        enteroInverso = Convert.toInt32(valorInverso.ToString())

​

        return enteroInverso 

    END FUNCTION 

​

Function obtenerPalindromo(valor as Double, valorInverso as Double) as Double

​

    Dim total as Double

​

    total = valor + valorInverso 

​

    return total 

        End Function

End Module