源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

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

  • 时间:2020-05-04 13:49 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:获取一个数字的个位、十位、百位的函数代码
[u]复制代码[/u] 代码如下:
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
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部