ayuda please!!!!
Realice un programa que separa un número en sus distintas unidades
Ej., 347 en 300, 40, 7 (solo naturales)
Ej., 347 en 300, 40, 7 (solo naturales)
hola, amigo tengo un programa(diseñado por mi) el 21-5-06(haci que no le exigas mucho) que hace lo que tu quieres. enviame un correo al mio si te interesa([email protected])
Pues seria algo asi:
Numero=347
Dim copia as Integer, n as Integer, i as Integer, Parte as Integer
copia=numero
do while copia>0 'Para contar los digitos
copia=copia/10
n=n+1
loop
for i=1 to n
parte=(numero10^n)*10^n 'Esta es la division. P.Ej 300
next
Espero q este bien
Saludos, desde La Paz-Bolivia
Numero=347
Dim copia as Integer, n as Integer, i as Integer, Parte as Integer
copia=numero
do while copia>0 'Para contar los digitos
copia=copia/10
n=n+1
loop
for i=1 to n
parte=(numero10^n)*10^n 'Esta es la division. P.Ej 300
next
Espero q este bien
Saludos, desde La Paz-Bolivia
PUES UNAS CORRECCIONES JEJE:
Numero=347
Dim copia as Integer, n as Integer, i as Integer, Parte as Integer
copia=numero
do while copia>0 'Para contar los digitos
copia=copia10
n=n+1
loop
for i=1 to n
parte=(numero10^n)*10^n 'Esta es la division. P.Ej 300
msgbox parte
next
Espero q este bien
Saludos, desde La Paz-Bolivia
Numero=347
Dim copia as Integer, n as Integer, i as Integer, Parte as Integer
copia=numero
do while copia>0 'Para contar los digitos
copia=copia10
n=n+1
loop
for i=1 to n
parte=(numero10^n)*10^n 'Esta es la division. P.Ej 300
msgbox parte
next
Espero q este bien
Saludos, desde La Paz-Bolivia
