太阳雨光伏发电:VB题:求这道题的运行结果。

来源:百度文库 编辑:神马品牌网 时间:2024/05/05 20:08:34
VB:
将一张面值为100元人民币等值换成20张10元
5元和0.5元的零钞,要求每种零钞不少于1张,问有多少种组合?并给出打印的结果。
private sub command_click()
pim x%,y%,z%,n%
print "10元","5元","0.5元"
n=0
for x=1 to 10
for y=1 to 20-x
z=20-x-y
if 10*x+5*y+0.5*z=100 then
print x,y,z
n=n+1
end if
next y
next x
print"共有"&n&"组合"
end sub
运行结果:
10元 5元 0.5元
9 1 10
共有1种组合

此题:“如果将人民币等值换成40张”其它条件都不变,那么运行结果是多少?
运行过程是否不变?

谢谢
改过之后的运行结果是多少?


for x=1 to 10
for y=1 to 20-x
z=20-x-y

改为

for x=1 to 10
for y=1 to 40-x
z=40-x-y

运行后结果如下:
10元 5元 0.5元
7 3 30
共有1种组合

for x=1 to 10
for y=1 to 20-x
z=20-x-y

改为

for x=1 to 10
for y=1 to 40-x
z=40-x-y

非常多哦.