7、编写vb程序,实现求解把50元钱分成一元、二元和五元的纸币且纸币张数共为20张的分法有多少种?

Private Sub Command1_Click()
Dim W%,E%,Y%,C%
For W = 1 To 9
For E = 0 To 25
Y = 50 - W * 5 - E * 2
If Y > 0 And W + E + Y = 20 Then Print "$5:"; W,"$2:"; E,"$1:"; Y:C = C + 1
Next E
Next W
Print C; " methods found"
End Su