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

双击桌面图标启动 visual basic 6.0

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

然后双击  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