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

　　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