por ejemplo ingreso 7676 kero ke me muestre 6767
se me ocurrio esto
Private Sub Command1_Click()
Dim n1, n2, r2, r3, ac As Double
n1 = Val(InputBox("ingrese un valor"))
Do While (n1 <> 0)
n2 = n1 Mod 10
r2 = n1 - n2
r3 = r2 \ 10
n1 = r3
ac =???????????????
Loop
MsgBox ac
End Sub
me explico....ingreso en valor y queda grabado en la variable n1......luego empiezo a descomponer en numero q ingrese por ej: 7676 mod 10 = 6 entonces n2=6
y lo demas ya es obio para el q caxa.... pero como oredeno los resultados q voy sakando?
q puedo colocar en la variable AC para q los ordene alrrebes ?
se me ocurrio esto
Private Sub Command1_Click()
Dim n1, n2, r2, r3, ac As Double
n1 = Val(InputBox("ingrese un valor"))
Do While (n1 <> 0)
n2 = n1 Mod 10
r2 = n1 - n2
r3 = r2 \ 10
n1 = r3
ac =???????????????
Loop
MsgBox ac
End Sub
me explico....ingreso en valor y queda grabado en la variable n1......luego empiezo a descomponer en numero q ingrese por ej: 7676 mod 10 = 6 entonces n2=6
y lo demas ya es obio para el q caxa.... pero como oredeno los resultados q voy sakando?
q puedo colocar en la variable AC para q los ordene alrrebes ?