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