求助VB达人一道题

Private Sub form_click()
Dim i As Integer, j As Integer, k As Integer, m As Long
For i = 0 To 20
For j = 0 To 50
For k = 0 To 100
If i * 5 + j * 2 + k = 100 Then Print "五分钱:" & i & "二分钱为：" & j & "一分钱为：" & k
m = m + 1
Next
Next
Next
Print "共有" & m & "种方法" End Sub
end sub

如果每种钱都必须有，共有461种，如果不是每种钱都必须有，共有541种