高考问答magic waltz钢琴谱:程序高手来看看，求写一程序 要马上可以下载用的``
来源：百度文库 编辑：高考问答 时间：2024/04/30 09:22:31
程序就是左边填写数字 右边转换成大写``
我不是程序员 所以不会写代码
我想用的是这样的一个程序 ```不想知道核心过程
最好用 ASP或者HTML的平台可以读取
或者只要能实现的程序```
对着电脑说你给老子转换。就好了
在Visual FoxPro 6.0 环境下！
不是我写的！摘自 http://cfyn.yeah.net
nDzs=strt(allt(str(thisform.text1.value,15,2)),".","") &&把小数点去掉
hzdx="零壹贰叁肆伍陆柒捌玖"
nDW="分角元拾佰仟万拾佰仟亿拾佰仟"
rmbdx=""
nCd=len(nDzs)
for i=1 to len(nDzs)
NumS=substrc(hzdx,int(val(subs(nDzs,i,1))+1),1) && 数字转换
nDWs=iif(thisform.Optiongroup1.value=1,substrc(nDW,nCd,1),spac(2)) &&单位转换
rmbdx=rmbdx+NumS+nDwS
nCd=nCd-1
endfor
先写把数字转成字符串。
依次取字符串的每位。
用CASE判断第位是什么数？转成文字。合到一个字符串中。
打印字符串。
在Visual FoxPro 6.0 环境下！
不是我写的！摘自 http://cfyn.yeah.net
nDzs=strt(allt(str(thisform.text1.value,15,2)),".","") &&把小数点去掉
hzdx="零壹贰叁肆伍陆柒捌玖"
nDW="分角元拾佰仟万拾佰仟亿拾佰仟"
rmbdx=""
nCd=len(nDzs)
for i=1 to len(nDzs)
NumS=substrc(hzdx,int(val(subs(nDzs,i,1))+1),1) && 数字转换
nDWs=iif(thisform.Optiongroup1.value=1,substrc(nDW,nCd,1),spac(2)) &&单位转换
rmbdx=rmbdx+NumS+nDwS
nCd=nCd-1
endfor
先写把数字转成字符串。
依次取字符串的每位。
用CASE判断第位是什么数？转成文字。合到一个字符串中。
打印字符串。
exel公式："&IF(A1=0,"",IF((A1-ROUND(A1,0))=0,(TEXT(INT(A1),"[DBnum2]")&"元整"),(TEXT(INT(A1),"[DBnum2]")&"元")&IF((RIGHT(A1,2)-RIGHT(A1,1))=0,"零",TEXT(ROUND((INT(((A1-INT(A1))*100)-RIGHT(A1,1))/10),0),"[dbnum2]")&"角")&IF((A1*10-INT(A1*10))=0,"",TEXT(ROUND(((A1*10-INT(A1*10))*10),0),"[dbnum2]")&"分")))
excel有工具就可实现转换不需要编程