整数转小数问题

大漠小鸟

我有一个整数数组，每个成员的值范围在0-99999
如何将成员的整数值转换到小数呢
如：
0=0
1=0.1
2=0.2
10=0.10
11=0.11
100=0.100
以此类推
也就是这个整数不管值是多少，就在这个整数前面补上小数点

已知方法1：小数=到小数("0."+到文本(整数))，但是这种方法感觉效率不够好
已知方法2：判断整数位数，除以10、100、1000，但是要额外增加很多个判断分支
这种更好的更高效的方法啊，比如位操作

b0y

  

计次循环首 (20, a)
i ＝ a × 9
调试输出 (i, i ÷ 求次方 (10, MathDigitCount (i)))
计次循环尾 ()
' * 9 | 0.900000
' * 18 | 0.180000
' * 27 | 0.270000
' * 36 | 0.360000
' * 45 | 0.450000
' * 54 | 0.540000
' * 63 | 0.630000
' * 72 | 0.720000
' * 81 | 0.810000
' * 90 | 0.900000
' * 99 | 0.990000
' * 108 | 0.108000
' * 117 | 0.117000
' * 126 | 0.126000
' * 135 | 0.135000
' * 144 | 0.144000
' * 153 | 0.153000
' * 162 | 0.162000
' * 171 | 0.171000
' * 180 | 0.180000
' 被调试易程序运行完毕

子程序名	返回值类型	公开	备 注
MathDigitCount	整数型
参数名	类 型	参考	可空	数组	备 注
_long	长整数型

如果真 (_long ＝ 0)
返回 (1)
返回 (取整 (MathLog10 (_long) ＋ 1))

子程序名	返回值类型	公开	备 注
MathLog10	双精度小数型
参数名	类 型	参考	可空	数组	备 注
_long	双精度小数型

返回 (求自然对数 (_long) ÷ 求自然对数 (10))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> <br /> .计次循环首 (20, a)<br />     i ＝ a × 9<br />     调试输出 (i, i ÷ 求次方 (10, MathDigitCount (i)))<br /> .计次循环尾 ()<br /> <br /> ' * 9 | 0.900000<br /> ' * 18 | 0.180000<br /> ' * 27 | 0.270000<br /> ' * 36 | 0.360000<br /> ' * 45 | 0.450000<br /> ' * 54 | 0.540000<br /> ' * 63 | 0.630000<br /> ' * 72 | 0.720000<br /> ' * 81 | 0.810000<br /> ' * 90 | 0.900000<br /> ' * 99 | 0.990000<br /> ' * 108 | 0.108000<br /> ' * 117 | 0.117000<br /> ' * 126 | 0.126000<br /> ' * 135 | 0.135000<br /> ' * 144 | 0.144000<br /> ' * 153 | 0.153000<br /> ' * 162 | 0.162000<br /> ' * 171 | 0.171000<br /> ' * 180 | 0.180000<br /> ' 被调试易程序运行完毕<br /> <br /> .版本 2<br /> <br /> .子程序 MathDigitCount, 整数型, 公开<br /> .参数 _long, 长整数型<br /> <br /> .如果真 (_long ＝ 0)<br />     返回 (1)<br /> .如果真结束<br /> 返回 (取整 (MathLog10 (_long) ＋ 1))<br /> <br /> .版本 2<br /> <br /> .子程序 MathLog10, 双精度小数型, 公开<br /> .参数 _long, 双精度小数型<br /> <br /> 返回 (求自然对数 (_long) ÷ 求自然对数 (10))

BruceJoysky1987

文本_自动补零;自行判断几位需要补