Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB para generar todos los números palíndromos de cinco dígitos

Programación VB para generar todos los números palíndromos de cinco dígitos

¿Privado?Sub?Command1_Click()

Dim?i,?j,?n?As?Integer

Para?i?=?10000?To ?99999 For?j?=?1?To?2

Si?Mid(CStr(i),?j,?1)?<>?Mid(CStr(i),?6?- ?j,?1)?¿Entonces?¿Salir?Para el siguiente si?j?>?2?Entonces

Imprimir?i;

n?=?n?+?1

Si?n?Mod?20?=?0?Entonces?Imprimir ¿Fin?Si

Fin?Sub