欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

獲取一個(gè)數(shù)字的個(gè)位、十位、百位的函數(shù)代碼

 更新時(shí)間:2010年12月22日 23:04:34   作者:  
獲取一個(gè)數(shù)字的個(gè)位、十位、百位的代碼,需要的朋友可以參考下。
復(fù)制代碼 代碼如下:

Function NumberSplit(num)
Dim i,length
length=Len(num)
For i=1 To length
NumberSplit=NumberSplit & num mod 10 & "," '余數(shù)
num = num \ 10 '整除
Next
NumberSplit=Left(NumberSplit,Len(NumberSplit)-1)
End Function

相關(guān)文章

最新評(píng)論