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

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

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