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

首先启动VB6.0，新建一个标准exe工程。

在窗体上绘制一个命令按钮（名称：Command1），双击命令按钮进入代码窗口。

接下来我们开始编写命令按钮的单击事件。首先设定三个变量a,b,c，接下来对这三个变量赋值。假设我们判断150，那么a=150 mod 10，所以a=0.同理b=150 \10 mod 10，所以b=5.。以此类推。再把所分解出来的数进行三次方后累加，如果等于本身，那么就是水仙花数（梅花数），否则就不是水仙花数。

接下来我们可以按F5运行测试，点击命令命令按钮，输出我们所要的结果。