阿拉伯数字转换成英文字母程序代码--.docVIP

　　阿拉伯数字转换成英文字母程序代码 lt;% dimstrhtml strhtml=lt;htmlgt;vbcrlf strhtml=strhtmllt;headgt;vbcrlf strhtml=strhmltlt;titlegt;makenumbertop;vbcrlf strhtml=strhtmllt;/headgt;vbcrlf strhtml=strhtmllt;stylegt;vbcrlf strhtml=strhtmllt;!--vbcrlf strhtml=strhtmlbody{font-size:9pt;font-family:arial}vbcrlf strhtml=strhtmltd{font-size:9pt}vbcrlf strhtml=strhtml//--gt;vbcrlf strhtml=strhtmllt;/stylegt;vbcrlf strhtml=strhtmllt;bodygt;vbcrlf Response.ILLION z(3)=BILLION did(y,2,1)=0then’判断是否小于10 value=zr3(y) elseifmid(y,2,1)=1then’判 123下一页 这篇文章来自..，。断是否位于10-20之间 value=zr2(y) elseifmid(y,3,1)=0then ’为了去掉尾部空格，判断是否为大于20小于100且能被10整除的数 value=zr1(y) else value=zr1(y)++zr3(y)’加上十位到个位的空格 endif id(y,1,1)=0then’判断是否小于100 value=id(y,2,2)=00then value=zr4(y)++HUNDRED’判断是否能被100整除 else value=zr4(y)++HUNDRED++AND++ake(x) z=instr(1,x,.,1)’取得小数点位置 ifzlt;gt;0then’判断有没有小数 lstr=mid(x,1,z-1)’取得小数点左边的字串 rstr=mid(x,z+1,2)’取得小数点右边的字串 else lstr=x’没有小数的情况 endif lstrev=strreverse(lstr) dima(5)’定义5个字符串变量用来存放解析出来的三位一组的字串 selectcaselen(lstrev)mod3’字串长度不能被整除，需补齐 case1 lstrev=lstrev+00 case2 lstrev=lstrev+0 endselect lm=’用于存放转换后的整数部分 fori=0tolen(lstrev)/3-1 ’计算有多少个3位 a(i)=StrReverse(mid(lstrev,3*i+1,3))’截取第一个三位 ifa(i)lt;gt;000then ’用于避免这种情况“1000000=ONEMILLIONTHOUSANDONLY” ifilt;gt;0then lm= ’用来加上“THOUSANDORMILLIONORBILLION” else lm==”多加两个尾空格 endif else lm= endif next xs=’用来存放转换后的小数部分 ifzlt;gt;0then xs=ANDCENTS++ake=lm++xs ’最后结果加上only endfunction strhtml= strhtml=请注意：该程序小数部分只能支持到lt;fontcolor=redgt;2　lt;/fontgt;位 strhtml=strhtmllt;formmethod=postgt;vbcrlf strhtml=strhtml请输入要转换的数字：lt;inputtype=textname=numstyle=’font:9pxarial;height:19’gt;vbcrlf strhtml=strhtmllt;inputtype=submitname=subvalue=’转换’style=’font-size:9pt;height:19’gt;vbcrlf strhtml=strhtmllt;/fo 上一页123下一页 这篇文章来自..，。rmgt;vbcrlf Response.l dimnum,checknum num=Request.Form(num) ifnumlt;gt;emptythen checknum=make(num) Response.ber: vbcrlf Response.p;numlt;/fontgt; vbcrlf Response.akedthep;vbcrlf Response.p;checknumlt;/fontgt;vbcrlf endif strhtml= strhtml=lt;/bo