作业帮 > 综合 > 作业

急需vf编程 输入一个任意的四位整数钱数,转换成大写形式,如:输入1234,则输出一仟贰佰叁拾肆元整,

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 03:27:11
急需vf编程 输入一个任意的四位整数钱数,转换成大写形式,如:输入1234,则输出一仟贰佰叁拾肆元整,
input "请输入4位数字:" to nshuzi
if vartype(nshuzi)='N'
cshuzi=allt(str(nshuzi))
if len(cshuzi)=4
cxulie='零壹贰叁肆伍陆柒捌玖'
cdaxie=''
cc1=substr(cshuzi,1,1)
cc11=substr(cxulie,2*val(cc1)+1,2)
cc2=substr(cshuzi,2,1)
cc22=substr(cxulie,2*val(cc2)+1,2)
cc3=substr(cshuzi,3,1)
cc33=substr(cxulie,2*val(cc3)+1,2)
cc4=substr(cshuzi,4,1)
cc44=substr(cxulie,2*val(cc4)+1,2)
cdaxie=cc11+'仟'+cc22+iif(cc22='零','','佰')+cc33+iif(cc33='零','','拾')++cc44+'圆整'
endif
endif
cdaxie
再问: 如果要用循环嵌套呢