vb穷举法（水仙花数与四叶玫瑰数）

《vb穷举法（水仙花数与四叶玫瑰数）》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、奇数：1，3，5，7，9回文数：11、99、424、858、737相亲数：220和284、1184与1210完美数：6、28、496、8128偶数：2，4，6，8，10素数（质数）：2，3，5，7，11水仙花数与四叶玫瑰数水仙花数与四叶玫瑰数属于自幂数。（又称阿姆斯特朗数）是指一个n位正整数(n≥3)，它的每个位上的数字的n次幂之和等于它本身。当n=3时，又称水仙花数，其各位数之立方和等于该数。（例如：13+53+33=153）当n=4时，又称四叶玫瑰数，其各位数之四次方和等于该数。（例如：1634=14+64+34+44）

2、在给定范围内，对所有符合条件的答案按顺序逐一枚举的解题方法叫“穷举法”。“穷举法”在密码破解、数据恢复等方面有着广泛的应用。怎样找到罪犯？一、分析问题由水仙花数的概念可知：找出水仙花数1、它们是_____位数的正整数。设变量i用于存放每一个需要判断的数，则i由______变到______,故需要用到______结构。三100999循环一、分析问题：由水仙花数的概念可知：2、水仙花数是各位数的立方之和，故首先需得到每位上的数。设变量g、s、b分别存放个位、十位、百位上的数，则：g=______s=______b=______3

3、、找到各位上的数后，判断其是否为水仙花数的条件为：_____________imod10i10mod10i100或者(imod100）10g^3+s^3+b^3=ii=100i=g^3+s^3+b^3g=imod10Printi开始i<=999s=(iMod100)10b=i100是否是结束否i=i+1二、用流程图描述算法PrivateSubForm_Click()Rem此程序用于找出水仙花数ClsPrint"水仙花数有：“DimiAsIntegerDimgAsInteger,sAsInteger,bAsInteg

4、erFori=100To999g=iMod10s=(iMod100)10b=i100Ifg^3+s^3+b^3=iThenPrintiEndIfNextEndSub三、编写代码演示找出四叶玫瑰数一、分析问题由四叶玫瑰数的概念可知：1、它们是______位数的正整数。设变量i用于存放每一个需要判断的数，则i由______变到______,故需要用到______结构。一、分析问题由四叶玫瑰数的概念可知：2、四叶玫瑰数是各位数的四次方之和，故首先需得到各位上的数。设变量g、s、b、q分别存放个位、十位、百位、千位上的数，则：g

5、=______s=______b=______q=______3、找到各位上的数后，判断其是否为四叶玫瑰数的条件为：_________二、用流程图描述算法开始i=i=g=s=b=i<=Printii=i+1结束是是否否q=三、编写代码PrivateSubForm_Click()DimiAsIntegerDimgAsInteger,sAsIntegerDimbAsInteger,qasintegerFori=____To_____g=______s=______b=______q=______If___________=iTh

6、enPrintiEndIfNextEndSub演示课堂检测利用多重循环实现PrivateSubForm_Click()ClsPrint"水仙花数有：“DimgAsInteger,sAsInteger,bAsIntegerForb=___To___Fors=____To___Forg=0To9Ifg^3+s^3+b^3=_______________ThenPrintb&s&gEndIfNext____Next____Next____EndSub1909b*100+s*10+ggsb自我巩固自主学习P124，阅读问题2的程序。

7、通过对自幂数概念的理解和算术运算符的应用，完成了用“穷举法”对数的查找。课堂小结