1. 首页
  2. 编程语言
  3. VB
  4. vb数字、金额大写转换

vb数字、金额大写转换

上传者: 2020-05-15 09:02:15上传 RAR文件 2.6KB 热度 36次
ConststrN="零壹贰叁肆伍陆柒捌玖" ConststrG="拾佰仟万亿" ConstintN="0123456789" DimZero_CountAsLong'读零计数 ' PrivateFunctionGetN(ByValNAsLong)AsString GetN=Mid(strN,N+1,1) EndFunction PrivateFunctionGetG(ByValGAsLong)AsString SelectCaseG Case1 GetG="" Case2,6 GetG=Mid(strG,
用户评论
码姐姐匿名网友 2020-05-15 09:02:15

很好用,但不是我想要的

码姐姐匿名网友 2020-05-15 09:02:15

很好用,正是我所需要的

码姐姐匿名网友 2020-05-15 09:02:15

感谢,资源可用,基本算法有了

码姐姐匿名网友 2020-05-15 09:02:15

有没有FRX中大小写的函数啊