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

Question

求大神帮忙写一下这个题的vb代码
将5元的人民币兑换成1元、5角和1角的硬币，共有多少种不同的兑换方法，运行结果如下图所示：
ps：输出后是下面这种格式

Answer 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

追问

谢谢