楼上没弄清什么是自然数，0也是自然数 Private Sub Command1_Click()For i = 0 To 14 For j = 0 To 14
For k = 0 To 14
If i + j + k = 14 Then
Debug.Print CStr(i) + "," + CStr(j) + "," + CStr(i)
End IfNext k, j, iEnd Sub答案为：x,y,z=0,0,140,1,130,2,120,3,110,4,100,5,90,6,80,7,70,8,60,9,50,10,40,11,30,12,20,13,10,14,01,0,131,1,121,2,111,3,101,4,91,5,81,6,71,7,61,8,51,9,41,10,31,11,21,12,11,13,02,0,122,1,112,2,102,3,92,4,82,5,72,6,62,7,52,8,42,9,32,10,22,11,12,12,03,0,113,1,103,2,93,3,83,4,73,5,63,6,53,7,43,8,33,9,23,10,13,11,04,0,104,1,94,2,84,3,74,4,64,5,54,6,44,7,34,8,24,9,14,10,05,0,95,1,85,2,75,3,65,4,55,5,45,6,35,7,25,8,15,9,06,0,86,1,76,2,66,3,56,4,46,5,36,6,26,7,16,8,07,0,77,1,67,2,57,3,47,4,37,5,27,6,17,7,08,0,68,1,58,2,48,3,38,4,28,5,18,6,09,0,59,1,49,2,39,3,29,4,19,5,010,0,410,1,310,2,210,3,110,4,011,0,311,1,211,2,111,3,012,0,212,1,112,2,013,0,113,1,014,0,0
|
