作业帮 > 综合 > 作业

编VB程序从1、2、5元三种面值的人民币中取20张,共计60元1、有多少种取法?2、每种取法1、2、5元各几张

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/17 11:42:59
编VB程序
从1、2、5元三种面值的人民币中取20张,共计60元
1、有多少种取法?
2、每种取法1、2、5元各几张
设置三层循环.面值和为sum,取法个数为num,用字符串数组s,保存1,2,5的张数
num=0
for i=0 to 20
for j=0 to 20-i
for k=0 to 20-i-j
sum=i+j*2+k*5
if sum=60 then
num=num+1
s(num)=str(i)+"张1元"+str(j)+"张2元"+str(k)+"张5元" /i、j、k分别表示11、2、5元的张数,每种取法的张数保存成一个字符串
end if
next k,j,i
就这么简单.
再问: 请问需要哪些按钮
再答: 只要一个按钮就够了。 另外对了,我那个程序好像少了一句,呵呵不好意思。 把if sum=60 then 改成if sum=60 and i+j+k=20 then 另外为了要显示结果,可以把s数组,依次输出到文本框中 i=1 while s(i)"" text1.text=text1.text+s(i)+vbnewline wend