Programación VB para encontrar todos los números palíndromos entre 10000-30000 e imprimirlos
El programa que desea es el siguiente. Primero cree un cuadro de lista y un botón de comando, luego pegue el siguiente código para ejecutarlo:
Private Sub Command1_Click()
.Para i = 10000 a 30000
Si i\10000 = i Mod 10 entonces
Si i\1000 Mod 10 = i\10 Mod 10 entonces
List1.AddItem i
Fin si
Fin si
Siguiente i
Fin Sub
Si desea Para imprimir, puede reemplazar List1.AddItem i con:
print i;: k=k 1: If k Mod 10=0 Then Print