用VB6.0找出所有的水仙花数(梅花数)
1、首先,在窗体上绘制一个命令按钮(名称:Command1),双击命令按钮进入代码窗口。
2、接下来我们开始编写命令按钮的单击事件。首先设定三个变量a,b,c,接下来对这三个变量赋值。假设我们判断150,那么a=150 mod 10,所以a=0.同理b=150 \10 mod 10,所以b=5.。以此类推。再把所分解出来的数进行三次方后累加,如果等于本身,那么就是水仙花数(梅花数),否则就不是水仙花数。
3、接下来我们可以按F5运行测试,点击命令命令按钮,输出我们所要的结果。
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:38
阅读量:42
阅读量:39
阅读量:66
阅读量:28