满意答案
waltson0929
2013.11.16
采纳率:47% 等级:12
已帮助:6829人
思路:
1元最多换100个1分,50个2分和20个5分的
代码:
Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer, SUM As Single, N As Integer
For I = 0 To 100
For J = 0 To 50
For K = 0 To 20
SUM = I * 0.01 + J * 0.02 + K * 0.05
If SUM = 1 Then
List1.AddItem "1分" & I & "个;2分" & J & "个;5分" & K & "个"
N = N + 1
End If
Next K
Next J
Next I
MsgBox "共" & N & "种换法"
End Sub
如果是每次换都必须有3种硬币,那就要将上面代码中的FOR循环从1开始循环
分别是541和461种换法
10分享举报