vfp有趣点的小程序

发布网友发布时间：2022-05-01 23:30

共1个回答

热心网友时间：2022-06-25 02:16

呵呵，我这里有很多，很发一个：
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

vfp有趣点的小程序

呵呵，我这里有很多，很发一个：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...

aippt自动生成工具

随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图、条形...

vfp。自制了一个登录小程序,邪门了!!!求救!!!

用函数ALLTRIM( )将变量的前后空格去掉，然后再比较就可以了。例如：A="abcd "B=" abcd "这时 A ≠ B 而 ALLTRIM( A ) = ALLTRIM( B )明白吗？有问题再联系我。

有关VFP的几个小程序

5: 55 有一个命令STORE...你输错了，输出了srore...1.s=0 for i=1 to 100 if mod(i,2)=1 s=s+i endif endfor ? '1~100之间奇数之和:'+str(s)2.for i=1 to 500 if mod(i,3)=2 and mod(i,5)=3 and mod(i,7)=2 ? i endif endfor 3.1 a=thisform.text1.value...

vfp的一个小程序怎么做

用 @ SAY 的格式太古老了，已经不符合vfp 事件驱动编程的优势了，建议使用表单, 用表格显示所有资料，双击要修改的记录进行修改

vfp的一个小程序,帮帮谢谢

for a=1 to 40 for b=1 to 40 if a^2+b=1053 and b^2+a=873 ?"a=",a ?"b=",b endif endfor endfor

高手帮我调试一下这个VF小程序

试过,你的情况是在sqrt()中有负数出现,负数不能开跟号,仔细检查你的数据 --- (05.07)x是不是就是平均值啊.按你这个数据算是没问题的. 那就是你写的程序跟你发上来的不一样啊.你给我发个消息,把你qq号告诉我.qq上我帮你看看

一个简单的VFP小程序,有些疑问想请教大家

IF INT(Y/5)=Y/5 　如果是5的整数倍则输出Y，否则继续跳到循环头继续下一循环 ??Y ELSE LOOP ENDIF 只有当Y是5的整数倍时才会执行，也就是说，只有既是5的整数倍，且>151的时候才终止循环 IF Y>151 STORE .F. TO X ENDIF ENDDO 从代码来看，应该输出，0－151之间的5的整数倍。貌似有...

急求VFP小程序!!

首先电话号码的字段长度要设置成12。批量更改的命令：REPLACE ALL 电话号码 WITH LEFT(电话号码,4)+"-"+SUBSTR(电话号码, 5)

vfp表单增加600条空白记录

append【blank】只能一条一条的追加。另外，也有追加一批记录的情况，但是这些记录要来自一个文件,文件类型是表，格式相同，另外的办法是编写一个小程序，很简单 FOR I=1 TO 600 APPE BLAN ENDFOR

我用VF做了一个小程序,怎样才能让它只在一台计算机上运行,而限制在其它...

四是该语种的程序阅读和理解，一般是给一段小程序，要求考生理解其意义，或选择或填空。笔试做笔试题最好在电脑上实验。如果是程序题，把程序输进电脑进行运行，看得出什么结果。若是命令和函数，也可在电脑上测试，这样你会发现许多有趣的技巧或别的东西，记忆深刻。一般说来，笔试部分只需五套...

有趣的微信小程序有趣实用的微信小程序有趣的创意小程序有趣的测试小程序有趣好玩的微信小程序比较实用的微信小程序有哪些有创意的小程序有创意校园的微信小程序我的小程序