复制代码 代码如下:

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