VFP程序改错1、pcode4:下列程序的功能是将小写金额(假设小于10万且无小数位)转换为中文大写形式.例如,213转换为“贰佰壹拾叁元”,3002转换为“叁仟零佰零拾贰元”.(2006Q02)对其中的2条
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 16:19:58
VFP程序改错1、pcode4:下列程序的功能是将小写金额(假设小于10万且无小数位)转换为中文大写形式.例如,213转换为“贰佰壹拾叁元”,3002转换为“叁仟零佰零拾贰元”.(2006Q02)对其中的2条
VFP程序改错
1、pcode4:下列程序的功能是将小写金额(假设小于10万且无小数位)转换为中文大写形式.例如,213转换为“贰佰壹拾叁元”,3002转换为“叁仟零佰零拾贰元”.(2006Q02)
对其中的2条错误语句进行修改
clear
input '请输入5位正整数:' to Nmoney
Cmoney=allt(str(nmoney))
Cstring1='零壹贰叁肆伍陆柒捌玖'
Cstring2='万仟佰拾元'
Cresult=0
For n=1 to len(Cmoney)
C=substr(cmoney,n)
Cresult=Cresult+subs(Cstring1,val(c)*2+1,2)+subs(Cstring2,n*2-1,2)
Endfor
Wait windows '大写金额为:'+Cresult
VFP程序改错1、pcode4:下列程序的功能是将小写金额(假设小于10万且无小数位)转换为中文大写形式.例如,213转换为“贰佰壹拾叁元”,3002转换为“叁仟零佰零拾贰元”.(2006Q02)对其中的2条
修改后的完整程序如下:
clear
input '请输入5位正整数:' to Nmoney
Cmoney=allt(str(nmoney))
Cstring1='零壹贰叁肆伍陆柒捌玖'
Cstring2='元拾佰仟万'
Cresult=''
For n=1 to len(Cmoney)
C=substr(cmoney,n,1)
Cresult=Cresult + subs(Cstring1,val(c)*2+1,2)+subs(Cstring2,(len(Cmoney)-n)*2+1,2)
Endfor
Wait windows '大写金额为:'+Cresult
不过本程序所谓的大写转换是不正确的,3002正确的结果应该是叁千零贰元,可以参考我空间的文章.