【例】“水仙花数”是指一个3位数,其各位数的立方和等于该数,如153=13+53+33,编写程序,打印出100~1000之间的所有水仙花数。

程序源码:

Option Explicit
Private Sub Form_Click()
   Dim I As Integer, GeWei As Integer, ShiWei As Integer, BaiWei As Integer
   For I = 101 To 999 ' 判断100~1000之间的所有水仙花数并打印在窗体上
      GeWei = I Mod 10
      ShiWei = (I Mod 100) \ 10
      BaiWei = I \ 100
      If I = GeWei ^ 3 + ShiWei ^ 3 + BaiWei ^ 3 Then Print I;
   Next I
End Sub

运行结果:

153 370 371 407

 

转载自:http://www.longziyong.cn/post/333.html

没有登录不能评论