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

 时间:2024-09-23 00:23:35

水仙花数是依宏氽墓指一个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找出所有的水仙花数(梅花数)

VB6.0如何设置窗体的背景颜色 VB的label标签如何自动缩放大小 VB显示文本的字体和字号如何用代码来设置? vb的inputbox函数怎么用?玩转inputbox函数 VB的图片框如何载入图像
热门搜索
人猿泰山电影 rav4报价及图片 有教育意义的电影 悍匪电影 图片唯美女生