分離數值，6位數8位數，如何分解???

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
6 ^! L3 \8 I' j/ @/ G$ q: f! I程式例：
#1=1234.(將被分離的數據)
#1=ABS[FIX[#1]]
#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
#3=501.(儲存到#501以上)
4 Q8 f- ?3 q: u! O#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
#3=#3+1.
#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
END1
, i# ]( n* u! V% @2 aM0
9 r6 L) m/ U4 u' R# {! l1 t$ B
# B, l4 v; F- S" G# j6 T* y結果：
#501=4.
#502=3.
#503=2.
; J+ ~2 a- U2 h( D; z#504=1.
#1也可放入1011.類似2進制的運算
/ r  c; t# s7 L. [  J
請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

楼主试试 大于9位数的分解........这个更有意思

羅蓋仙

回复 2# jiangssli
  n* R8 P* l) k5 F9 Y
# T8 u- q! Q6 B- t2 s6 ]/ y; j樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙
  |6 t9 ^, G4 Y% p# M

2 E. R& U; \9 p# r    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

感谢贴主分享经验感谢贴主无私分享宝贵知识，但是它具体用在什么地方