求助“钞票总数最少”程序运行错误！在VF6.0环境中！ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求助“钞票总数最少”程序运行错误！在VF6.0环境中！

标题：求助“钞票总数最少”程序运行错误！在VF6.0环境中！

只看楼主

ycvf

等　级：论坛游民
帖　子：209
专家分：56
注　册：2012-8-25
结帖率：77.5%

楼主

已结贴√ 问题点数：20 回复次数：24

求助“钞票总数最少”程序运行错误！在VF6.0环境中！

程序代码：

x=val(thisform.text1.value)
y1=int(x/100)
x=x-100*y1
y2=int(x/50)
x=x-50*y2
y3=int(x/20)
x=x-20*y3
y4=int(x/10)
x=x-10*y4
y5=int(x/5)
x=x-5*y5
y6=int(x/2)
x=x-2*y6
y7=x
a="==========="+chr(13)
a=a + str(y1,3)+"张100元票"+str(y2,3)+"张50元票"+chr(13)
a=a + str(y3,3)+"张20元票"+str(y4,3)+"张10元票"+chr(13)
a=a + str(y5,3)+"张5元票"+str(y6,3)+"张2元票"+chr(13)
a=a + str(y7,3)+"张1元票"+chr(13)
a=a+"========="+chr(13)
a=a+"共计"+thisform.text2.value+"元"
messagebox(a,0,"取款")
thisform.text1.setfocus

到银行取款X元，银行如何付款最佳（即各种票额钞票总张数最少）
设计思路：
1.在表单编辑器中增加一命令按钮，两个标签，一个文本框TEXT1.
命令按钮的Default为T。
2.在命令按钮的Click事件代码如上。
在VF6.0下运行提示函数参数的值、类型或数目无效？

2014-12-09 17:26

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 2 楼

得分:0

现在市场上都看不到2元钞，银行还有吗？

坚守VFP最后的阵地

2014-12-09 18:26

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 3 楼

得分:0

把STR(y,3)改为PADL()试试
此处设置3位整数有何依据

[ 本帖最后由 sdta 于 2014-12-9 18:49 编辑 ]

坚守VFP最后的阵地

2014-12-09 18:37

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 4 楼

得分:0

程序代码：

x=123456789
*lnLen=Len(Alltrim(Padl(x,20," ")))-2 && 取最大整数位
*改为
lnLen=Len(Alltrim(Padl(x,20," "))) && 就正常了
y1=int(x/100)
x=x-100*y1
y2=int(x/50)
x=x-50*y2
y3=int(x/20)
x=x-20*y3
y4=int(x/10)
x=x-10*y4
y5=int(x/5)
x=x-5*y5
y6=int(x/2)
x=x-2*y6
y7=x
a="==============================="+chr(13)
a=a + padl(y1,lnLen," ")+"张100元票"+padl(y2,lnLen," ")+"张50元票"+chr(13)
a=a + padl(y3,lnLen," ")+"张 20元票"+padl(y4,lnLen," ")+"张10元票"+chr(13)
a=a + padl(y5,lnLen," ")+"张  5元票"+padl(y6,lnLen," ")+"张 2元票"+chr(13)
a=a + padl(y7,lnLen," ")+"张  1元票"+chr(13)
a=a+"==============================="+chr(13)
messagebox(a)

不明白的地方看帮助文件

[ 本帖最后由 sdta 于 2014-12-10 09:55 编辑 ]

坚守VFP最后的阵地

2014-12-09 18:47

qingfameng

等　级：贵宾
威　望：35
帖　子：964
专家分：3019
注　册：2010-2-6

第 5 楼

得分:0

. .

[ 本帖最后由 qingfameng 于 2014-12-10 19:43 编辑 ]

2014-12-09 18:57

hu9jj

来　自：红土地
等　级：贵宾
威　望：396
帖　子：11713
专家分：43267
注　册：2006-5-13

第 6 楼

得分:0

这个题目作为编程练习是可以的，但缺少实用价值。实际操作时是以最方便为第一位，而不是以张数最少为第一位。

活到老，学到老！ http://www. E-mail:hu-jj@

2014-12-10 07:15

ycvf

等　级：论坛游民
帖　子：209
专家分：56
注　册：2012-8-25

第 7 楼

得分:0

以下是引用sdta在2014-12-9 18:47:28的发言：

x=123456789
lnLen=Len(Alltrim(Padl(x,20," ")))-2 && 取最大整数位
y1=int(x/100)
x=x-100*y1
y2=int(x/50)
x=x-50*y2
y3=int(x/20)
x=x-20*y3
y4=int(x/10)
x=x-10*y4
y5=int(x/5)
x=x-5*y5
y6=int(x/2)
x=x-2*y6
y7=x
a="==============================="+chr(13)
a=a + padl(y1,lnLen," ")+"张100元票"+padl(y2,lnLen," ")+"张50元票"+chr(13)
a=a + padl(y3,lnLen," ")+"张 20元票"+padl(y4,lnLen," ")+"张10元票"+chr(13)
a=a + padl(y5,lnLen," ")+"张 5元票"+padl(y6,lnLen," ")+"张 2元票"+chr(13)
a=a + padl(y7,lnLen," ")+"张 1元票"+chr(13)
a=a+"==============================="+chr(13)
messagebox(a)
不明白的地方看帮助文件

*;
还提示错误，text1 是字符型，用val转也错误？

落花人独立，微雨燕双飞。

2014-12-10 09:25

吹水佬