c语言换零钱程序,换零钱问题。将一元钱换成1分,2分,或5分的零钱有多少换法。vb编程...

满意答案

02ae427d08e371d7e90d5b995e828d6d.png

waltson0929

2013.11.16

02ae427d08e371d7e90d5b995e828d6d.png

采纳率: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分享举报

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值