VB “水仙花数”实现代码 计算代码

水仙花数是指一个 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