用VBA求100到1000的阿姆斯特朗数，我哪里错了如果一个正整数等于其各个数字的立方和，则称该数为阿姆斯特朗数。Sub阿姆斯特朗数()Dimx,y,zAsIntegerForx=1To9Fory=0To9Forz=0To9Ifx^3+

Question

用VBA求100到1000的阿姆斯特朗数，我哪里错了
如果一个正整数等于其各个数字的立方和，则称该数为阿姆斯特朗数。
Sub 阿姆斯特朗数()
Dim x, y, z As Integer
For x = 1 To 9
For y = 0 To 9
For z = 0 To 9
If x ^ 3 + y ^ 3 + z ^ 3 = 100 * x + 10 * y + z Then
s = 100 * x + 10 * y + z
Debug.Print s
End If
Next x
Next y
Next z
End Sub
哪里错了

Answer 1

Sub 阿姆斯特朗数()Dim x, y, z As IntegerFor x = 1 To 9    For y = 0 To 9    &nbs...