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

羅蓋仙

分離數值，6位數8位數不必煩惱了，我幫你寫好了
程式例：
- _5 Y! ?( r+ q0 |' i#1=1234.(將被分離的數據)
1 M+ z2 Z- p2 f3 f9 H4 x#1=ABS[FIX[#1]]
  }7 k6 n8 @7 Y* n/ b#2=4.(幾位數，沒有大於4位用這招不划算，一定要帶千元)
#3=501.(儲存到#501以上)
#10=10.(十的乘冪)
WHILE[#2GT0.]DO1
#[#3]=FIX[[[[#1/#10]-FIX[#1/#10]]*#10]]
#3=#3+1.
+ h( q) B/ f& |! y: o#2=#2-1.
#10=#10*10.(百-->千-->萬一直放大十倍)
0 z' d- I. U: H( r$ M& H5 G3 w2 |END1
$ V- W: s8 p7 F( cM0
# o; f/ m5 p- y4 v" \# O
結果：
#501=4.
% F4 D, C$ n9 x. Y$ V- n#502=3.
#503=2.
4 k: I9 s' ^4 d( B8 F, ?" W+ h#504=1.
* ~; C7 L, O9 u' X" y; d# x3 i5 s4 w#1也可放入1011.類似2進制的運算

請問你有其他更佳的寫法嗎?請提出來謝謝

jiangssli

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

羅蓋仙

回复 2# jiangssli
; p* t2 N/ G& U- E
7 Y1 A0 h+ X, F$ w7 o: m% M樓上的帥哥我怎麼沒想到，9位數是會破表的

jiangssli

回复 3# 羅蓋仙

  [. t8 D, B. V" D" {# [; d
    哈哈.............要是你能让系统可以判断大于9位数的才是真的厉害啊...

1426437527

谢谢你分享的宏程式

VYF0412

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