Programación en VB para determinar si un número es un palíndromo. Por ejemplo, 121, 1235321, 565, 666, 9229, etc. son todos números palíndromos.

Cree un nuevo proyecto, un cuadro de texto, ingrese el número que necesita juzgar, un botón, ingrese el siguiente código: Private?Sub?Command1_Click()

Dim?i? As?Long

For?i?=?1?To?Len(Text1.Text)?\?2

If?Mid(Text1.Text,?i,?1 )?<> ?Mid(Text1.Text,?Len(Text1.Text)?+?1?-?i,?1)?¿Entonces?¿Salir?Para

Siguiente?i

Si ?i?>?Len(Text1.Text)?\?2?Entonces

MsgBox?Text1.Text?&?"¡Es un número palíndromo!"

Else

MsgBox?Text1.Text?&?"¡No es un palíndromo!"

Fin?Si

Fin?Sub