
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
![]() |
|
首页 | 软件 | 编程 | 笑话 | 知识 | 公告 | 注册 | 登录 |
![]() |
|
广告位招租中 2021年 春 节 剩 26 天 2021年 情人节 剩 28 天 2021年 元宵节 剩 40 天 2022年 元 旦 剩 349 天 |
![]() |
![]() |
您现在的位置:首页 >> ASP >> 内容ASP获取一个数字的个位、十位、百位的函数代码内容摘要: Function NumberSplit(num)Dim i,lengthlength=Len(num)For i=1 To lengthNumberSplit=NumberSplitnum mod 10',' '余数num = num \ 10 '整除NextNumberSplit=Left(NumberSplit,Len(NumberSplit)-1)E...... ![]() 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 发布日期:2020/12/10 发布时间:16:06:51 点击:273 录入:齐天大圣 ![]() |
|
![]() |
![]() |
|