VB高手快来！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/15 13:15:56
把面值为100的人民币换成共100张5元，1元，0.5元的钱
每种零钞不少于1张有那几种组合
急求啊
PS我正在考试呢

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
For a = 1 To 20
For b = 1 To 100
For c = 1 To 200
If 5 * a + b + c / 2 = 100 And a + b + c = 100 Then Print "5元：" & a; "张，1元：" & b & "张，5角 ：" & c & " 张"
Next c
Next b
Next a
End Sub

我曾经写了个数零钱的教程小程序～
如果需要免费发给你 qq：28213938