VisualFoxPro程序设计项目教程李林孖第8章课件教学.pptVIP

触类旁通 在编写一些财务软件时，往往要进行票据打印，需要将数字转换为汉字大写。只要将数字进行大写转换后，填写到适当位置即可，其参考代码如下： PARAMETERS nAmount,IsDW nDZS=STRTRAN(ALLTRIM(STR(nAmount,18,2)),.,) 把小数点去掉 cHZDX=零壹贰叁肆伍陆柒捌玖 cDW=分角元拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿 cRMBDX= nCd=LEN(nDZS) FOR i=1 TO LEN(nDZS) cNumbers=SUBSTRC(cHZDX,INT(VAL(SUBSTR(nDZS,i,1))+1),1) IF IsDW=1 如果要单位 cDWs=SUBSTRC(cDW,nCd,1) ELSE cDWs=SPACE(0) 不要单位的情况下 ENDIF cRMBDX=cRMBDX+cNumbers+cDWS nCd=nCd-1 ENDFOR FOR i=LEN(nDZS)+1 TO 6 cRMBDX=SPACE(2)+cRMBDX ENDFOR RETURN cRMBDX 将以上代码保存为NumToUppHz.prg。 项目7——设计学生信息管理模块 任务2——创建学生退学管理模块 实战强化 实战强化 N 项