Private Sub Command1_Click()
Dim Yuan As Long
Dim Fen1 As Long
Dim Fen2 As Long
Dim Fen5 As Long
Dim ZongFen As Long
Dim FangAn As Long
Dim Min As Long
Dim i As Long, j As Long, k As Long
Yuan = 1 * 100 '一元等于100分
Fen1 = 1
Fen2 = 2
Fen5 = 5
Min = 8 '每個面值最少8張
ZongFen = Yuan - Fen1 * Min - Fen2 * Min - Fen5 * Min '減除每個面值最少8張總分?jǐn)?shù)
For i = 0 To Fix(ZongFen / Fen5) '循環(huán)組合
For j = 0 To Fix((ZongFen - Fen5 * i) / Fen2)
If ZongFen - Fen2 * j - Fen5 * i >= 0 Then
ZongFen = ZongFen - Fen2 * j - Fen5 * i
FangAn = FangAn + 1
List1.AddItem ZongFen + Min & "張一分 + " & j + Min & "張二分 + " & i + Min & "張五分 = " & ZongFen + Min + (j + Min) * Fen2 + (i + Min) * Fen5 & "分"
ZongFen = Yuan - Fen1 * Min - Fen2 * Min - Fen5 * Min
End If
Next
Next
MsgBox FangAn & "個方案!"
End Sub