用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)

相关推荐

  • VB6.0找出若干个数中最大的数

    有一个数组,里面有若干个数,接下来介绍VB6.0编程实现搜索最大(最小)数,并进行输出的过程: 操作方法 01 在若干个数中求最大值,一般先假设一个较小的数为最大值的初值,若无法估计较小的值,则取第一 ...

  • 用VB6.0找出100以内的素数(质数)

    数(prime number)又称素数,有无限个.一个大于1的自然数,除了1和它本身外,不能被其他自然数整除,换句话说就是该数除了1和它本身以外不再有其他的因数 操作方法 01 启动VB6.0,新建一 ...

  • 用VB6.0算出阶乘n的值

    阶乘:例如n为5,那么5!(5阶乘)就等于5×4×3×2×1.以此类推 操作方法 01 启动VB6.0,新建一个标准exe工程. 02 在窗体上绘制一个命令按钮,名称为Command1. 03 双击命 ...

  • EXCEL怎么找出两列中不同的项

    有很多朋友都会想找出两列数据中不同的项,其实还比较简单,只要用到一个小小的函数就好了. 操作方法 01 在这两列数据旁边建立辅助列: 02 在辅助列的单元格里面输入函数:=IF(ISERROR(VLO ...

  • 怎样判断整数三位数是否水仙花数

    水仙花数是指一个三位数,它每个位上的数字的三次幂之和与本身相同.请输入一个三位数的整数,判断它是否水仙花数.小编以C++为例,与大家分享编程技巧. 操作方法 01 水仙花数,就是一个3位数整数,它的各 ...

  • 远程查看Win2003日志文件并找出服务器出现故障的原因

    我们都会在日志本上记录今日的工作事项,以便更好地执行工作任务。大家肯定没有想到,在我们日常使用的电脑Windows也有一本像我们一样的“日志本”,那便是——日志文件。日志文件记录着Windows系统运 ...

  • 找出Win 7系统隐藏的彩球屏保的方法

    找出Win 7系统隐藏的彩球屏保的方法: 1、运行注册表编辑器。 2、依次定位到分支:HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionSc ...

  • 关于Win 8.1和 Win 8系统 安装VB6.0 时总是出现"未响应"问题的解决办法

    由于兼容性问题,vb6.0在Win 8.1和 Win 8系统上安装时总是出错(总会在系统更新界面出现"未响应"的提示,如下图) 解决方法如下: 第一步:打开安装包里的安装程序并按如 ...

  • win7系统如何安装vb6.0

    vb6.0是微软公司为业余编程爱好者开发的可视化编程平台,虽然已经宣布淘汰但是还是被大多数学校的机考所用.一些用户不知道如何在win7系统中安装vb6.0,网上关于安装vb6.0的教程内容比较少,所以 ...