4.3循环结构——Do语句 课件-2021-2022学年高中信息技术浙教版选修1（33张PPT）

(共33张PPT)
循环结构——Do语句
欢迎各位同学通过空中课堂一起来学习!
目录
DIRECTORY
考试要求
学习重点
学习难点
01
02
03
04
课前练习
05
课堂练习
06
课后巩固
考试要求
01
01
考试要求
1.Do语句 (c)
学习重点
02
02
学习重点
1 .掌握Do语句的格式
2.掌握Do语句的用法。
学习难点
03
03
学习难点
1．Do语句的用法。
2. 学会使用Do语句解决实际问题。
课前练习
04
1.某停车场只停放了三轮车(车有3个轮子)和小轿车（车有4个轮子），根据停车场车辆总数和总的车轮数，分别计算出三轮车和小轿车可能的车辆数。程序实现如下功能：在文本框Text1、Text2中分别输入：36、114,单击“计算”按钮Command1后,在标签Label1中显示计算结果，运行结果界面如下图所示。
(1) 在设计应用程序界面时，窗口的标题显示文字“统计车辆数”是修改了窗体(From1)的________属性。
(2)为实现上述功能，请在划线处填入合适代码。
课前练习
04
1.某停车场只停放了三轮车(车有3个轮子)和小轿车（车有4个轮子），根据停车场车辆总数和总的车轮数，分别计算出三轮车和小轿车可能的车辆数。程序实现如下功能：在文本框Text1、Text2中分别输入：36、114,单击“计算”按钮Command1后,在标签Label1中显示计算结果。
(2)为实现上述功能，请在划线处填入合适代码。
课前练习
04
Dim t As Integer, j As Integer, x As Integer
Dim y As Integer, s As String
t = ‘车辆总数
j = ‘总车轮数
s = “”
for x=______________ ‘三轮车数
y = ____________ ‘小轿车数
If_________________Then
s=”结果：”+Str(x)+”辆三轮车”+Str (y) +”辆小轿车"
Exit For
End If
Next x
Label1. Caption = s
①
②
③
④
⑤
1.某停车场只停放了三轮车(车有3个轮子)和小轿车（车有4个轮子），根据停车场车辆总数和总的车轮数，分别计算出三轮车和小轿车可能的车辆数。程序实现如下功能：在文本框Text1、Text2中分别输入：36、114,单击“计算”按钮Command1后,在标签Label1中显示计算结果。
(2)为实现上述功能，请在划线处填入合适代码。
课前练习
04
Dim t As Integer, j As Integer, x As Integer
Dim y As Integer, s As String
t =Val(Text1.text) ‘车辆总数
j = Val(Text2.text) ‘总车轮数
s = “”
for x=0 to t ‘三轮车数
y = t-x ‘小轿车数
If x*3+y*4=j Then
s=”结果：”+Str(x)+”辆三轮车”+Str (y) +”辆小轿车"
Exit For
End If
Next x
Label1. Caption = s
2.下列程序段是计算哪个公式的 ( )
s=0：t=1
for i=1 to 10
t=t*i
s=s+t
next i
A．s=1+2+3+…+10 B．s=1!+2!+3!…+10!
C．s=1*2*3*…*10 D．s =1+2*3+3*4+4*5+……+9*10
作业讲解
04
3.下列是一个Visual Basic程序：
Sub Command1_Click()
x=4
For i=1 To 10 step 3
If xx=x+i
End If
Next i
End Sub
该程序运行结束时x的值是( )
A．7 B．11 C．21 D．55
作业讲解
04
5.完善下列程序，使能输出：1-2+3-4+5-6+……+99-100的值。
Private Sub Command1_Click()
s= ①
For i=1 to ②
s=s+((-1)^( ③ ))*i
Next i
Label2.caption=str(s)
End Sub
作业讲解
04
6.设计了一个找数的 Visual Basic 程序，该程序可以找出所有能被 7 整除，且至少有一位数为 1 的三位数，并统计个数，程序运行界面如右图所示。实现上述功能的 VB 程序如下，请在划线处填写合适的代码。
作业讲解
04
Dim s As Integer, n As Integer
Dim a As Integer, b As Integer, c As Integer
n = 0
List1.Clear
For s = ① To ②
a = s \ 100
b = ③
c = s mod 10
If ④ Then
⑤
List1.AddItem Str(s)
End If
Next s
Text1.Text = ⑥
2.用VB程序验证角谷猜想。角谷猜想指的是对于给定的任意一个正整，经有限次变换后，最都能变1。变换方法是如果是偶数，它除以2；如果是奇数它乘3再加1；按此方法循环，直到变1为止。程序运行时，在
文本框Text1中输入正整n, 单击“验证”按钮Command1后，在列表框List1中输出每次变换后的值，在文本框Text2中输出变换的总次数。运行界面如图所示。
(1)程序段中List1.Clear中的Clear是 ____(填字母 A.属性名/B.事件名/C.方法名/D.对象名）
(2) 编写程序。
课前练习
04
1．循环结构——Do语句
Do循环不仅可以按照限定的次数执行循环内的语句块，而且可以根据循环条件是“True”或“False”决定是否结束循环。
Do语句的格式有多种，常用的Do语句格式如下：
Do While 条件表达式
　 [语句块]
　 [Exit Do]
Loop
新课讲授
① Do循环语句的功能是：当指定的“循环条件”为True时重复执行循环体。执行过程是：先计算条件表达式的值→如果值为True，执行一次循环体中的语句块→遇到Loop语句再次计算条件表达式的值→如果值为True，再重复执行一次循环体中的语句块→循环往复直到条件表达式的值为False时退出循环体。
②如果条件总是成立，则Do－Loop循环也是变成一个“死循环”。
新课讲授
a=1:b=2
For i=1 to 3
b=b+a
a=a+b
Next i
课堂练习
a=1:b=2
i=1
Do while i<=3
b=b+a
a=a+b
i=i+1
Loop
s=0
For k=1 to 10 step 2
s=s+k*(k+1)
Next k
课堂练习
s=0
k=1
Do while k<=10
s=s+k*(k+1)
k=k+2
Loop
例1：下列Visual Basic程序段运行后，变量x的值为（ ）
x=3：y=77 ：s=1
Do While xs=s*x
x=x+2
Loop
A．7 B．8 C．9 D．10
课堂练习
C
例2：有如下Visual Basic程序段：
Dim num As Integer, s As String
num=3 : s=“”
Do While num<8
num=num+2
s=str(num) + s
Loop
程序运行后，s的值是 ( )
A．3 5 7 B．7 5 3 C．5 7 9 D．9 7 5
课堂练习
D
例3：有如下Visual Basic程序段：
Dim num As Integer, s As String
num=3 : s=“”
Do While num<8
s=str(num) + s
num=num+2
Loop
程序运行后，s的值是 ( )
A．3 5 7 B．7 5 3 C．5 7 9 D．9 7 5
课堂练习
B
例4.用VB程序验证角谷猜想。角谷猜想指的是对于给定的任意一个正整，经有限次变换后，最都能变1。变换方法是如果是偶数，它除以2；如果是奇数它乘3再加1；按此方法循环，直到变1为止。程序运行时，在
文本框Text1中输入正整n, 单击“验证”按钮Command1后，在列表框List1中输出每次变换后的值，在文本框Text2中输出变换的总次数。运行界面如图所示。
(1)程序段中List1.Clear中的Clear是 ____(填字母 A.属性名/B.事件名/
C.方法名/D.对象名）
(2) 编写程序。
课堂练习
例4.用VB程序验证角谷猜想。角谷猜想指的是对于给定的任意一个正整，经有限次变换后，最都能变1。变换方法是如果是偶数，它除以2；如果是奇数它乘3再加1；按此方法循环，直到变1为止。程序运行时，在文本框Text1中输入正整n, 单击“验证”按钮Command1后，在列表框List1中输出每次变换后的值，在文本框Text2中输出变换的总次数。
(2) 编写程序。
课堂练习
Dim n As Integer, c As Integer
_________________ ‘输入n
c = 0
List1.Clear
List1.AddItem "验证过程如下:"
Do While __________
c = c + 1
If ___________Then
n = n / 2
else
________
EndIf
List1.AddItem ________
Loop
Label2.Caption = "变换次数为" +_______
①
②
③
④
⑤
⑥
例4.用VB程序验证角谷猜想。角谷猜想指的是对于给定的任意一个正整，经有限次变换后，最都能变1。变换方法是如果是偶数，它除以2；如果是奇数它乘3再加1；按此方法循环，直到变1为止。程序运行时，在文本框Text1中输入正整n, 单击“验证”按钮Command1后，在列表框List1中输出每次变换后的值，在文本框Text2中输出变换的总次数。
(2) 编写程序。
课堂练习
Dim n As Integer, c As Integer
n=Val(Text1.text) ‘输入n
c = 0
List1.Clear
List1.AddItem "验证过程如下:"
Do While n>1
c = c + 1
If n mod 2 =0 Then
n = n / 2
else
n=n*3+1
EndIf
List1.AddItem str(n)
Loop
Label2.Caption = "变换次数为" +str(c)
某 VB 程序的功能是用于处理文本框 Text1 中的字符串。具体是将文本框 Text1 中的字符首尾各取出一个字符，第一次取第 1 个和倒数第 1 个字符，第二次去第 2 个和倒数第 2 个字符，依次类推，组成一个新的字符串，在文本框 Text2 中输出，如图所示。
(1) 补充代码。
课堂练习
某 VB 程序的功能是用于处理文本框 Text1 中的字符串。具体是将文本框 Text1 中的字符首尾各取出一个字符，第一次取第 1 个和倒数第 1 个字符，第二次去第 2 个和倒数第 2 个字符，依次类推，组成一个新的字符串，在文本框 Text2 中输出，如图所示。
(1) 补充代码。
课堂练习
Dim S1 As String, S2 As String
Dim m As Integer, n As Integer
S1 = Text1.Text
S2 = ""
n = Len(S1)
i = 1
Do While __________
S2 = S2 + _____________
___________________
i = i + 1
Loop
If______Then S2 = S2+Mid(S1,n\2+1,1)
Text2.Text = S2
某 VB 程序的功能是用于处理文本框 Text1 中的字符串。具体是将文本框 Text1 中的字符首尾各取出一个字符，第一次取第 1 个和倒数第 1 个字符，第二次去第 2 个和倒数第 2 个字符，依次类推，组成一个新的字符串，在文本框 Text2 中输出，如图所示。
(1) 补充代码。
课堂练习
Dim S1 As String, S2 As String
Dim m As Integer, n As Integer
S1 = Text1.Text
S2 = ""
n = Len(S1)
i = 1
Do While i<=n\2
S2 = S2 + mid(s1,i,1)
S2 = S2 + mid(s1,n-i+1,1)
i = i + 1
Loop
If n mod2=1Then S2 = S2+Mid(S1,n\2+1,1)
Text2.Text = S2
给定一个十进制整数 N,求出从 1 到 N 的所有整数中出现”1”的个数。 例如：N=2 时 1,2 出现了 1 个“1”。N=12 时 1,2,3,4,5,6,7,8,9,10,11,12。出现了 5 个“1”。编写一个 VB 程序，功能如下：在文本框 Text1 中输入整数 n，单击“统计”按钮 Command1 后，在列表框 List1 显示 1 到 N，并在标签 Label1中显示从 1 到 N 的所有整数中出现”1”的个数。
课堂练习
Do语句的格式有多种，常用的Do语句格式如下：
Do While 条件表达式
　 [语句块]
　 [Exit Do]
Loop
课堂小结
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.
谢谢！