Question

VB编程水仙花数

Answer 1

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

2、然后新建工程，选择标准EXE。

3、选择完工程后，点击打开，就可以新建一个exe工程了。

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

5、代码：If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Thenn = n + 1If (n Mod 5) = 0 Then

Print a & b & cElsePrint a & b & c,End IfEnd IfNext cNext bNext aPrint Chr(13) & Chr(13) & "三位数中水仙花数个数为" &n。最后运行这样就完成了。