用VB程序编写一个能解决如下简单数学问题的程序.今有面额1元、2元和5元的纸币各十张,要是总和为24元,输出所有不同的取法及其种数.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 05:11:36
![用VB程序编写一个能解决如下简单数学问题的程序.今有面额1元、2元和5元的纸币各十张,要是总和为24元,输出所有不同的取法及其种数.](/uploads/image/z/10133802-18-2.jpg?t=%E7%94%A8VB%E7%A8%8B%E5%BA%8F%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%AA%E8%83%BD%E8%A7%A3%E5%86%B3%E5%A6%82%E4%B8%8B%E7%AE%80%E5%8D%95%E6%95%B0%E5%AD%A6%E9%97%AE%E9%A2%98%E7%9A%84%E7%A8%8B%E5%BA%8F.%E4%BB%8A%E6%9C%89%E9%9D%A2%E9%A2%9D1%E5%85%83%E3%80%812%E5%85%83%E5%92%8C5%E5%85%83%E7%9A%84%E7%BA%B8%E5%B8%81%E5%90%84%E5%8D%81%E5%BC%A0%2C%E8%A6%81%E6%98%AF%E6%80%BB%E5%92%8C%E4%B8%BA24%E5%85%83%2C%E8%BE%93%E5%87%BA%E6%89%80%E6%9C%89%E4%B8%8D%E5%90%8C%E7%9A%84%E5%8F%96%E6%B3%95%E5%8F%8A%E5%85%B6%E7%A7%8D%E6%95%B0.)
用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