7,762
社区成员
发帖
与我相关
我的任务
分享将5角钱用1、2、5分硬币找零，不要完全相同种类的硬币方案，显示所有方案。
将5角钱用1、2、5分硬币找零，不要完全相同种类的硬币方案，显示所有方案。
...全文
请发表友善的回复…
发表回复
northwolves 2004-01-13
- 打赏
- 举报
呵呵，不笨，最简单的办法了：
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
For x = 0 To 50
For y = 0 To 25
For z = 0 To 10
If x + 2 * y + 5 * z = 50 Then List1.AddItem x & "," & y & "," & z '
Next
Next
Next
MsgBox List1.ListCount
End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
For x = 0 To 50
For y = 0 To 25
For z = 0 To 10
If x + 2 * y + 5 * z = 50 Then List1.AddItem x & "," & y & "," & z '
Next
Next
Next
MsgBox List1.ListCount
End Sub
sqfeiyu 2004-01-13
- 打赏
- 举报
x,y,z分别为1,2,5分硬币的个数。
for x=0 to 50
for y=0 to 25
for z=0 to 10
if x+2y+5z=50 then
'在此处将x,y,z的值保存到一个数组里
end if
next
next
next
呵呵！方法笨了点！
for x=0 to 50
for y=0 to 25
for z=0 to 10
if x+2y+5z=50 then
'在此处将x,y,z的值保存到一个数组里
end if
next
next
next
呵呵！方法笨了点！
