VB穷举法（水仙花数与四叶玫瑰数）.pptVIP

奇数：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） 在给定范围内，对所有符合条件的答案按顺序逐一枚举的解题方法叫“穷举法”。“穷举法”在密码破解、数据恢复等方面有着广泛的应用 。 怎样找到罪犯？ 一、分析问题 由水仙花数的概念可知： 找出水仙花数 1、它们是_____位数的正整数。设变量i用于存放每一个需要判断的数，则i由______变到______,故需要用到______结构。 三 100 999 循环 一、分析问题： 由水仙花数的概念可知： 2、水仙花数是各位数的立方之和，故首先需得到每位上的数。设变量g、s、b分别存放个位、十位、百位上的数，则： g=______ s=______ b=______ 3、找到各位上的数后，判断其是否为水仙花数的条件为：_____________ i mod 10 i \10 mod 10 i \100 或者 (i mod 100）\10 g^3+s^3+b^3=i i=100 i=g^3+s^3+b^3 g=i mod 10 Print i 开始 i=999 s=(i Mod 100) \ 10 b=i \100 是 否 是 结束 否 i=i+1 二、用流程图描述算法 Private Sub Form_Click() Rem 此程序用于找出水仙花数 Cls Print 水仙花数有：“ Dim i As Integer Dim g As Integer, s As Integer, b As Integer For i = 100 To 999 g = i Mod 10 s = (i Mod 100) \ 10 b = i \ 100 If g ^ 3 + s ^ 3 + b ^ 3 = i Then Print i End If Next End Sub 三、编写代码 演示 找出四叶玫瑰数 一、分析问题 由四叶玫瑰数的概念可知： 1、它们是______位数的正整数。设变量i用于存放每一个需要判断的数，则i由______变到______,故需要用到______结构。 一、分析问题 由四叶玫瑰数的概念可知： 2、四叶玫瑰数是各位数的四次方之和，故首先需得到各位上的数。设变量g、s、b、q分别存放个位、十位、百位、千位上的数，则： g=______ s=______ b=______ q=______ 3、找到各位上的数后，判断其是否为四叶玫瑰数的条件为：_________ 二、用流程图描述算法 开始 i= i= g= s= b= i= Print i i=i+1 结束 是 是 否 否 q= 三、编写代码 Private Sub Form_Click() Dim i As Integer Dim g As Integer, s As Integer Dim b As Integer,q as integer For i = ____To _____ g =______ s =______ b =______ q=______ If ___________= i Then Print i End If Next End Sub 演示 课堂检测 利用多重循环实现 Private Sub Form_Click() Cls Print 水仙花数有：“ Dim g As Integer, s As Integer, b As Integer For b = ___ To ___ For s =____ To ___ For g = 0 To 9 If g ^ 3 + s ^ 3 + b ^ 3 = _______________Then Print b s g End If