作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/05 14:46:53
如果可以的话,各位能把水花仙数的编程代码写下,那就更好了
是“水仙花数”.绝对可以用.(拜托给分啊~)
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