pcode.bak

2002年全国计算机等级考试 二级VFP的上机题(WORD文档),里面有上机环境!

nMoney=10249   &&赋初值
cMoney=ALLT(STR(nMoney))
cString1='零壹贰叁肆伍陆柒捌玖'
cString2='万仟佰拾元'
cResult=space(0)							&& cResult=SPACE(0)				2分
FOR n=1 TO LEN(cMoney) 
c=SUBSTR(cMoney,n,1)					&& c=SUBSTR(cMoney,n,1)				2分
cResult=cResult+SUBS(cString1,VAL(c)*2+1,2)+SUBS(cString2,n*2-1,2)
ENDFOR
WAIT WINDOWS '大写金额为：'+cResult