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 Sub
撒
内容全部来源于网络收集，如有侵权，请联系网站删除!