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

1、双击桌面图标启动 visual basic 6.0

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

3、然后双击  FORM1  窗体，在弹出的代码窗体中复制该代码到 Form_Click()  事件中。

代码：

 Dim a As Integer, b As Integer, c As Integer, n As Integer

 n = 0

 For a = 1 To 9

  For b = 0 To 9

  For c = 0 To 9

  If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then

 n = n + 1

    If (n Mod 5) = 0 Then

  Print a & b & c

  Else

 Print a & b & c,

  End If

  End If

  Next c

  Next b

 Next a

 Print Chr(13) & Chr(13) & "三位数中水仙花数个数为" & n