用VB6.0找出所有的水仙花数(梅花数)
水仙花数是指一个 n 位数 ( n≥3 ),它的每个位上的数字的 n 次幂之和等于它本身。(例如:1^3 + 5^3 + 3^3 = 153)。 三位的水仙花数共有4个:153,370,371,407。
操作方法
- 01
首先启动VB6.0,新建一个标准exe工程。
- 02
在窗体上绘制一个命令按钮(名称:Command1),双击命令按钮进入代码窗口。
- 03
接下来我们开始编写命令按钮的单击事件。首先设定三个变量a,b,c,接下来对这三个变量赋值。假设我们判断150,那么a=150 mod 10,所以a=0.同理b=150 \10 mod 10,所以b=5.。以此类推。再把所分解出来的数进行三次方后累加,如果等于本身,那么就是水仙花数(梅花数),否则就不是水仙花数。
- 04
接下来我们可以按F5运行测试,点击命令命令按钮,输出我们所要的结果。
赞 (0)