vb求水仙花(vb水仙花数编程)

  来源:   编辑:

大家好,小空来为大家解答以上的问题。vb求水仙花,vb水仙花数编程这个很多人还不知道,现在让我们一起来看看吧!

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

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

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

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

5、5、代码:If 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。

6、最后运行这样就完成了。

本文到此分享完毕,希望对大家有所帮助。

标签:
免责声明:本文由用户上传,与本网站立场无关。财经信息仅供读者参考,并不构成投资建议。投资者据此操作,风险自担。 如有侵权请联系删除!