获取一个数字的个位、十位、百位的代码，需要的朋友可以参考下。复制代码代码如下:Function NumberSplit(num)Dim i,lengthlength=Len(num)For i=1 To lengthNumberSplit=NumberSplit & num mod 10 & , '余数num = num / 10 '整除NextNumberSplit=Left(NumberSplit,Len(NumberSplit)-1)End Function
