复制代码 代码如下:
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
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！