凡凡之呗

dim i,j,k
for i=0 to 20
   for j=0 to 33
      for k=0 to 100
         if i+j+k=100 and 5*i+3*j+k/3=100 then
             str=str & i & " "& j & " "& k & " "
             str= str & vbCrlf
         end if
      next
   next
next
msgbox str
          
          
      
复制代码

这不是很简单吗