如果可以的话,各位能把水花仙数的编程代码写下,那就更好了

如果可以的话,各位能把水花仙数的编程代码写下,那就更好了

是“水仙花数”.绝对可以用.（拜托给分啊~）
Private Sub Command1_Click()
Dim s%,s1%,s2%,s3%
For s = 100 To 999
s1 = s \ 100
s2 = (s - 100 * s1) \ 10
s3 = (s - 100 * s1) Mod 10
If s = s1 ^ 3 + s2 ^ 3 + s3 ^ 3 Then
Print s
End If
Next s
End Su

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息