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 & " "