编写循环代码 课件

课件16张PPT。奇数：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由______变到______,故需要用到______结构。三100999循环一、分析问题：
由水仙花数的概念可知：2、水仙花数是各位数的立方之和，故首先需得到每位上的数。设变量g、s、b分别存放个位、十位、百位上的数，则：
g=______
s=______
b=______3、找到各位上的数后，判断其是否为水仙花数的条件为：_____________i mod 10i 10 mod 10i 100或者 (i mod 100）10g^3+s^3+b^3=ii=100i=g^3+s^3+b^3g=i mod 10Print i二、用流程图描述算法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、找到各位上的数后，判断其是否为四叶玫瑰数的条件为：_________二、用流程图描述算法三、编写代码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
Next ____
Next ____
Next ____
End Sub1909b*100+s*10+ggsb自主学习P124，阅读问题2的程序。 通过对自幂数概念的理解和算术运算符的应用，完成了用“穷举法”对数的查找。通过对自幂数概念的理解和算术运算符的应用，完成了用“穷举法”对数的查找。