Question

VB这道题的代码怎么写！？应发工资X元，求各种票额钞票总张数最少的付款方案！

应发工资X元，求各种票额钞票总张数最少的付款方案！

Answer 1

dim a as interger,b as interger,c as interger,d as interger, e as interger,f as interger,g as interger,
a=val(text1.text)
b=a\100(或者b=int(a/100)
c=(a-100*b)\50
d=(a-100*b-50*c)\20
e=(a-100*b-50*c-20*d)\10
f=(a-100*b-50*c-10*d-10*e)\5
g=a-100*b-50*c-10*d-10*e-5*f
text.text2=b
text.text3=c
text.text4=d
text.text5=e
text.text6=f
text.text7=g
这是最原始的作法，也可以设计一个函数求解。

Answer 2

引用云将之战于野的回答：
dim a as interger,b as interger,c as interger,d as interger, e as interger,f as interger,g as interger,
a=val(text1.text)
b=a\100(或者b=int(a/100)
c=(a-100*b)\50
d=(a-100*b-50*c)\20
e=(a-100*b-50*c-20*d)\10
f=(a-100*b-50*c-10*d-10*e)\5
g=a-100*b-50*c-10*d-10*e-5*f
text.text2=b
text.text3=c
text.text4=d
text.text5=e
text.text6=f
text.text7=g
这是最原始的作法，也可以设计一个函数求解。

f=(a-100*b-50*c-20*d-10*e)\5
g=a-100*b-50*c-20*d-10*e-5*f
text2.text=b
text3.text=c
text4.text=d
text5.text=e
text6.text=f
text7.text=g

Answer 3

这个 用循环遍历好了 最笨最好用