Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB para encontrar todos los números palíndromos entre 10000-30000 e imprimirlos

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