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

楼主

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

求助“钞票总数最少”程序运行错误！在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下运行提示函数参数的值、类型或数目无效？

第 2 楼

得分: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转也错误？