Question

用VB程序编写一个能解决如下简单数学问题的程序.

Answer 1

楼上程序应该稍修改一下,问题中并没有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