水仙花数VB源码.doc

《水仙花数VB源码.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、水仙花数：一个三位数，其每个位数的立方和等于这个数，我们把它称为水仙花数。在VB程序中采用穷举算法可以很方便地求出所有的水仙花数。将*号以下的部分复制到代码窗口中运行即可。*************************************************************************PrivateSubForm_Click()DimNumAsInteger,iAsInteger,jAsInteger,kAsIntegerFori=1To9Forj=0To9Fork=0To9Num=100*i+

2、10*j+kIfNum=i^3+j^3+k^3ThenPrintNumEndIfNextkNextjNextiEndSub