private sub form_click()
dim f1 as integer,f2 as integer,f3 as integer
dim fa as integer
for f1=8 to 100
for f2=8 to 100/2
for f3=8 to 100/5
if f1+2*f2+5*f5=100 then fa=fa+1
next
next
next
print "方案数=";fa
end sub
有什么问题请留言。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024