70分求VB用一元人民币兑换成1分,2分,和5分硬币,共有多少种不同的兑换方法

Question

答对了，我马上加分，麻烦把窗体，工程文件EMAIL到69818515，顺便把算法写下来，非常感谢

Answer 1

拖一个按钮 粘贴下面代码就可以了
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim x As Integer
Print "1分", "2分", "5分"
For i = 1 To 100
For j = 2 To 100 Step 2
For k = 5 To 100 Step 5
If i + j + k = 100 Then
Print i, j, k
x = x + 1
End If
Next k
Next j
Next i
Me.Caption = "共" & x & "种"
End Sub

追问

能写下算法吗，或者告诉下这道题的算法链接，写完我马上把分加上

追答

你要什么算法啊.................这种题三循环就出来了啊

追问

老师要求定算法，就把过程大致写一下就可以了，谢了

追答

我没读过书......不知道什么叫算法.........这个应该就是吧 汗...应该没人认识我吧

追问

好吧还是谢了