用VB6.0找出所有的水仙花数 梅花数（vb编程输出所有水仙花数）

我们现在来看看，如何找出所有的梅花数。

1.我们先是写上范围，这个范围是100-999这个范围。

2.然后定义一个临时变量temp和sum，两个变量都是临时存放。

3.接下来我们就可以对这个数进行除以10。

4.只要这个数不等于0 ，我们就一直循环操作。

5.此时，我们就可以利用拆分出来的各个位数进行3次幂运算累加。

6.最后，我们可以将我们获得的结果，找到的所有梅花数输出到文本框。