代码如下: 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
作者: 来源: 时间: 17-11-23 16:05:17
关于5UCMS 您有任何需求 均可以留言给我们