Question

vb 硬币分法问题要求硬币取法：有1分、2分、5分硬币若干枚,从中取出20枚硬币使其总值为60分,求出取法的数量以及每一

Answer 1

循环法啊

m = 0

For n = 0 To 20 '''一分

For i = 0 To 20 - n ''2分

If n * 1 + i * 2 + (20 - n - i) * 5 = 60 Then

Print "一分：" & n & " 二份" & i & " 五分" & 20 - n - i

m = m + 1

End If

Next

Next

print "共有" & m & "种分法"