作业帮用VB程序编写一个能解决如下简单数学问题的程序.今有面额1元、2元和5元的纸币各十张,要是总和为24元,输出所有不同的取法及其种数.
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/07 19:21:52
用VB程序编写一个能解决如下简单数学问题的程序.今有面额1元、2元和5元的纸币各十张,要是总和为24元,输出所有不同的取法及其种数.
用VB程序编写一个能解决如下简单数学问题的程序.
今有面额1元、2元和5元的纸币各十张,要是总和为24元,输出所有不同的取法及其种数.
用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 j
End 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