急急急！！！VB!计算机考试

来源：百度知道 编辑：UC知道 时间：2024/06/17 20:58:25
将一张一百的换成等值的十元、五元、二元、一元小钞，要求每次换成五十张小钞票，每种至少一张。共有多少种方法？
一共多少种？

Private Sub Form_Load()
Dim yy10a, y5a, y2a, y1a, bbc As Integer
bbc = 0
For y10a = 0 To 10
'MsgBox y10a
For y5a = 0 To 20
For y2a = 0 To 50
For y1a = 0 To 100
If ((y10a * 10 + y5a * 5 + y2a * 2 + y1a * 1) = 100) Then
If y10a >= 1 And y5a >= 1 And y2a >= 1 And y1a >= 1 Then
If (y10a + y5a + y2a + y1a) = 50 Then
bbc = bbc + 1
List1.AddItem CStr("10元*" & y10a & "+5元*" & y5a & "+2元*" & y2a & "+1元*" & y1a)
End If
End If
End If
Next
Next
Next
Next
MsgBox ("共可以换成" & bbc & "种")
End Sub

答案是26种