获取一个数字的个位、十位、百位的函数代码
实现代码如下: Function NumberSplit(num) Dim i,length length=Len(num) For i=1 To length NumberSplit=NumberSplit & num mod 10 & "," '余数 num = num \ 10
实现代码如下: Function NumberSplit(num) Dim i,length length=Len(num) For i=1 To length NumberSplit=NumberSplit & num mod 10 & "," '余数 num = num \ 10
陈安之的: 法则 一 世上3%的人有强烈的成功动机 在这个世界上,成功者的比例大概占3%,一般人占了97%。到底为什么有人会成功、成为这3%的人,有人会一辈子成为普通人,成为97%?这两者的差别到底是在什么地方呢? 在过去十七年当中,我拜访了一百位世界第一名,他们从奥运金牌、世界首富、畅销书作者,到