问题 填空题

假设由工资数据库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=______
IP C>=5
REPLACE______
C=C 5
ENDIF
REPLACE拾元WITH C
D=B-______
IF INT(D) -5
REPLACE伍元WITH 1
E=INT( D) -5
ENDIF
REPLACE______
P=D-INT(D)
IF F>=0.5
REPLACE伍角WITH 1
ENDIP
______
ENDDO
SUM 佰元,伍十元,拾元,五元,壹元,伍角TO A1,B1,C1,D1,E1,F1
A1,B1,C1,D1,E1,P1
USE
SET TALK ON
CANCEL

答案

参考答案:INT(B/10) 伍十元WITH1 INT(B/10)*10 INT WITU IIF(1NT( D) >=5,E,INT( D) )
SKIP

单项选择题
单项选择题