Urgente!.. Aplicación para invertir un numero
Como hago para invertir un numero que se digite en una caja de texto en visual basic
Ejemplo: 1232323 que lo invierta a 3232321
Gracias es urgente...
Ejemplo: 1232323 que lo invierta a 3232321
Gracias es urgente...
1 Respuesta
Respuesta de elierha
1
El código seria más o menos el siguiente:
dim numero, numero2 as string
numero = texto.text
for x=len(numero)-1 to 1
numero2 = numero2 + mid(numero,1,x)
next
dim invertido as long
invertido = cint(numero2)
Con esto tienes el numero invertido en la variable invertido.
dim numero, numero2 as string
numero = texto.text
for x=len(numero)-1 to 1
numero2 = numero2 + mid(numero,1,x)
next
dim invertido as long
invertido = cint(numero2)
Con esto tienes el numero invertido en la variable invertido.
Coloco el código en botón de comando y capturo en una caja de texto pero me sale error de conversión de datos en la variable invertido=cint(numero2)
Gracias por la ayuda
Gracias por la ayuda
tienes razon, seria invertido=clng(numero2)
