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

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