5.1 枚举算法——For语句 课件-2021-2022学年高中信息技术浙教版选修1（29张PPT）

(共29张PPT)
枚举算法——For语句
欢迎各位同学通过空中课堂一起来学习!
目录
DIRECTORY
考试要求
学习重点
学习难点
01
02
03
04
课前练习
05
课堂练习
06
课后巩固
考试要求
01
01
考试要求
1.枚举算法思想 (c)
2.For语句 (c)
学习重点
02
02
学习重点
1．掌握枚举算法思想。
2．掌握For语句的格式和用法。
学习难点
03
03
学习难点
1．For语句的用法。
2. 学会使用For语句解决实际问题。
课前练习
04
1.某城市的出租车计费标准为起步价10元（3公里内，含3公里），在3公里到10公里之间每公里2.1元，超过10公里部分每公里3元。另外，里程超过3公里，等待时间也要计费，累计等待时间每4分钟，折算成里程1公里（即2.1元），不足4分钟部分不计费。
课前练习
04
1.某城市的出租车计费标准为起步价10元（3公里内，含3公里），在3公里到10公里之间每公里2.1元，超过10公里部分每公里3元。另外，里程超过3公里，等待时间也要计费，累计等待时间每4分钟，折算成里程1公里（即2.1元），不足4分钟部分不计费。
课前练习
04
Dim s As Integer, t As Integer, m As Single
s = ① ‘输入路程
t = ② ‘输入时间
If ③ Then
m = 10
ElseIf ④ Then
m = 10 + (s - 3) * 2.1 + (t \ 4) * 2.1
Else
m = ⑤ _
End If
Label3.Caption = ⑥ _
1.某城市的出租车计费标准为起步价10元（3公里内，含3公里），在3公里到10公里之间每公里2.1元，超过10公里部分每公里3元。另外，里程超过3公里，等待时间也要计费，累计等待时间每4分钟，折算成里程1公里（即2.1元），不足4分钟部分不计费。
课前练习
04
Dim s As Integer, t As Integer, m As Single
s = Val(Text1.Text)
t = Val(Text2.Text)
If s <= 3 Then
m = 10
ElseIf s <= 10 Then
m = 10 + (s - 3) * 2.1 + (t \ 4) * 2.1
Else
m = 10 + 7 * 2.1 + (s - 10) * 3 + (t \ 4) * 2.1
End If
Label3.Caption = Str(m)
2.有如下程序段
s=0
For i=1 to 5 step2
s=s+i
Next i
该程序运行后，s的值是__________
课前练习
04
9
1．循环结构
循环结构是程序的基本结构之一。所谓循环，就是重复的执行某些操作，直到指定的条件满足为止。
2．For循环语句
如果事先已知循环次数，则可使用For－Next循环结构语句。它的一般格式如下：
For 循环变量＝初值 to 终值 [Step步长]
　 [循环体]
　 [Exit For]
Next循环变量
新课讲授
For i=1 to 100
s=s+i
Next i
step 2
①循环变量是数值变量，一般为整数型。初值和终值各是一个数值表达式。步长为循环变量的增量，是一个数值表达式。其值可以是正数(递增循环)，也可以是负数(递减循环)，但不能是0。如果省略步长，则步长为1。
②For－Next循环遵循“先检查、后执行”的原则，即先检查循环变量是否超过终值，然后决定是否执行循环体。
新课讲授
For i=10 to 1 Step 1
s=s+i
Next i
For i=10 to 1 Step -1
s=s+i
Next i
1.有如下程序段
a=1:b=2
For i=1 to 3
b=b+a
a=a+b
Next i
该程序运行后，b的值是__________
课堂练习
18
2.以下程序段执行后整型变量n 的值为( )
n=0
for i=1 to 20 step 5
n=n+i
next i
A. 50 B. 34 C. 15 D. 210
课堂练习
B
3.下面程序是计算1-50中,能被3整除的所有整数之积，请在______内填入适当的代码。
Private Sub Form_load()
Dim x As Integer, s As Double
s = _____
For x = _________
If ________ Then _______
Next x
Text1.text=s
End Sub
课堂练习
枚举就是将问题的可能解一个个地列举，逐一判断，即使中途找到符合的解也要继续找下去，将所有可能都找完才结束。
枚举算法又叫穷举算法，其基本思想是把问题所有的解一一地罗列出来，并对每一个可能解进行判断，以确定这个可能解是否是问题的真正解。若是，就采纳这个解，否则就抛弃它。
新课讲授
枚举算法的实现要点
①列举与检验过程既不重复也不遗漏；
②尽可能地使可能解的罗列范围最小，以提高解决问题的效率；
③用循环语句(For语句)在一定范围内列举所有可能的解；
④用选择语句(If语句)判断和选择真正的解。
新课讲授
枚举算法的一般格式
For 循环变量＝初始 To 终值 Step 步长
　 If 检验表达式 Then
输出解或者计数器加1
　 End If
Next 循环变量
新课讲授
3.下面程序是计算1-50中,能被3整除的所有整数之积，请在______内填入适当的代码。
Private Sub Form_load()
Dim x As Integer, s As Double
s = _____
For x = _________
If ________ Then _______
Next x
Text1.text=s
End Sub
课堂练习
3.下面程序是计算1-50中,能被3整除的所有整数之积，请在______内填入适当的代码。
Private Sub Form_load()
Dim x As Integer, s As Double
s = 1
For x = 1 to 50
If x mod 3=0 Then s=s*x
Next x
Text1.text=s
End Sub
课堂练习
通过编程寻找3位的水仙花数。什么是水仙花数：水仙花数是指一个 n 位数(n≥3)，它的每个位上的数字的 n 次幂之和等于它本身。例如153是水仙花数,因为13+53+33=153。编程解决此问题，在列表框List1中输出结果。
新课讲授——实践操作
通过编程寻找3位的水仙花数.什么是水仙花数：水仙花数是指一个 n 位数(n≥3)，它的每个位上的数字的 n 次幂之和等于它本身。例如153是水仙花数,因为13+53+33=153。编程解决此问题，在列表框List1中输出结果。
新课讲授——实践操作
Private Sub Command1_Click()
Dim a As Integer ‘百位
Dim b As Integer ‘十位
Dim c As Integer ‘个位
For = To _
a = _
b = _
c = _
If Then
List1.AddItem _
End If
Next i
End Sub
通过编程寻找3位的水仙花数.什么是水仙花数：水仙花数是指一个 n 位数(n≥3)，它的每个位上的数字的 n 次幂之和等于它本身。例如153是水仙花数,因为13+53+33=153。编程解决此问题，在列表框List1中输出结果。
新课讲授——实践操作
Private Sub Command1_Click()
Dim a As Integer ‘百位
Dim b As Integer ‘十位
Dim c As Integer ‘个位
For i = 100 To 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
List1.AddItem Str(i)
End If
Next i
End Sub
枚举算法的一般格式
For 循环变量＝初始 To 终值 Step 步长
　 If 检验表达式 Then
输出解或者计数器加1
　 End If
Next 循环变量
课堂小结
设计了一个找数的 Visual Basic 程序，该程序可以找出所有能被 7 整除，且至少有一位数为 1 的三位数，并统计个数，程序运行界面如右图所示。实现上述功能的 VB 程序如下，请在划线处填写合适的代码。
课后作业
PPT模板下载：www./moban/ 行业PPT模板：www./hangye/
节日PPT模板：www./jieri/ PPT素材下载：www./sucai/
PPT背景图片：www./beijing/ PPT图表下载：www./tubiao/
优秀PPT下载：www./xiazai/ PPT教程： www./powerpoint/
Word教程： www./word/ Excel教程：www./excel/
资料下载：www./ziliao/ PPT课件下载：www./kejian/
范文下载：www./fanwen/ 试卷下载：www./shiti/
教案下载：www./jiaoan/ PPT论坛：www.
谢谢！