vb控制结构-循环结构程序设计PPT课件
合集下载
第5章 循环结构程序设计PPT教学课件
Private Sub Command1_Click()
a = ""
For n = 1 To 1000
If n Mod 37 = 0 Then
a = a & Str(n) & vbCrLf
End If
Next
Text1.Text = a End Sub
图5-13 能被37整除的自然数
2020/12/10
这里仅给出命令按钮的Click事件代 码：
Private Sub Command1_Click()
图5-2 求累加和
Dim s As Integer, n As Integer s = 0: n = 1 Do While n <= 100 s=s+n n=n+1 Loop Label2.Caption = "1+2+3+…+100 = "&s End Sub 还可以改为直到型：
End Sub
2020/12/10
5
文本框Text1的GotFocus事件代码：
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
5.3 For...Next语句
其语法为 For〈循环变量〉=〈初值〉To〈终值〉[Step〈步长〉]
(1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。 根据流程图，可以写出命令按钮Command1的Click事 件代码为
Private Sub Command1_Click()
Dim m As Integer
vb for循环说课稿PPT课件
循环结构 ——For循环说课
2021/3/25
授课：XXX
1
说课内容
一、教材
教材选用 教学目标 教学内容 教学重点和难点
二、教法和学法
三、教学过程设计
四、教学效果分析
2021/3/25
授课：XXX
2
说教材
❖ 教 材：Visual Basic语言程序设计基础 ❖ 出版社：电子工业出版社 ❖ 章 节：7.2.1《For循环语句》
控制循环的 次数
重复执行的 内容
2021/3/25
授课：XXX
11
实例引入
新课教学
提高任务
拓展任务
交流评价
课堂小结
讲解For循环语法规则（5分钟）
For 循环变量=初值 to 终值 (step 步长值) 循环体
Next 循环变量
2021/3/25
授课：XXX
12
理一理（板书）
FOR—Next 循环
2021/3/25
授课：XXX
18
情景引入
基础任务
提高任务
拓展任务
交流评价
课堂小结
1. 通过演示文稿总结本 课知识内容。2. 归纳和分析 同学们在解决问题时遇到的 难题。将for循环知识系统化 便于学生理解。充分提高学 生编程能力，解决问题能力。
课堂小节 （5分钟）
2021/3/25
授课：XXX
19
2021/3/25
授课：XXX
13
情景引入
基础任务
拓展任务
拓展任务
交流评价
课堂小结
案例驱动，破解疑问：应用联系实际（10分钟）
假设第一天存1毛钱，第二天存2毛钱，第三天 存4毛钱，... 每一天存的钱是前一天的2倍，那 么一个月后共存多少钱？
2021/3/25
授课：XXX
1
说课内容
一、教材
教材选用 教学目标 教学内容 教学重点和难点
二、教法和学法
三、教学过程设计
四、教学效果分析
2021/3/25
授课：XXX
2
说教材
❖ 教 材：Visual Basic语言程序设计基础 ❖ 出版社：电子工业出版社 ❖ 章 节：7.2.1《For循环语句》
控制循环的 次数
重复执行的 内容
2021/3/25
授课：XXX
11
实例引入
新课教学
提高任务
拓展任务
交流评价
课堂小结
讲解For循环语法规则（5分钟）
For 循环变量=初值 to 终值 (step 步长值) 循环体
Next 循环变量
2021/3/25
授课：XXX
12
理一理（板书）
FOR—Next 循环
2021/3/25
授课：XXX
18
情景引入
基础任务
提高任务
拓展任务
交流评价
课堂小结
1. 通过演示文稿总结本 课知识内容。2. 归纳和分析 同学们在解决问题时遇到的 难题。将for循环知识系统化 便于学生理解。充分提高学 生编程能力，解决问题能力。
课堂小节 （5分钟）
2021/3/25
授课：XXX
19
2021/3/25
授课：XXX
13
情景引入
基础任务
拓展任务
拓展任务
交流评价
课堂小结
案例驱动，破解疑问：应用联系实际（10分钟）
假设第一天存1毛钱，第二天存2毛钱，第三天 存4毛钱，... 每一天存的钱是前一天的2倍，那 么一个月后共存多少钱？
vb控制结构-循环结构程序设计
6.3 Do...Loop循环结构
F
语句块 Exit Do 语句块
: 列表 后测型 1
Do T 语句块 块 [Exit Do] 语句块 Loop Until <条件> Do
块
F
条件
T
Do „ Loop Until 的执行过程
While„Loop
6.3 Do...Loop循环结构
例:使用级数求π的值。 根据下式，计算圆周率π的近似值，当计算到绝对值小于 0.0001的通项时，认为满足精度要求，停止计算。
6.2 For...Next循环结构
For循环语句 (一般用于循环次数已知) 形式： For 循环变量＝初值 to 终值 [Step 步长] 语句块
循环变量在终值内
循环变量得初值
F T
[Exit For]
语句块 Next [循环变量]
循环体
语句块
Exit For
语句块
步长
>=0 循环变量<=终值 <0 循环变量>=终值 =1 可省略
下列几种：
l For…Next语句 l Do…Loop语句 l While…Wend语句 Do While<条件> …Loop形式 Do …Loop While <条件>形式 Do Until <条件> …Loop形式 Do …Loop Until <条件>形式 Do …Loop形式
打印九九乘法表 Dim Sgs As String Dim i, j As Integer For i = 1 To 9 ’被乘数从1变到9 For j = i To 9 ’乘数从1变到9 Sgs = i & "×" & j & "=" & Str(i * j) ’打印公式如1×1=1 Picture1.Print Tab((j - 1) * 9 + 1); Sgs; Next j Picture1.Print Next I
《VBfor循环说课》课件
2023-2026
ONE
KEEP VIEW《vbfor循环说课源自 ppt课件REPORTING
CATALOGUE
目 录
• 引言 • VBfor循环的介绍 • VBfor循环的使用方法 • VBfor循环的注意事项 • VBfor循环的应用实例 • 总结与展望
PART 01
引言
课程背景
是Visual Basic的.NET版本，是一种面向对象的编程语言，它结合了Visual Basic易学易用的特点，同时又提供了.NET Framework的强大功能。
PART 06
总结与展望
VBfor循环的重要性和应用场景
VBfor循环是Visual Basic编程 语言中用于重复执行一段代码 直到满足特定条件为止的重要 结构。
在实际应用中，VBfor循环被 广泛应用于各种场景，如数据 清洗、批量处理、算法实现等 。
它能够简化重复性任务，提高 代码执行效率，是编程中不可 或缺的一部分。
使用VBfor循环遍历数组
总结词
演示如何使用VBfor循环遍历数组元素
详细描述
在VB中，可以使用VBfor循环来遍历数组中的每个元素。通过在循环中访问数组 的索引，可以逐个处理数组中的数据。这种方法在处理大量数据时非常高效。
使用VBfor循环控制结构
总结词
介绍如何使用VBfor循环与其他控制结构结合使用
VBfor循环的语法结构
01
VBfor循环的语法结构通 常包括三个部分：循环 初始化、循环体和循环 更新。
02
循环初始化用于设置循 环变量的初始值。
03
循环体是重复执行的代 码块，包含要执行的语 句。
04
循环更新用于在每次循 环结束后更新循环变量 的值。
ONE
KEEP VIEW《vbfor循环说课源自 ppt课件REPORTING
CATALOGUE
目 录
• 引言 • VBfor循环的介绍 • VBfor循环的使用方法 • VBfor循环的注意事项 • VBfor循环的应用实例 • 总结与展望
PART 01
引言
课程背景
是Visual Basic的.NET版本，是一种面向对象的编程语言，它结合了Visual Basic易学易用的特点，同时又提供了.NET Framework的强大功能。
PART 06
总结与展望
VBfor循环的重要性和应用场景
VBfor循环是Visual Basic编程 语言中用于重复执行一段代码 直到满足特定条件为止的重要 结构。
在实际应用中，VBfor循环被 广泛应用于各种场景，如数据 清洗、批量处理、算法实现等 。
它能够简化重复性任务，提高 代码执行效率，是编程中不可 或缺的一部分。
使用VBfor循环遍历数组
总结词
演示如何使用VBfor循环遍历数组元素
详细描述
在VB中，可以使用VBfor循环来遍历数组中的每个元素。通过在循环中访问数组 的索引，可以逐个处理数组中的数据。这种方法在处理大量数据时非常高效。
使用VBfor循环控制结构
总结词
介绍如何使用VBfor循环与其他控制结构结合使用
VBfor循环的语法结构
01
VBfor循环的语法结构通 常包括三个部分：循环 初始化、循环体和循环 更新。
02
循环初始化用于设置循 环变量的初始值。
03
循环体是重复执行的代 码块，包含要执行的语 句。
04
循环更新用于在每次循 环结束后更新循环变量 的值。
VB课件第4章循环结构
End Sub
整理课件
13
思考：
Private Sub Form_Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum = sum + x
Next i
End Sub
整理课件
14
示例3：100 元买100 只鸡，母鸡3元1只，小鸡1元 3只，问各应买多少只?
Show
t=1 For c = 1 To 8
t=t*c
如果要求 N!呢???
Next c
Print "T="; t
End Sub
程序运行结果是： T＝40320
语句t=t*c也称累乘器。先将t置1(不能置0)。
在循环程序中，常用累加器整和理累课件乘器来完成各种计算任务1。0
思考：
x=5 For i=1 To 20 Step 5
x = x + i\5 Next i
整理课件
11
思考：
s=5 For i=2.6 To 4.9 Step 0.6
s=s+1 Next i
整理课件
12
思考：
Private Sub Form_Click() x=5 : k=5 For k=1 To 10 Step -2 x=x+k Next k Print k; x
i = 1 ’进入循环之前赋初值
Do While i <= 100
整理课件
3
4.3.1 For...Next循环
按指定次数执行循环体
循环变量获得初值
循环变量超过终值？ F T
整理课件
13
思考：
Private Sub Form_Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum = sum + x
Next i
End Sub
整理课件
14
示例3：100 元买100 只鸡，母鸡3元1只，小鸡1元 3只，问各应买多少只?
Show
t=1 For c = 1 To 8
t=t*c
如果要求 N!呢???
Next c
Print "T="; t
End Sub
程序运行结果是： T＝40320
语句t=t*c也称累乘器。先将t置1(不能置0)。
在循环程序中，常用累加器整和理累课件乘器来完成各种计算任务1。0
思考：
x=5 For i=1 To 20 Step 5
x = x + i\5 Next i
整理课件
11
思考：
s=5 For i=2.6 To 4.9 Step 0.6
s=s+1 Next i
整理课件
12
思考：
Private Sub Form_Click() x=5 : k=5 For k=1 To 10 Step -2 x=x+k Next k Print k; x
i = 1 ’进入循环之前赋初值
Do While i <= 100
整理课件
3
4.3.1 For...Next循环
按指定次数执行循环体
循环变量获得初值
循环变量超过终值？ F T
VB程序设计课件第8讲 For循环
14
Dim F1&, F2&, F3&, i% F1 = 1: F2 = 1 Label1.Text = F1 & F2 For i = 3 To 30 F3 = F1 + F2 Label1.Text &= F3
If i Mod 4 = 0 Then Label1.Text &= vbCrLf 每行4 每行4个
F1 = F2 : F2 = F3 Next
'用新值代替旧值
15
内容小结
循环次数， 1．For 循环次数，循环变量保留退出时的值 t、 2. 累加 s = s + t、连乘 s = s * t 3. 递推法的递推关系
16
3
For
循环变量 ＝ 初值 语句块 [Exit For] 语句块 [循环变量 循环变量] [循环变量]
to
终值
步长] [Step 步长]
循环体
(步长=1时，可省略) 步长=1时 可省略) =1
Next
步长
>0 <0 =0
初值<终值 初值< 初值> 初值>终值 死循环
循环次数 = Int(( 终值 - 初值 ）/ 步长 + 1)
11
【例】 S = 100! 算法： 算法： 初始化： 1. 初始化：定义变量 s 存放连乘积 输入： 2. 输入：循环体外置初值 s = 1 3. 处理：For 1 To 100 ，s = s * i 处理： 输出： 4. 输出：s 连乘是通过连乘性语句： 连乘是通过连乘性语句：s = s * i 实现的 s = 1可否放在循环体内? 1可否放在循环体内? 可否放在循环体内
9
3. 常用算法 累加： 1. 累加：在原有和的基础上每次加一个数 S = 1 + 2 + 3 + … + 100 连乘： 2. 连乘：在原有积的基础上每次乘一个数 100！ S = 100！
VB循环结构FOR循环-完整版课件
• S=0 • For i=1 to 100 • s=s+i • Print s • Next I
求s=1+2+…+100的值
S=0
S=0
S=0+1
S=s+1
S=0+1+2
S=s+2
S=0+1+2+3 S=s+3
S=0+1+2+3+4 S=s+4
……
……
S=0+1+2..+100 S=s+100
重复100次
重复100次
S=0 S=s+i S=s+i S=s+i S=s+i …… S=s+i i为 1 to100
重复做：把I累加 到S。
• S=0 • For i=1 to 100 step 1 • s=s+i • Next i • Print s
要求s=1*2*3*..*n的值（N!）
S=1
S=1
S=1*1
S=s*1
S=1*1*2
S=s*2
S=1*1*2*3 S=s*3
S=1*1*2*3*4 S=s*4
……
……
S=1*2*3…*n S=s*n
S=1 S=s*i S=s*i S=s*i S=s*i …… S=s*i i 为：1 to n
•s=s*I
重复做：把I 累乘到S
100-999之间所有的“水仙花数”。“水仙花数”是一 个三位数，其各位数立方和等于该数本身 如153＝1^3＋ 5^3＋ 3^3，所以153是一个水仙花数
程序的循环结构 ---for 循环
vb第5章-循环结构程序设计
【说明】
省略：１
Exit For
语句块
循环变量加步长
① 循环变量：一个数值变量。 ② 初值、终值和步长：数值表达式，常量、变量或运算式。
循环次数 步长
>0I:n初t (值终<值步终长初值值
<0: 初值>终值
步1)长循=环1 时执,行可次省数略
Int
(
132 3
1)
4
For i=2
Print
To 13
Dim p As double
Dim r As single
dim n As Integer
p=6000000000#
r=0.014
n=0
Do While p<7000000000#
Do Until p>=7000000000#
p=p*(1+r)
n=n+1
Loop
Print n;”年后”;”世界人口达”;p
思考：
7
32767
N最大可取到多少？为什么？
第7页，共32页。
[例5-11]求1！+3！+5！+7！+9！的值。
求1-n阶乘的和
[程序]双重循环
result=1 sum=0 For i = 1 To n
result = result * i sum=sum+result Next i
[程序]单重循环
For i = 1 To -2 Step -1
i2 = i2+1 Next
Print i , i2
-3 4
(4)
i2 = 1
For i = 1 To 10
i=i+1
省略：１
Exit For
语句块
循环变量加步长
① 循环变量：一个数值变量。 ② 初值、终值和步长：数值表达式，常量、变量或运算式。
循环次数 步长
>0I:n初t (值终<值步终长初值值
<0: 初值>终值
步1)长循=环1 时执,行可次省数略
Int
(
132 3
1)
4
For i=2
To 13
Dim p As double
Dim r As single
dim n As Integer
p=6000000000#
r=0.014
n=0
Do While p<7000000000#
Do Until p>=7000000000#
p=p*(1+r)
n=n+1
Loop
Print n;”年后”;”世界人口达”;p
思考：
7
32767
N最大可取到多少？为什么？
第7页，共32页。
[例5-11]求1！+3！+5！+7！+9！的值。
求1-n阶乘的和
[程序]双重循环
result=1 sum=0 For i = 1 To n
result = result * i sum=sum+result Next i
[程序]单重循环
For i = 1 To -2 Step -1
i2 = i2+1 Next
Print i , i2
-3 4
(4)
i2 = 1
For i = 1 To 10
i=i+1
VB程序设计——8 循环结构程序设计
【例5-9】编写一个猜数字游戏程序，让计算机产生一个100以内的随机 整数，用户从键盘输入一个数，由计算机判断输入的数是大还是小，并 给出提示，直到输入正确的数为止。 Private Sub Command1_Click() Dim n As Integer, x As Integer Randomize n = Int(Rnd * 100) Do x = Val(InputBox("输入一个100以内的整数")) If x = n Then Form1.Print x;"正确" Exit Do ElseIf x > n Then Form1.Print x; "太大" Else Form1.Print x; "太小" End If Loop End Sub
第五章 循环结构程序设计
5.1 For-Next循环 5.2 While-Wend循环 5.3 Do-Loop循环 5.4 列表框和组合框 5.5 多重循环 5.6 GoTo语句控制循环 5.7 常用算法(1)
5.2 While-Wend循环
格式： While 条件 语句块 Wend 说明 条件：是布尔表达式
内循环：控制列 外循环：控制行
For i = 1 To 9 Print Tab(20); For j = 1 To 9 Print "*"; Next j Print Next i
20 - i
2*i-1
思考：九九乘法表，上三角九九乘法表？下三角九九乘 法表？
九九乘法表
For i = 1 To 9 For j = 1 To 9 Print Tab(13 * (j - 1)); i; "*"; j; "="; i * j; Next j Print Next i
VB控制结构多重循环课件共29页
除
10
❖ 判断一个数n是否为素数?
Int(sqr (n))
For i=2 to n-1
if n mod i=0 then Exit For '被整除
Next i
Exit For 退出当前循环
If i >n-1 then Print n;“是素数”
Else Print n;“是非素数”
End if
11
For i=1 to 6 step 1 Print "＊" ;
Next i
归纳:分隔符“;”——使多个内容一个个紧跟着打印输
出
5
问题3: 打印3行，每行6个“＊”，如何解决？
For i = 1 To 6 Step 1 Print "＊";
Next I Print For i = 1 To 6 Step 1
14
回顾: 计算 s=1+2+3+…+n s=1×2×3×4× … ×n
P分ri析va:te sub Form_Click( )
S=n!
➢D每im一I项%和, S每%次, 累T%加,n之%和都'T是为变每一化项量 n=val(Inputbox(“n=”))
End Sub
9
课堂思考
问题: 判断一个数n是否为素数
❖ 素数是一个大于2且只能被1和本身整除的整数. ❖ 判别一个数n是否为素数的方法:
对于n 从 i=2，3，…，n-1判别n能否被i整除，只要有 一个能整除，n不是素数，否则n是素数。
算法1: 素数——不能被2∽n-1的其中一个整数整除 优化算法1 :素数——不能被2∽n/2的其中一个整数整除 优化算法2 :素数——不能被2∽Sqr(n)的其中一个整数整
10
❖ 判断一个数n是否为素数?
Int(sqr (n))
For i=2 to n-1
if n mod i=0 then Exit For '被整除
Next i
Exit For 退出当前循环
If i >n-1 then Print n;“是素数”
Else Print n;“是非素数”
End if
11
For i=1 to 6 step 1 Print "＊" ;
Next i
归纳:分隔符“;”——使多个内容一个个紧跟着打印输
出
5
问题3: 打印3行，每行6个“＊”，如何解决？
For i = 1 To 6 Step 1 Print "＊";
Next I Print For i = 1 To 6 Step 1
14
回顾: 计算 s=1+2+3+…+n s=1×2×3×4× … ×n
P分ri析va:te sub Form_Click( )
S=n!
➢D每im一I项%和, S每%次, 累T%加,n之%和都'T是为变每一化项量 n=val(Inputbox(“n=”))
End Sub
9
课堂思考
问题: 判断一个数n是否为素数
❖ 素数是一个大于2且只能被1和本身整除的整数. ❖ 判别一个数n是否为素数的方法:
对于n 从 i=2，3，…，n-1判别n能否被i整除，只要有 一个能整除，n不是素数，否则n是素数。
算法1: 素数——不能被2∽n-1的其中一个整数整除 优化算法1 :素数——不能被2∽n/2的其中一个整数整除 优化算法2 :素数——不能被2∽Sqr(n)的其中一个整数整