第一问答网»论坛 › 中问网 › 问答 › 急求，在线等，下午考试了。vb编程求将50元兑换成5元,2 ...

急求，在线等，下午考试了。vb编程求将50元兑换成5元,2元和1元的方法和种数(每种面额至少2张)

11 |

3 | 2013-3-28 11:10:57 | 显示全部楼层 |阅读模式

Dim p5, p2, p1 As Byte '5元、2元、1元币种的数量Dim CountNum As Integer '统计种数Dim s As Byte '判断是否为50For p5 = 2 To 9For p2 = 2 To 19
For p1 = 2 To 36
s = 5 * p5 + 2 * p2 + p1
If s = 50 Then CountNum = CountNum + 1
Next p1Next p2Next p5Form1.Print "共有" & CountNum & "种组合"...

使用道具举报