Programación VB para determinar si un número entero es simétrico

a=right(str(i),len(str(i))-1) 'O puedes ingresar la cadena directamente

dim f como booleano< / p>

atenuar i como entero

f=true

para i=1 a len(a)\2

si mid(a, i ,1)<>mid(a,len(a)-i+1,1) entonces f=false

siguiente i

si f=true entonces msgbox "Sí " else msgbox "No"