230问答网 > 求大神帮忙写一下这个题的vb代码将5元的人民币兑换成1元、5角和1角的硬币，共有多少种不同的兑换

求大神帮忙写一下这个题的vb代码将5元的人民币兑换成1元、5角和1角的硬币，共有多少种不同的兑换

2024-11-24 02:13:13

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 0 To 5
 For j = 0 To 10
   For k = 0 To 50
     If i + 0.5 * j + 0.1 * k = 5 Then
      Print "1yuan:"; i; "5jiao:"; j; "1jiao:"; k
     End If
   Next
 Next
Next

End Sub

求大神帮忙写一下这个题的vb代码 将5元的人民币兑换成1元、5角和1角的硬币，共有多少种不同的兑换

求大神帮忙写一下这个题的vb代码将5元的人民币兑换成1元、5角和1角的硬币，共有多少种不同的兑换