水仙花数是指一个 n 位数 ( n≥3 )，它的每个位上的数字的 n 次幂之和等于它本身。（例如：1^3 + 5^3+ 3^3 = 153）
操作方法
（01）双击桌面图标启动 visual basic 6.0
（02）选择标准EXE，然后点击打开。
（03）然后双击 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
