答案个数很多,下面我给出vba代码,你可以运行下,不过要你自己稍微修改下,不改的话要等他输完60000多个直到放不下才会停止下来,你的题目说的有点不明白. Sub ss() s = 1 For x = 29 To 35 For y = 29 To 35 For z = 29 To 35 For i = 0 To 21 For j = 0 To 21 For p = 0 To 21 Do While i * x + j * y + p * z = 600 Cells(s,1).Value = i & Chr(10) & x & Chr(10) & j & Chr(10) & y & Chr(10) & p & Chr(10) & z s = s + 1 Loop Next Next Next Next Next Next End Su