获取一个数字的个位、十位、百位的代码，需要的朋友可以参考下。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
