vb6 编程一元、二元和五元总张数为20，总钱数为60，请列出各种组合情况
1个回答
展开全部
dim i ,j ,k,m,n
for i=0 to 60
for j=0 to 30
for k=0 to 12
m=i+j*2+k*5
n=i+j+k
if m=60 and n=20 then
msgbox"1元 2元 5元 分别对应的张数为" + cstr(i)+"张，"+ cstr(j)+"张，"+ cstr(k)+"张"
end if
next
next
next
for i=0 to 60
for j=0 to 30
for k=0 to 12
m=i+j*2+k*5
n=i+j+k
if m=60 and n=20 then
msgbox"1元 2元 5元 分别对应的张数为" + cstr(i)+"张，"+ cstr(j)+"张，"+ cstr(k)+"张"
end if
next
next
next
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
