【求100^999中所有的水仙花数,】

发布时间：2021-03-18 13:45:42

求100^999中所有的水仙花数,

网友回答

Private Sub Form_Load()
Me.AutoRedraw = True
For i = 100 To 999
If (i \ 100) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next iEnd Sub
以上问题属网友观点，不代表本站立场，仅供参考！