获取一个数字的个位、十位、百位的函数代码
2018-09-06 12:31
阅读：441
复制代码 代码如下:
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
文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：获取一个数字的个位、十位、百位的函数代码
文章链接：http://soscw.com/index.php/essay/10409.html
文章标题：获取一个数字的个位、十位、百位的函数代码
文章链接：http://soscw.com/index.php/essay/10409.html
评论
亲，登录后才可以留言！