Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB: presione Comando1 para generar 10 números mínimos de palíndromo mayores que 10,000.

Programación VB: presione Comando1 para generar 10 números mínimos de palíndromo mayores que 10,000.

Función privada inversa(ByVal m As Long) Mientras

Dim s como cadena, i como entero

Para i = 1 a Len(CStr(m ))

s = Mid(CStr(m), i, 1) amp s

reverse = CLng(s)

Función final

Subcomando privado1_Click()

Atenuar i como entero, n como entero

i = 10001

Hacer Si reverso(i) = i Entonces

Imprimir i

n = n 1 Fin si i = i 1

Ciclo hasta n = 10

Fin del subtítulo