Question

vfp有趣点的小程序

Answer 1

呵呵，我这里有很多，很发一个：
SET TALK OFF
**计算整个表总共分别需要多少张不同面值的人民币。

STORE 0 TO s100,s50,s10,s5,s2,s1,s05,s02,s01,s005,s002,s001
*USE db
SELECT db
GO top
DO WHILE NOT EOF()

zn=ALLTRIM(STR(gz,13,2))
*=MESSAGEBOX(zn)
ln=LEN(zn) && 长度
zln=ln-3 &&整数部分长度
IF zln>2 &&百位以上
s100=s100+VAL(LEFT(zn,ln-5)) &&百元
ENDIF

IF zln>=2 &&百位以上
IF VAL(LEFT(right(zn,5),1))>=5
s50=s50+1 && 50元
ENDIF

IF VAL(LEFT(right(zn,5),1))>5 &&10元
s10=s10+VAL(LEFT(right(zn,5),1))-5
ELSE
s10=s10+ VAL(LEFT(right(zn,5),1))
ENDIF
ENDIF

IF zln>=1 &&个位
IF VAL(LEFT(right(zn,4),1))>=5
s5=s5+1 && 5元
ENDIF

IF VAL(LEFT(right(zn,4),1))>5 &&
s2=s2+IIF((VAL(LEFT(right(zn,4),1))-5)=4,2,IIF((VAL(LEFT(right(zn,4),1))-5)>=2,1,0)) && 2元
s1=s1+IIF((VAL(LEFT(right(zn,4),1))-5)=3,1,IIF((VAL(LEFT(right(zn,4),1))-5)=1,1,0)) && 1元
ELSE
s2=s2+IIF((VAL(LEFT(right(zn,4),1)))=4,2,IIF((VAL(LEFT(right(zn,4),1)))>=2,1,0)) && 2元
s1=s1+IIF((VAL(LEFT(right(zn,4),1)))=3,1,IIF((VAL(LEFT(right(zn,4),1)))=1,1,0)) && 1元
ENDIF
ENDIF

xx1=VAL(LEFT(RIGHT(zn,2),1))
IF xx1=0 &&小数点后一位 s05,s02,s01

ELSE

IF xx1>=5
s05=s05+1 && 5角
ENDIF

IF xx1>5 &&
s02=s02+IIF((xx1-5)=4,2,IIF((xx1-5)>=2,1,0)) && 2角
s01=s01+IIF((xx1-5)=3,1,IIF((xx1-5)=1,1,0)) && 1角
ELSE
s02=s02+IIF(xx1=4,2,IIF(xx1>=2,1,0)) && 2角
s01=s01+IIF(xx1=3,1,IIF(xx1=1,1,0)) && 1角
ENDIF
ENDIF

xx2=VAL(RIGHT(zn,1))
IF xx2=0 &&小数点后第二位 s005,s002,s001

ELSE

IF xx2>=5
s005=s005+1 && 5分
ENDIF

IF xx2>5 &&
s002=s002+IIF((xx2-5)=4,2,IIF((xx2-5)>=2,1,0)) && 2分
s001=s001+IIF((xx2-5)=3,1,IIF((xx2-5)=1,1,0)) && 1分
ELSE
s002=s002+IIF(xx2=4,2,IIF(xx2>=2,1,0)) && 2分
s001=s001+IIF(xx2=3,1,IIF(xx2=1,1,0)) && 1分
ENDIF
ENDIF

SKIP
endd