关键词不能为空

当前您在: 主页 > 英语 >

英文数字大写

作者:高考题库网
来源:https://www.bjmy2z.cn/gaokao
2021-02-09 08:00
tags:

-

2021年2月9日发(作者:本册)


英文数字大写



<%



FUNCTION convertsz(sz)



'PARAMETERS sz



'PRIV


ATE xs,sz1,sz2,sz3



IF sz > 1000000000 then '


超过处理范围提示




convertsz=


数字大于


10


亿,超过处理范围!



exit FUNCTION


END IF



sz=INT(sz*100+0.5)/100 '


小数超过两位四舍五入




xs=((sz-int(sz))*100) MOD 100 '


取小数点后两位有效数字




IF xs>0 then



'cha=


转换小数



cha=



ELSE



cha=



END IF



sz1=INT((sz MOD 1000)) ' sz1


为百、十、个


3


位数字




sz=INT(sz/1000) ' sz


为千位以上数字(含千位)




cha=conv3(sz1)&cha '


转换(


sz1





IF sz>0 then



sz2=(sz MOD 1000) ' sz2


为十万、万 、千


3


位数字




sz=INT(sz/1000) ' sz


为百万位以上数字(含百万位)




IF sz2=0 then



IF sz1=0 then '



sz2


)如果为


'0'


,判断在百位之前是否加


'AND'



cha=cha



ELSE



cha=



END IF



ELSE



cha=conv3(sz2)&


如果不为


'0'

< p>
转换(


sz2





END IF



IF sz>0 then



sz3=(sz MOD 1000) ' sz3


为亿、千万 、百万


3


位数字




cha=conv3(sz3)&


转 换(


sz3





END IF



END IF



'cha=


在转换的结果之前加


'DOLLAR'



'RETURN cha


convertsz=cha



end FUNCTION




FUNCTION conv3(je)



'PARAMETERS je



'PRIV


ATE jews,je1,je2,je3,tmp



IF je<=0 then



convertsz=


exit FUNCTION



END IF



je1=(je MOD 10)



je=INT(je/10)



IF je=0 then '


判断数字位数(


1-3


)并把


3


位数字分别存放在


je1



je2


je3





jews=1



ELSE



je2=(je MOD 10)



je=INT(je/10)



IF je=0 then



jews=2



ELSE



je3=(je MOD 10)



jews=3



END IF



END IF



IF jews=1 then



tmp=conv1(je1) '


如果位数为


1


,直接转换




conv3=tmp



'exit FUNCTION


'RETURN tmp



ELSE



IF je1+10*je2<20 then '


转换


20


以下数字




tmp=conv1(je1+10*je2)



ELSE '


转换


20-99


数字




IF je1=0 then



tmp=conv2(je2)



ELSE



'tmp=conv2(je2)&


tmp=conv2(je2)&conv1(j e1)




END IF



END IF



IF jews=3 then '


转换百位数字




IF je1+10*je2=0 then



tmp=conv1(je3)&



ELSE



IF je1+10*je2<20 then



tmp=conv1(je3)&



ELSE



tmp=conv1(je3)&



END IF



END IF



END IF



conv3=tmp



END IF



end FUNCTION




FUNCTION conv2(SUM)



'PARAMETERS SUM


aaa=


select CASE SUM



CASE 2



aaa=



CASE 3



aaa=



CASE 4



aaa=



CASE 5



aaa=



CASE 6



aaa=



CASE 7



aaa=



CASE 8



aaa=



CASE 9



aaa=





END select



conv2=aaa



end FUNCTION




FUNCTION conv1(SUM)



'PARAMETERS SUM


aaa=


select CASE SUM



CASE 1



aaa=



CASE 2



aaa=



CASE 3



aaa=



CASE 4



aaa=



CASE 5



aaa=



CASE 6



aaa=



CASE 7



aaa=



CASE 8



aaa=



CASE 9



aaa=



CASE 10



aaa=



CASE 11



aaa=



CASE 12



aaa=



CASE 13



aaa=



CASE SUM=14



aaa=



CASE 15



aaa=



CASE 16



aaa=



CASE 17



aaa=



CASE 18



aaa=



CASE SUM=19



aaa=





END select



conv1=aaa



end FUNCTION




fff=123456789.45



fff&



xx=convertsz(fff)




xx



%>






































































-


-


-


-


-


-


-


-



本文更新与2021-02-09 08:00,由作者提供,不代表本网站立场,转载请注明出处:https://www.bjmy2z.cn/gaokao/619901.html

英文数字大写的相关文章

  • 爱心与尊严的高中作文题库

    1.关于爱心和尊严的作文八百字 我们不必怀疑富翁的捐助,毕竟普施爱心,善莫大焉,它是一 种美;我们也不必指责苛求受捐者的冷漠的拒绝,因为人总是有尊 严的,这也是一种美。

    小学作文
  • 爱心与尊严高中作文题库

    1.关于爱心和尊严的作文八百字 我们不必怀疑富翁的捐助,毕竟普施爱心,善莫大焉,它是一 种美;我们也不必指责苛求受捐者的冷漠的拒绝,因为人总是有尊 严的,这也是一种美。

    小学作文
  • 爱心与尊重的作文题库

    1.作文关爱与尊重议论文 如果说没有爱就没有教育的话,那么离开了尊重同样也谈不上教育。 因为每一位孩子都渴望得到他人的尊重,尤其是教师的尊重。可是在现实生活中,不时会有

    小学作文
  • 爱心责任100字作文题库

    1.有关爱心,坚持,责任的作文题库各三个 一则150字左右 (要事例) “胜不骄,败不馁”这句话我常听外婆说起。 这句名言的意思是说胜利了抄不骄傲,失败了不气馁。我真正体会到它

    小学作文
  • 爱心责任心的作文题库

    1.有关爱心,坚持,责任的作文题库各三个 一则150字左右 (要事例) “胜不骄,败不馁”这句话我常听外婆说起。 这句名言的意思是说胜利了抄不骄傲,失败了不气馁。我真正体会到它

    小学作文
  • 爱心责任作文题库

    1.有关爱心,坚持,责任的作文题库各三个 一则150字左右 (要事例) “胜不骄,败不馁”这句话我常听外婆说起。 这句名言的意思是说胜利了抄不骄傲,失败了不气馁。我真正体会到它

    小学作文