dim i as string
dim p() as integer
i = StrReverse(format(inputbox("input","input number"),"0000"))
dim j as integer
for j = 0 to len(i))-1
redim preserve p(len(i)-1)
p(j) = mid(i,j+1,1)
next
p(0)就是个位，p(1)（如果有）就是十位………………随手写的 可能有小问题
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024