Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer
For x = -45 To 45
For y = x To 45
For z = y 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, y, x
End Sub

这样会好一些~~

不好意思,我看不出来,能否说一下

运行一下就知道了,可以避免出现重复的集合.
比如:x=-44 y=-8 z=0 和x=-8 y=-44 z=0 这种集合.

他的主要问题在于他用y参与运算，却用j跑循环……

楼主好像总是犯这样的错误啊~~

不爱看书，很忌讳。

知道了,谢谢!!!