vb 中1元的钞票换成一分 二分 五分 每个至少8个 几种方案
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 04:59:28
![vb 中1元的钞票换成一分 二分 五分 每个至少8个 几种方案](/uploads/image/z/2419564-4-4.jpg?t=vb+%E4%B8%AD1%E5%85%83%E7%9A%84%E9%92%9E%E7%A5%A8%E6%8D%A2%E6%88%90%E4%B8%80%E5%88%86+%E4%BA%8C%E5%88%86+%E4%BA%94%E5%88%86+%E6%AF%8F%E4%B8%AA%E8%87%B3%E5%B0%918%E4%B8%AA+%E5%87%A0%E7%A7%8D%E6%96%B9%E6%A1%88)
vb 中1元的钞票换成一分 二分 五分 每个至少8个 几种方案
vb 中1元的钞票换成一分 二分 五分 每个至少8个 几种方案
vb 中1元的钞票换成一分 二分 五分 每个至少8个 几种方案
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张总分数
For i = 0 To Fix(ZongFen / Fen5) '循环组合
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