计算机VB语言

for i = 0 to 20
...for j = 0 to 20 - i
.....if i * 5 + j * 2 + (20 - i - j )* 1 = 60 then
........count = count + 1
........'用你愿意的方法输出i j (20 - i - j)
.....endif
...next
next
'用你愿意的方法输出count

学习一下

dim i as integer,j as integer,k as integer,s as integer
for i=0 to 20
for j=0 to 20
for k=0 to 20
if i+j+k=20 then
if i+j*2+k*5=60 then
s=s+1
print "1分";i;"次，2分";j;"次，5分";k;"次。"
end if
end if
next k
next j
next i
print "共";s;"种可能。"

运行结果：
1分 1 次，2分 12 次，5分 7 次。
1分 4 次，2分 8 次，5分 8 次。
1分 7 次，2分 4 次，5分 9 次。
1分 10 次，2分 0 次，5分 10 次。
共 4 种可能。

果然简单

76种可能