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
