请教visual basic 程序设计的一道题

来源：百度知道 编辑：UC知道 时间：2024/06/02 02:24:23
编一程序，显示所有的水仙花数。所谓水仙花数，是指一个3位数，其各个数字立方和等于该书字本身。例如，153是水仙花数，因为153=1立方+5立方+3立方。
两种方法1）利用三重循环，将三个数连接成一个3位数进行判断
2）利用单循环将一个3位数逐位分离后进行判断。

非常谢谢你~~~~

------------------------------第一种------------------------------
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
s = i * 100 + j * 10 + k
If s = i ^ 3 + j ^ 3 + k ^ 3 Then
Print s
End If
Next k
Next j
Next i

------------------------------第二种------------------------------
For s = 100 To 999
i = (s - s Mod 100) \ 100
j = (s Mod 100 - s Mod 10) \ 10
k = s Mod 10
If s = i ^ 3 + j ^ 3 + k ^ 3 Then
Print s
End If
Next s

1)
For a=1 to 9
For b=1 to 9
For c=1 to 9
If (a*100+b*10+c)=(a*a*a+b*b*b+c*c*c) Then Print a*100+b*10+c
Next c
Next b
Next a

2)
For i=111 to 999
a=i\100
b=(i-a*100)\10
c=i mod 10
If (a*a*a+b*b*b+c*c*c)=i Then Print i;
Next i