楼上没弄清什么是自然数,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 If
Next k,j,i
End Sub
答案为：
x,y,z=
0,0,14
0,1,13
0,2,12
0,3,11
0,4,10
0,5,9
0,6,8
0,7,7
0,8,6
0,9,5
0,10,4
0,11,3
0,12,2
0,13,1
0,14,0
1,0,13
1,1,12
1,2,11
1,3,10
1,4,9
1,5,8
1,6,7
1,7,6
1,8,5
1,9,4
1,10,3
1,11,2
1,12,1
1,13,0
2,0,12
2,1,11
2,2,10
2,3,9
2,4,8
2,5,7
2,6,6
2,7,5
2,8,4
2,9,3
2,10,2
2,11,1
2,12,0
3,0,11
3,1,10
3,2,9
3,3,8
3,4,7
3,5,6
3,6,5
3,7,4
3,8,3
3,9,2
3,10,1
3,11,0
4,0,10
4,1,9
4,2,8
4,3,7
4,4,6
4,5,5
4,6,4
4,7,3
4,8,2
4,9,1
4,10,0
5,0,9
5,1,8
5,2,7
5,3,6
5,4,5
5,5,4
5,6,3
5,7,2
5,8,1
5,9,0
6,0,8
6,1,7
6,2,6
6,3,5
6,4,4
6,5,3
6,6,2
6,7,1
6,8,0
7,0,7
7,1,6
7,2,5
7,3,4
7,4,3
7,5,2
7,6,1
7,7,0
8,0,6
8,1,5
8,2,4
8,3,3
8,4,2
8,5,1
8,6,0
9,0,5
9,1,4
9,2,3
9,3,2
9,4,1
9,5,0
10,0,4
10,1,3
10,2,2
10,3,1
10,4,0
11,0,3
11,1,2
11,2,1
11,3,0
12,0,2
12,1,1
12,2,0
13,0,1
13,1,0
14,0,0