这是每种钱币至少一张时的换法，如允许为0，可将1改为0（共3处）
Private Sub Command1_Click()
List1.AddItem "10元 5元 1元"
For a = 1 To 19
For b = 1 To (100 - 10 * a - 1) \ 5
c = 100 - 10 * a - 5 * b
List1.AddItem " " & a & " " & b & " " & c
n = n + 1
Next b
Next a
List1.AddItem "共 " & n & " 种"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024