Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB: Programación para generar todos los números palíndromos entre 1000 y 9999.

Programación VB: Programación para generar todos los números palíndromos entre 1000 y 9999.

private sub form_click()

atenuar n mientras

atenuar x como cadena

atenuar y como cadena

para i=1000 a 9999

x=mid(i,1,2)

y=mid(i,4,1) & mid(i,3,1) )

si x=y entonces

form1.print i

finaliza si

siguiente

end sub

La salida también se puede cambiar a un control de texto, de modo que el texto de varias líneas no tenga el problema de la salida del formulario.

form1.print i se cambia a,text1.text=text1.text & i & " "