水仙花数是指一个 n 位数 ( n≥3 )，它的每个位上的数字的 n 次幂之和等于它本身。（例如：1^3 + 5^3+ 3^3 = 153）

操作方法

双击桌面图标启动？visual basic 6.0

选择标准EXE，然后点击打开。

然后双击 ？FORM1 ？窗体，在弹出的代码窗体中复制该代码到？Form_Click() ？事件中。代码：Dim？a？As？Integer,b？As？Integer,c？As？Integer,n？As？Integern？=？0For？a？=？1？To？9For？b？=？0？To？9For？c？=？0？To？9If？a？*？100？+？b？*？10？+？c？=？a？^？3？+？b？^？3？+？c？^？3？Thenn？=？n？+？1If？(n？Mod？5)？=？0？ThenPrint？a？&b？&cElsePrint？a？&b？&c,End？IfEnd？IfNext？cNext？bNext？aPrint？Chr(13)？&Chr(13)？&"三位数中水仙花数个数为"&n