Question

编程实现:输入一个不多于5位的正整数,要求:(1)输出它是几位数,(2)分别输出每一位数字,(3)按逆

Answer 1

'本人知道一点点excel的vba编程，希望下面的思路能对你有帮助
' 思路：假设输入的位数超过5 >逆向提取5个数字 >提取真正位数的逆数字
Sub aaa()
a = len(Range("A1")) ' 提取位数，但没输出
b = Range("A1") '
c = b & "00000" '假定单元格A1输入的数超过5位
d = Mid(c, 5, 1) & Mid(c, 4, 1) & Mid(c, 3, 1) & Mid(c, 2, 1) & Mid(c, 1, 1) '从第5位到第1位顺序提取
Range("A2") = Right(d, a) '截取输入的位数后，输出
End Sub