亲宝软件园·资讯

展开

个位、十位、百位 获取一个数字的个位、十位、百位的函数代码

人气:0
想了解获取一个数字的个位、十位、百位的函数代码的相关内容吗,在本文为您仔细讲解个位、十位、百位的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:个位,十位,百位,下面大家一起来学习吧。
复制代码 代码如下:

Function NumberSplit(num)
Dim i,length
length=Len(num)
For i=1 To length
NumberSplit=NumberSplit & num mod 10 & "," '余数
num = num \ 10 '整除
Next
NumberSplit=Left(NumberSplit,Len(NumberSplit)-1)
End Function

加载全部内容

相关教程
猜你喜欢
用户评论