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 位正整数位正整数 ( n3 ( n3 ) )， 它的每个位上的数字的它的每个位上的数字的 n n 次幂之和等于次幂之和等于 它本身。它本身。 当n=3时，又称水仙花数，其各位数之立方和立方和等于该数。 （例

2、如：13 + 53+ 33 = 153） 当n=4时，又称四叶玫瑰数，其各位数之四次方和四次方和等于该数。 （例如：1634=14+64+34+44） 在给定范围范围内， 对所有符合条件条件的答 案按顺序逐一枚举的 解题方法叫“穷举穷举 法法”。“穷举法”在 密码破解、数据恢复 等方面有着广泛的应 用 。 怎样找到罪犯？怎样找到罪犯？ 一、分析问题一、分析问题 由水仙花数的概念可知： 找出水仙花数 1、它们是_位数的正整数。设变量i i用于 存放每一个需要判断的数，则i由_变到 _,故需要用到_结构。 三三 100 999循环循环 一、分析问题：一、分析问题： 由水仙花数的概念可知： 2、水仙

3、花数是各位数各位数的立方之和，故首先需得到 每位上的数。设变量g g、s s、b b分别存放个位、十 位、百位上的数，则： g=_g=_ s=_s=_ b=_b=_ 3、找到各位上的数后，判断其是否为 水仙花数的条件条件为：_ i mod 10 i 10 mod 10 i 100 或者或者 (i mod 100）10 g3+s3+b3=i i=100 i=g3+s3+b3 g=i mod 10 Print i 开始 i=999 s=(i Mod 100) 10 b=i 100 是 否 是 结束 否 i=i+1 二、用流程图描述算法二、用流程图描述算法 Private Sub Form_Clic

4、k() 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用于存放每一个需要判断

5、的数， 则i由_变到_,故需要用 到_结构。 一、分析问题一、分析问题 由四叶玫瑰数的概念可知： 2、四叶玫瑰数是各位数各位数的四次方 之和，故首先需得到各位上的数。 设变量g g、s s、b b、q q分别存放个位、 十位、百位、千位上的数，则： g=_ s=_g=_ s=_ b=_ q=_b=_ q=_ 3、找到各位上的数后，判断其是否为 四叶玫瑰数的条件条件为：_ 二、用流程图描述算法二、用流程图描述算法 开始 i= i= g= s= b= i= Print i i=i+1 结束 是 是 否 否 q= 三、编写代码三、编写代码 Private Sub Form_Click() Dim i

6、 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 Next _ Next _ Next _ End S