水仙花数.doc

水仙花数
１．题目
    水仙花数是一个三位数，其各位上数的立方和等于这个数，例如１５３，１３＋５３＋３３＝１５３。请找出它们来，ＯＫ，下面我们就来找一下这种美妙的数。
    ２．编程简析
    水仙花数既然是一个三位数，那么它的范围也就再清楚不过了，１００～９９９，所以总计有９００种可能的情况。怎样判断这个数是不是水仙花数呢？因为条件是各位上数的立方和等于这个数，那么如果假设这个数是ｎ，并且各数位从高到低分别是ａｂｃ，那么ａｂｃ和ｎ之间有种一一对应关系。其实我们这里的问题也就成了知道某个数来拆分其数位了。三个数位拆分如下：
ａ＝Ｉｎｔｎ／１００
ｂ＝Ｉｎｔｎ－１００ａ／１０
ｃ＝ｎ－１００ａ－ｂ１０
    条件也就是ａａａ＋ｂｂｂ＋ｃｃｃ＝ｎ。另外，程序的整体结构是循环内套分支。
    ３．语言、界面、源程序
    （１）语言
     通过Ｖｉｒｕａｌ ＢＡＳＩＣ６．０语言来实现。
    （２）界面
    界面非常简单，建立一标准ＥＸＥ工程，其ｃａｐｔｉｏｎ设为水仙花数一切ＯＫ。我们将代码加给Ｆｏｒｍ＿Ｃｌｉｃｋ即窗体的单击事件，将来运行时，我们只要用鼠标单击一下窗体，程序就执行了。
    （３）源程序
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｃｌｉｃｋ
Ｄｉｍ ｎ Ａｓ Ｉｎｔｅｇｅｒ ＇声明变量
Ｄｉｍ ａ ｂ ｃ Ａｓ Ｉｎｔｅｇｅｒ
Ｆｏｒ ｎ＝１００ Ｔｏ ９９９
  ａ＝Ｉｎｔ
ｎ／１００ 
  ｂ＝Ｉｎｔｎ－１００ａ／１０
  ｃ＝ｎ－１００ａ－ｂ１０ 
  Ｉｆ ｎ＝ａａａ＋ｂｂｂ＋ｃｃｃ Ｔｈｅｎ
    Ｐｒｉｎｔ ｎ ＇输出
  Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｎ
Ｅｎｄ Ｓｕｂ
    以上程序在ＶＢ６．０ ＷＩＮ ２０００下调试通过
    ４．编程小结
    这样我们查出了所有的水仙花数，有四个，分别是１５３，３７０，３７１，４０７。
     另外，还有一个编程中非常有意思的思考问题的方法。在本题中，我们是通过设置设立一个三位数ｎ，然后求出各数位来解题的，当然反之也行，可能这种方法更便于理解，你可以自己试试 哦！
22222222222222222
水仙花数是指一个三位数，其各个数之立方和等于该数。例如153，即为一水仙花数，因为153=1*1*1+5*5*5+3*3*3。
C语言的"水仙花数"实现代码：
void main()
{
  int ge,shi,bai,number;
  for(number=100;number<1000;number++)
{
  bai=number/100;
  shi=(number%100)/10;
  ge=number%10;
  if(number==bai*bai*bai+shi*shi*shi+ge*ge*ge) printf("\nnumber=%d\n",number);
}
  getch();
}
Visual Basic的"水仙花数"实现代码：
Private Sub Fo