求助数学排列组合达人：一张5元,两张10元,三张50元,四张100元,一共可以组成多少种不同的币值?

Question

求助数学排列组合达人：一张5元,两张10元,三张50元,四张100元,一共可以组成多少种不同的币值?

Answer 1

*5*10*50*100
*15*55*105*20*60*110*150*200
*25*65*115*155*205*70*120*160*210*250*300
*75*125*165*215*255*305*170*220*260*310*350*400
*175*225*265*315*355*405*270*320*360*410*450
*275*325*365*415*455*370*420*460*500
*375*425*465*505*470*510*550
*475*515*555*520*560
*525*565*570
*575
共71种
电脑程序算出来的
去了重复
Private Sub Command1_Click()
'一张5元,两张10元,三张50元,四张100元
a = Split("5|10|10|50|50|50|100|100|100|100","|")
Print LBound(a)
Print UBound(a)
For i = LBound(a) To UBound(a)
p = InStr(Text1.Text,"*" & a(i))
If p