Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer
For x = -45 To 45
For j = -45 To 45
For z = -45 To 45
If x ^ 2 + y ^ 2 + z ^ 2 = 2000 Then
Print "x=" + Str(x) + "y=" + Str(y) + "z=" + Str(z)
End If
Next z, j, x
End Sub
为什么只有出现两种情况,还重复出现??

忘了写问题,求方程x^2+y^2+z^2=2000的所有整数解???

按说解的个数应当是8的整数倍啊……

你有试过吗?这样就知道!!

懂了
原来y的值一直是0。他把j改掉了，却用y参与运算……


解的数量不一定是8的整数倍。但如果xyz<>0则解的数量是8的整数倍（对称性）

另外，感叹号不要乱用，否则别人可能不敢回应你了。

我看不明白~~特别是那些循环语句~看到头晕~

知道了,又是在小的地方出错了,谢谢了.
还有,!!我也不会乱用了.

-44 -8 0
-44 0 -8
-44 0 8
-44 8 0
-40 -20 0
-40 -16 -12
-40 -16 12
-40 -12 -16
-40 -12 16
-40 0 -20
-40 0 20
-40 12 -16
-40 12 16
-40 16 -12
-40 16 12
-40 20 0
-32 -24 -20
-32 -24 20
-32 -20 -24
-32 -20 24
-32 20 -24
-32 20 24
-32 24 -20
-32 24 20
-24 -32 -20
-24 -32 20
-24 -20 -32
-24 -20 32
-24 20 -32
-24 20 32
-24 32 -20
-24 32 20
-20 -40 0
-20 -32 -24
-20 -32 24
-20 -24 -32
-20 -24 32
-20 0 -40
-20 0 40
-20 24 -32
-20 24 32
-20 32 -24
-20 32 24
-20 40 0
-16 -40 -12
-16 -40 12
-16 -12 -40
-16 -12 40
-16 12 -40
-16 12 40
-16 40 -12
-16 40 12
-12 -40 -16
-12 -40 16
-12 -16 -40
-12 -16 40
-12 16 -40
-12 16 40
-12 40 -16
-12 40 16
-8 -44 0
-8 0 -44
-8 0 44
-8 44 0
0 -44 -8
0 -44 8
0 -40 -20
0 -40 20
0 -20 -40
0 -20 40
0 -8 -44
0 -8 44
0 8 -44
0 8 44
0 20 -40
0 20 40
0 40 -20
0 40 20
0 44 -8
0 44 8
8 -44 0
8 0 -44
8 0 44
8 44 0
12 -40 -16
12 -40 16
12 -16 -40
12 -16 40
12 16 -40
12 16 40
12 40 -16
12 40 16
16 -40 -12
16 -40 12
16 -12 -40
16 -12 40
16 12 -40
16 12 40
16 40 -12
16 40 12
20 -40 0
20 -32 -24
20 -32 24
20 -24 -32
20 -24 32
20 0 -40
20 0 40
20 24 -32
20 24 32
20 32 -24
20 32 24
20 40 0
24 -32 -20
24 -32 20
24 -20 -32
24 -20 32
24 20 -32
24 20 32
24 32 -20
24 32 20
32 -24 -20
32 -24 20
32 -20 -24
32 -20 24
32 20 -24
32 20 24
32 24 -20
32 24 20
40 -20 0
40 -16 -12
40 -16 12
40 -12 -16
40 -12 16
40 0 -20
40 0 20
40 12 -16
40 12 16
40 16 -12
40 16 12
40 20 0
44 -8 0
44 0 -8
44 0 8
44 8 0


注意变量……

不敢注意.太多了,眼花缭乱.