假设由工资数据库CZ.DBF： Record # 姓名 实发工资 百元 伍十元 拾元 五元 壹元 伍角 1 李敏 486.50 2 王永明 390.50 要求将GZ.DBF中每个人的实发工资分解成佰元，伍十元，拾元，五元，壹元，伍角面额的人民币各是多少张，分别填入相应字段。 SET TALK OFF USE GZ DO WHILE.NOT.EOF() STORE 0 T0 A，B，C，D，E，F A=INT(实发工资/100) REPLOACE佰元WITH A B：实发工资-A*100 C= [11] IP C>=5 REPLACE [12] C=C 5 ENDIF REPLACE拾元WITH C D=B- [13] IF INT(D) -5 REPLACE伍元WITH 1 E=INT( D) -5 ENDIF REPLACE [14] P=D-INT(D) IF F>=0.5 REPLACE伍角WITH 1 ENDIP [15] ENDDO SUM 佰元，伍十元，拾元，五元，壹元，伍角TO A1，B1，C1，D1，E1，F1 A1，B1，C1，D1，E1，P1 USE SET TALK ON CANCEL