vb程序问题

将一张面值为100元的人民币等值换成5元，1元的零钞共40张，要求每种零钞不少于1张，问5元和一元面值的零钞各多少张？

设x，y分别为5元和1元面值的零钞张数，通过分析可得出该问题的数学表达式是：

5x+y=100

x+y=40 且1<=x<20

for x= 1 to 20

for y=1 to 39

if 5*x+Y=100 and x+y=40 then msgbox x & " " Y

next

next

For a = 1 To 20 For b = 1 To 39 If a + b = 40 And 5 * a + 1 * b = 100 Then Print a & "个5", b & "个1" Next Next