养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

用VB6.0找出所有的水仙花数(梅花数)

时间:2024-11-12 02:24:40

水仙花数是指一个n位数(n≥3),它的每个位上的数字的n次幂之和等于它本身。(例如:1^3+5^3+3^3=153)。三位的水仙花数共有4个:153,370,371,407。

工具/原料

联想2020

Win11

方法/步骤

1、首先,在窗体上绘制一个命令按钮(名称:Command1),双击命令按钮进入代码窗口。

用VB6.0找出所有的水仙花数(梅花数)

2、接下来我们开始编写命令按钮的单击事件。首先设定三个变量a,b,c,接下来对这三个变量赋值。假设我们判断150,那么a=150mod10,所以a=0.同理b=150\10mod10,所以b=5.。以此类推。再把所分解出来的数进行三次方后累加,如果等于本身,那么就是水仙花数(梅花数),否则就不是水仙花数。

用VB6.0找出所有的水仙花数(梅花数)

3、接下来我们可以按F5运行测试,点击命令命令按钮,输出我们所要的结果。

用VB6.0找出所有的水仙花数(梅花数)

© 一点知识