用VB程序编写一个能解决如下简单数学问题的程序.今有面额1元、2元和5元的纸币各十张,要是总和为24

网友回答

楼上程序应该稍修改一下,问题中并没有10元纸币,
修改如下:Private Sub Command1_Click()
For j = 0 To 4 '五元数
For k = 0 To 10 '二元数
For l = 0 To 10 '一元数
If 5 * j + 2 * k + l = 24 Then
Print 5 * & j & + 2 * & k & +1* & l & = 24
End If Next l Next k Next jEnd Sub
5 *0+ 2 *7+1*10 = 24
5 *0+ 2 *8+1*8 = 24
5 *0+ 2 *9+1*6 = 24
5 *0+ 2 *10+1*4 = 24
5 *1+ 2 *5+1*9 = 24
5 *1+ 2 *6+1*7 = 24
5 *1+ 2 *7+1*5 = 24
5 *1+ 2 *8+1*3 = 24
5 *1+ 2 *9+1*1 = 24
5 *2+ 2 *2+1*10 = 24
5 *2+ 2 *3+1*8 = 24
5 *2+ 2 *4+1*6 = 24
5 *2+ 2 *5+1*4 = 24
5 *2+ 2 *6+1*2 = 24
5 *2+ 2 *7+1*0 = 24
5 *3+ 2 *0+1*9 = 24
5 *3+ 2 *1+1*7 = 24
5 *3+ 2 *2+1*5 = 24
5 *3+ 2 *3+1*3 = 24
5 *3+ 2 *4+1*1 = 24
5 *4+ 2 *0+1*4 = 24
5 *4+ 2 *1+1*2 = 24
5 *4+ 2 *2+1*0 = 24