林卓然VB教程课件循环结构第5章教案
合集下载
计算机VB学习第5章-23页文档资料
End Sub
上一页 下一页
第7页
返回本章首页
练习1：写出下面程序的运行结果
Private Sub Form_Click()
Dim a As Integer, i As Integer, j As Integer
a=0
For i = 1 To 5
For j = -2 To 2
a=a+i+j Next j Print a; Next i Print Print i, j, a End Sub
MsgBox "数据溢出，请重新输入",
vbOKCancel + vbInformation, “数据错误” 上一页
Text1.Text = "" Else
第5页
下一页 返回本章首页
n = CLng(Text1.Text)
k =Int(Sqr(n) ) m = 0 ‘ m是一个标记 ：1—否，0—是 For i=2 To k
循环体 条件 True False
Do While <条件> …… [Exit Do] ……
Loop
循环体 条件 False True
第12页
Do Until <条件>
…
[Exit Do ]
…
上一页
Loop
下一页
返回本章首页
5.3 Do 循环------- 直到型循环
Do … [Exit Do] …
If n Mod k = 0 Then m = 1 Next i
If m = 0 Then Label2.Caption = “是一个素数”
Else Label2.Caption = “不是一个素数”
上一页 下一页
第7页
返回本章首页
练习1：写出下面程序的运行结果
Private Sub Form_Click()
Dim a As Integer, i As Integer, j As Integer
a=0
For i = 1 To 5
For j = -2 To 2
a=a+i+j Next j Print a; Next i Print Print i, j, a End Sub
MsgBox "数据溢出，请重新输入",
vbOKCancel + vbInformation, “数据错误” 上一页
Text1.Text = "" Else
第5页
下一页 返回本章首页
n = CLng(Text1.Text)
k =Int(Sqr(n) ) m = 0 ‘ m是一个标记 ：1—否，0—是 For i=2 To k
循环体 条件 True False
Do While <条件> …… [Exit Do] ……
Loop
循环体 条件 False True
第12页
Do Until <条件>
…
[Exit Do ]
…
上一页
Loop
下一页
返回本章首页
5.3 Do 循环------- 直到型循环
Do … [Exit Do] …
If n Mod k = 0 Then m = 1 Next i
If m = 0 Then Label2.Caption = “是一个素数”
Else Label2.Caption = “不是一个素数”
林卓然VB教程讲义课件循环结构第5章教案
把长式子改为8次加
6
主页
例5.3 求T = 8! = 1×2×3×…×8
采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Show
t=1 For c = 1 To 8
t=t*c Next c Print "T="; t
End Sub
例5.3
T＝40320 语句 t=t*c 称为乘法器。先将t置1(不能置0) 在循环程序中，常用累加和累乘来完成各种计算任务
7
主页
例5.3 T = 8! = 1×2×3×… 8，把结果显示在网页上。
t=1 For c = 1 To 8
t=t*c Next c Print "T="; t
'累乘器初值为１ '累乘器，在原有积的基础上每次乘一个数
程序执行结果是：T＝40320
新乘的数
累乘器 t = t * k
分析
旧值。前n项之积
B. 1 2 3 4 D. 1 1 1 4
11
想一想
主页
思考题
请回答问题
运行下面程序后，循环体执行了______次。 i = 0: n = 1 Do While i < 32 i = (i + 1) * (i + 1) n=n+1 Loop Print n C
A. 2 B. 3
C. 4
D. 5
想一想
Show
Dim pi As Single, c As Integer, s As Integer
pi = 0
s=1
's表示加或减运算
For c = 1 To 10000 Step 2
6
主页
例5.3 求T = 8! = 1×2×3×…×8
采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Show
t=1 For c = 1 To 8
t=t*c Next c Print "T="; t
End Sub
例5.3
T＝40320 语句 t=t*c 称为乘法器。先将t置1(不能置0) 在循环程序中，常用累加和累乘来完成各种计算任务
7
主页
例5.3 T = 8! = 1×2×3×… 8，把结果显示在网页上。
t=1 For c = 1 To 8
t=t*c Next c Print "T="; t
'累乘器初值为１ '累乘器，在原有积的基础上每次乘一个数
程序执行结果是：T＝40320
新乘的数
累乘器 t = t * k
分析
旧值。前n项之积
B. 1 2 3 4 D. 1 1 1 4
11
想一想
主页
思考题
请回答问题
运行下面程序后，循环体执行了______次。 i = 0: n = 1 Do While i < 32 i = (i + 1) * (i + 1) n=n+1 Loop Print n C
A. 2 B. 3
C. 4
D. 5
想一想
Show
Dim pi As Single, c As Integer, s As Integer
pi = 0
s=1
's表示加或减运算
For c = 1 To 10000 Step 2
VB教案(PPT)——第五章
解决此问题的根本方法，引入数组，始终保持输入的数据，一次输入，多次使用。
5.2
1. 静态数组及声明
静态数组及声明
数组不是一种数据类型，而是一组相同类型的变量的集合，数组必须先声明后使用。 两类数组： 静态(定长)数组、动态(可变长)数组
形式： Dim 数组名(下标1[,下标2…]) [As 类型] 声明了数组的名、维数、大小、类型 维数：几个下标为几维数组，最多60维。 下标：[下界 To ] 上界 省略下界为0 ,必须为常数。 每一维大小：上界－下界+1 数组大小： 每一维大小的乘积 例：Dim mark(1 to 100) As Integer
（3×4）个整型变量的空间，如图7-3所示。
• •
说明： （1）可以将二维数组的定义方法推 广至多维数组的定义。 • 例如：Dim D（3，1 To 10，1 To 15） 定义了一个3维数组，大小为 4 × 10 × 15。注 意在增加数组的维数时，数组所占的存储空间 会大幅度增加，所以要慎用多维数组，尤其是 Variant 数组，因为他们需要更大的存储空间。 • （2）在实际使用时，可能需要数组 的上界值和下界值，这可以通过LBound函数和 UBound函数来求得。其格式为：
一维数组
• 7.2.1 一维数组的定义
•
• •
数组应当先定义后使用，数组的定义 又称为数组的声明或说明。
对于固定大小的一维数组，用如下格 式进行定义： 说明符 数组名（下标）[As 类型]
•
•
例如：Dim y（5）As Integer
定义了一个一维数组，该数组的名字 为y，类型为Integer，占据6个（0～5）整型变 量的空间。
•
【例7.8】打印4名同学的英语、数学、
05 第05章 VB程序设计循环结构
（4）X=3、Y=4、Z=5，求表达式X>2 Xor Y<0 Or Z>X+1的值。 执行次序如图所示，最终值为False。
13
05 第05章 VB程序设计循环结构
【例5-2】 设计程ຫໍສະໝຸດ ，要求对文本框的年份判断是否为 闰年，并在标签中显示相应的信息。
闰年的条件是：
能被4整除，但不能被100 整除；或能被400整除。
Dim Flag As Boolean
' Flag作素数标志，False时，表示不是素数
A = Val(Text1.Text)
Flag = True
' 先设A是素数，当A<2或能被i整除时，再置为False
If A < 2 Then
Flag = False
'A<2，不是素数
Else
i=2
Do While i <= A-1
End If
End Sub
8
05 第05章 VB程序设计循环结构
说明：
程序中，也可以不设标志变量，在最后判断i是否超过终值A1，若超过终值则表示直到循环完成，还没遇到一个能被整 除的整数，即它是素数；否则它就不是素数。
当A能被其中一个i整除时，A肯定不是素数，所以没有必要 再测试下一个i，因此使用Exit Do退出循环。
循环结构是根据条件来决定某段代码是否重复执行。 循环结构中一种常用的流程可以表示如图：
条件满足就执行a块程序段 然后再进行条件判别 如果满足条件，则继续执行a块程序段 直到条件不满足，才执行a块后面的程序。
3
05 第05章 VB程序设计循环结构
其中的a程序块段称为循环体。 条件使用逻辑表达式。 循环的另一种形式是把判断条件放在循环体之后。
13
05 第05章 VB程序设计循环结构
【例5-2】 设计程ຫໍສະໝຸດ ，要求对文本框的年份判断是否为 闰年，并在标签中显示相应的信息。
闰年的条件是：
能被4整除，但不能被100 整除；或能被400整除。
Dim Flag As Boolean
' Flag作素数标志，False时，表示不是素数
A = Val(Text1.Text)
Flag = True
' 先设A是素数，当A<2或能被i整除时，再置为False
If A < 2 Then
Flag = False
'A<2，不是素数
Else
i=2
Do While i <= A-1
End If
End Sub
8
05 第05章 VB程序设计循环结构
说明：
程序中，也可以不设标志变量，在最后判断i是否超过终值A1，若超过终值则表示直到循环完成，还没遇到一个能被整 除的整数，即它是素数；否则它就不是素数。
当A能被其中一个i整除时，A肯定不是素数，所以没有必要 再测试下一个i，因此使用Exit Do退出循环。
循环结构是根据条件来决定某段代码是否重复执行。 循环结构中一种常用的流程可以表示如图：
条件满足就执行a块程序段 然后再进行条件判别 如果满足条件，则继续执行a块程序段 直到条件不满足，才执行a块后面的程序。
3
05 第05章 VB程序设计循环结构
其中的a程序块段称为循环体。 条件使用逻辑表达式。 循环的另一种形式是把判断条件放在循环体之后。
新VB课件第5章 循环结构
dim num as integer sum = 0 For num = 1 To 10 sum = sum + num Next num
累加
第五章
循环结构程序设计
5.1.2 循环结构
循环结构 循环（Loop）又称为重复（Repetition），是指在一定条件下重 复执行一组指定的语句。被重复执行的一组语句称为循环体。
10
判断
10不是素数
第五章
循环结构程序设计
5.2.2 Do循环语句
2.后测型Do…Loop
Do…Loop While循环语句
语法格式 Do 循环体 [Exit Do] Loop [While 条件表达式]
Do前面的语句
执行循环体
计算条件表达式的值 True
条件为真？ False Loop后面的语句
第五章
循环结构程序设计
5.2.2 Do循环语句
2.后测型Do…Loop
【例5.7】设计要求 编写程序，求1+2+3+…+10的累加和，使用Do…Loop Until循 环语句实现。
累加
sum = 0 num = 1 Do sum = sum + num num = num + 1 Loop Until num > 10
循环结构程序设计
第五章
5.2.2 Do循环语句
2.后测型Do…Loop
【例5.7】设计要求 编写程序，求1+2+3+…+10的累加和，使用Do…Loop While循 环语句实现。
累加
sum = 0 num = 1 Do sum = sum + num num = num + 1 Loop While num <= 10
累加
第五章
循环结构程序设计
5.1.2 循环结构
循环结构 循环（Loop）又称为重复（Repetition），是指在一定条件下重 复执行一组指定的语句。被重复执行的一组语句称为循环体。
10
判断
10不是素数
第五章
循环结构程序设计
5.2.2 Do循环语句
2.后测型Do…Loop
Do…Loop While循环语句
语法格式 Do 循环体 [Exit Do] Loop [While 条件表达式]
Do前面的语句
执行循环体
计算条件表达式的值 True
条件为真？ False Loop后面的语句
第五章
循环结构程序设计
5.2.2 Do循环语句
2.后测型Do…Loop
【例5.7】设计要求 编写程序，求1+2+3+…+10的累加和，使用Do…Loop Until循 环语句实现。
累加
sum = 0 num = 1 Do sum = sum + num num = num + 1 Loop Until num > 10
循环结构程序设计
第五章
5.2.2 Do循环语句
2.后测型Do…Loop
【例5.7】设计要求 编写程序，求1+2+3+…+10的累加和，使用Do…Loop While循 环语句实现。
累加
sum = 0 num = 1 Do sum = sum + num num = num + 1 Loop While num <= 10
VB第五章理论课件
这个程序的执行过程是：
S=0 For i=1 to 8 step 3 S=s+3 Next i Print s
第三次循环后：
S=0
i=1
判断i>8?
否
10>8?
是
S=9 i=10 运行结果：9
S=s+3 i=i+3
Print s
S=0 For i=1 to 8 step 3 S=s+3 Next i Print s
Print ―************‖
Print ―************‖ End Sub
循环结构基本概念
循环结构： 指在程序设计中，将一些重复执行的程序块放入一 定的语句中，使计算机自动地重复执行这些程序块。 特点：简化程序、节约内存、提高效率。 VB 提供了三种不同风格的循环语句 ：
1、 For …Next 循环(指定循环次数，使用计数器重复运行语句。) 2、While……Wend 循环 3 、 Do …… Loop循环
具体执行过程为： 判断次数 1 2 3
循环变量i的值
进行判断 i < 10 i < 10 i < 10
执行 循环体 循环体 循环体
1 3 5
4 5
6
7 9
11
i < 10 i < 10
i > 10
循环体 循环体
Next后面的语句
在第6次进行判断时，循环变量i的值为11，超过
了终值10，所以结束循环，执行Next后面的语句。
Next I (循环次数4)
2.For…Next语句 执行过程 循环变量=初值 Y
循环变量是否超过终值
N
执行循环体
vb第5章循环结构程序设计
输入m，n
大数放m,小数放n 除数d=1
当d<=n 如果m、n都能 被d整除， 则max ← d d=d+1 输出max
求两个正整数的最大公约数。
分析：求最大公约数可以用
［例5.4]输入两个正整数，递减法求最 大公约数。 输入m，n
大数放m,小数放n 除数d=n
当d>=1
如果m、n都能被d 整除，则max ← d, 退出循环
输入m，n 大数放m,小数放n 求得m对n的余数r 当r<>0 m←n n ←r 求m对n的余数r 输出n
求两个正整数的最大公约数。
分析：求最大公约数可以用
［例5.4]输入两个正整数，递增法求最 大公约数。 输入m，n
大数放m,小数放n 除数d=1
当d<=n 如果m、n都能 被d整除， 则max ← d d=d+1 输出max
步长为正时，超过—循环变量大于终值使循环结束 步长为负时，超过—循环变量小于终值使循环结束 5、一般在循环体中不对循环变量重新赋值， 否则影响循环的次数控制。
步长为负时
0
1.5
3
初值送循环变量
For I = 3 To 0 Step -1.5 Print I Next Print "After For :"; I For I = 0 To 3 Step -1.5 Print I Next Print "After For :"; I
说明： （l）条件为True ,（循环体语句列）将被重复执行
作业：
例题 5-1、5-4 ～ 5-6 选做5-2、5-3 5.6习题
xt5-1 ～xt5-4 选做xt5-5
VisualBasic程序设计案例教程 第5章 循环结构设计课件
5.2 Do…Loop循环序设计案例
If x = -1 Then Exit Do
End If Sum = Sum + x Text1.Text = Sum Loop MsgBox "累加运算结束" End Sub
程序运行效果如图5.5所示。
程序中用了While...Wend当循环，即当Do While True为真是，程序 一直执行，当以-1作为“终止循环标志”(假设要累加的数不会等于-1) ，当判别到用户输人数为-1时，就会执行ExitDo来结束循环。
pi = pi + s / c
s = -s
'交替改变加、减号
Next c
Print "π="; pi * 4
End Sub
程序运行后在窗体中输入为：=3.141397
5.1For…Next循环语句案例
请读者注意，pi = pi + s / c和s = -s代码其实就是对进行了分解， 请注意理解。 5.1.3 相关知识及注意事项
▪ 5.1.2 应用扩展 我们在前面案例基础之上把For…Next语句引入到相对较复杂的问题
中去，读者在处理这此问题的时候，要抓住问题的本盾，即无论问题有 多复杂，但For…Next语句没有变化。
用级数=，求的近似值，要求取前5 000项来计算 要解答以上问题，首先我们要把复杂问题简单化，即怎样把以上计算 式转化为可理解的，可执行的内容。第二，5000项我们不可能加5千次 ，所应该首先想到用循环来实现。 通过分析我们可以设=pi=，我们求出pi后，然后=pi*4，即为最后所 求。
Print k * k Next k End Sub
5.1For…Next循环语句案例
vb第5章 循环结构程序设计
分析：采用累加的方法，用变量S 来存放累加的和（开始为0），用变量n 来存放“加数”（加到s中的数）。这 里n又称为计数器，从1开始到100为止。 根据以上分析画出流程图如图5－3 所示
窗体界面的设计参见前面章节，这里仅给出
设计步骤如下：
命令按钮的Click事件代码: Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do While n <= 100 s = s + n n= n + 1 Loop Label1.Caption = "1+2+3+...+100=" & s End Sub
略【例5－2】输入一个正整 数，利用“当型”循环判断是否 素数。
分析：所谓“素数”是指除了1和该数本 身，不能被任何整数整除的数。判断一个自 然数n（n>3）是否素数，只要依次用2～n的 开平方作除数去除n,若n不能被其中任何一个 数整除，则n即为素数，如图5－4所示。
设计步骤如下：
窗体界面的设计参见前面章节，这里给出命令按钮
表5-2 常用列表框方法
┌─────┬───────────┐ │方 法
│说 明 │ ├─────┼───────────┤ │AddItem │用来向列表框中添加数据│ ├─────┼───────────┤ │Clear │清除列表中的各项 │ ├─────┼───────────┤ │RemoveItem│用来从列表框中删除数据│ └─────┴───────────┘
（2）编写代码。
窗体界面的设计参见前面章节，这里仅给出
设计步骤如下：
命令按钮的Click事件代码: Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do While n <= 100 s = s + n n= n + 1 Loop Label1.Caption = "1+2+3+...+100=" & s End Sub
略【例5－2】输入一个正整 数，利用“当型”循环判断是否 素数。
分析：所谓“素数”是指除了1和该数本 身，不能被任何整数整除的数。判断一个自 然数n（n>3）是否素数，只要依次用2～n的 开平方作除数去除n,若n不能被其中任何一个 数整除，则n即为素数，如图5－4所示。
设计步骤如下：
窗体界面的设计参见前面章节，这里给出命令按钮
表5-2 常用列表框方法
┌─────┬───────────┐ │方 法
│说 明 │ ├─────┼───────────┤ │AddItem │用来向列表框中添加数据│ ├─────┼───────────┤ │Clear │清除列表中的各项 │ ├─────┼───────────┤ │RemoveItem│用来从列表框中删除数据│ └─────┴───────────┘
（2）编写代码。
VB教程第5章教案
输出数值数据时，前面有一个符号位 正 输出数值数据时，前面有一个符号位(正 号以空格表示)，后面留有一个空格； 号以空格表示 ，后面留有一个空格； 输出字符串时， 输出字符串时，前后不留空格
运行结果： 运行结果：
例5.1
主页
例5.2 Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print "a="; a, "b="; b End Sub 运行结果 例5.2
a└┘└┘└┘└┘ b
主页
5.1.3 格式输出 Format函数（知识点） 函数 知识点）
格式：Format$(数值表达式 [,格式串]) 格式串]) 格式：Format$(数值表达式 [,格式串]) 功能： 功能：根据格式串规定的格式来输出表达式 的值
# 0 . , % $ - 、+ E+、 E+、E数字； 数字；不在前后补零 数字； 数字；在前面或后面补零 小数点 千位位分隔符 百分比符号 美元符号 负、正号 指数符号
输出结果是(1个汉字占2个位置) 输出结果是(1个汉字占2个位置)： (1个汉字占
└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩
主页
例5.3 编写如下的事件过程： 编写如下的事件过程： Private Sub Form_Click() Print: Print FontName = "华文新魏 ‘字体类型为“华文新魏” 华文新魏" 字体类型为 华文新魏” 字体类型为“ 华文新魏 FontSize = 16 ‘字体大小为 字体大小为16 字体大小为 Print " 姓名 Tab(8); "年龄 Tab(16); "职务 姓名"; 年龄"; 职务"; 年龄 职务 Print Tab(24); "单位 Tab(32); "籍贯 单位"; 籍贯" 单位 籍贯 Print Print "张得功 Tab(8); 25; Tab(16); "科长 Tab(24); "劳动科 张得功"; 科长"; 劳动科"; 张得功 科长 劳动科 Tab(32); "北京 北京" 北京 Print "李得胜 Tab(8); 32; Tab(16); "处长 Tab(24); "科研处 李得胜"; 处长"; 科研处"; 李得胜 处长 科研处 Tab(32); "上海 上海" 上海 End Sub 例5.3 运行结果
运行结果： 运行结果：
例5.1
主页
例5.2 Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print "a="; a, "b="; b End Sub 运行结果 例5.2
a└┘└┘└┘└┘ b
主页
5.1.3 格式输出 Format函数（知识点） 函数 知识点）
格式：Format$(数值表达式 [,格式串]) 格式串]) 格式：Format$(数值表达式 [,格式串]) 功能： 功能：根据格式串规定的格式来输出表达式 的值
# 0 . , % $ - 、+ E+、 E+、E数字； 数字；不在前后补零 数字； 数字；在前面或后面补零 小数点 千位位分隔符 百分比符号 美元符号 负、正号 指数符号
输出结果是(1个汉字占2个位置) 输出结果是(1个汉字占2个位置)： (1个汉字占
└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩
主页
例5.3 编写如下的事件过程： 编写如下的事件过程： Private Sub Form_Click() Print: Print FontName = "华文新魏 ‘字体类型为“华文新魏” 华文新魏" 字体类型为 华文新魏” 字体类型为“ 华文新魏 FontSize = 16 ‘字体大小为 字体大小为16 字体大小为 Print " 姓名 Tab(8); "年龄 Tab(16); "职务 姓名"; 年龄"; 职务"; 年龄 职务 Print Tab(24); "单位 Tab(32); "籍贯 单位"; 籍贯" 单位 籍贯 Print Print "张得功 Tab(8); 25; Tab(16); "科长 Tab(24); "劳动科 张得功"; 科长"; 劳动科"; 张得功 科长 劳动科 Tab(32); "北京 北京" 北京 Print "李得胜 Tab(8); 32; Tab(16); "处长 Tab(24); "科研处 李得胜"; 处长"; 科研处"; 李得胜 处长 科研处 Tab(32); "上海 上海" 上海 End Sub 例5.3 运行结果
VB课件chapter5
Ｐ.81习题1
阅读程序，写出执行结果。
(2). Private Sub Cmd1_Click()
Dim ch As String, i As Integer ch = "DEF" For i = 1 To Len(ch) ch = Mid(ch, 2 * i - 1, 1) & Left(ch, Len(ch)) Print ch Next i End Sub
A
e
False
True
Do ... [Exit Do] ... e False True A
Loop While e
上述两当型循环结构的区别：当第一次执行循环语句条件不成立时， 第一种不执行循环体，而第二种要执行一次。 例
B. 直到型循环： Do Until e ... [Exit Do] e True False A
计算e1,e2,e3
V=e1
[Exit Do]
... Next v For i = 1 To 10 Step 2
V超过e2?
True
False
循环体
V=V+e3
Print i;
Next i Print "i="; i
for next 例1
1. Do-Loop循环结构语句 Do-Loop循环结构语句有四种形式：
第五章
选择分支与循环
5.1 分支结构与分支结构语句 5.2 循环结构与循环结构语句 5.3 程序示例
2008
程序的三种基本结构
三种基本结构：顺序结构、分支结构、循环结构
顺序结构 分支结构
True A
A
e
False
B
B
VisualBasic程序设计讲义第5章循环结构程序设计
第5章循环结构程序设计5.1 循环结构程序设计的概念实际的数据处理中，常需要进行一些大量重复的操作如求：1+2+3+……+n1!+2!+3!+…..+n!这些操作都可有用循环结构实现VB中有多种循环结构，最常用的有Do….Loop结构和For….Next结构5.2 Do…Loop语句DO循环的格式⑴无条件循环DO循环体LOOP⑵当循环前测试型DO WHILE <继续循环的条件>循环体LOOP⑶当循环后测试型DO循环体LOOP WHILE <继续循环的条件>⑷直到循环前测试DO UNTIL <终止循环的条件>循环体LOOP⑸直到循环后测试型DO循环体LOOP UNTIL <终止循环的条件>◇另外可以用EXIT DO语句终止循环例(p94-1.vbp)用exit do 退出循环操作Private Sub Command1_Click()Dim Sum As Single, x As SingleSum = 0Dox = Val(InputBox("enter a value"))If x = 0 Then Exit DoSum = Sum + xPrint "sum="; SumLoopEnd Sub[例5-1](P95-1.VBP)计算1+2+3+…..+100可以用当循环来实现。
Private Sub Command1_Click()‘当循环Dim s As Integer, n As Integers = 0: n = 1Do While n <= 100s = s + nn = n + 1LoopLabel2.Caption = "1+2+3+...+100=" & sEnd SubPrivate Sub Command2_Click()‘直到循环Dim s As Integer, n As Integers = 0: n = 1Do Until n > 100s = s + nn = n + 1LoopLabel2.Caption = "1+2+3+...+100=" & s & "(直到循环)"End SubPrivate Sub Form_Load()Label1.Caption = "今有100个数：1、2、3、……、100，试计算其累加和。
VB教程循环结构PPT教案学习
说明： ① 条件表达式可以是一个逻辑表达式，也可 以是一个关系表达式，其值应是逻辑型。 ② Do While/Until和Loop应成对出现。 ③ 循环体中要有控制循环的语句，以避免出 现死循环。 ④ 由于该循环的特点是先判断条件，然后再 决定是否要执行循环体里的语句。所以，这 种循环可以一次也不执行循环体。 ⑤ Exit Do 表示当遇到该语句时，强制退出 循环，执行Loop后的下一条语句
Dim S%, i% S=0 For i=1 to 100 S=S+I If s>400 then Exit for Next i Print " S=",S
第7页/共26页
Dim S%, i% S=0 i=1 Do until s>400
S=S+i i=i+1 Loop Print " S=",S
第20页/共26页
例题：打印九九乘法表 For i = 1 To 9 For j = 1 To i e = j & "×" & i & "=" & i * j Print Tab((j - 1) * 9 + 1); e; Next j Print Next i
第21页/共26页
练习
实验教程：实验5
第11页/共26页
几种循环语句比较
For....to
Next
循环类型
当型循环
Do while/ until ....
do
....
Loop
Loop While /until ...
当型循环
直到循环
循环控制条 件
循环变量初 值
使循环结束
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
24
主页
采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print Chr(i + 48); Next j Print Next i End Sub Print Chr(i+48)与Print i有所不同
采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s=1 's表示加或减运算 For c = 1 To 10000 Step 2 pi = pi + s / c s = -s '交替改变加、减号 Next c Print "π="; pi * 4 End Sub 程序运行结果是： 例5.4 π＝3.141397 9
例5.7
18
主页
编写的“计算”按钮Click事件过程代码如下： Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val(Text1.Text) : n = Val(Text2.Text) If m <= 0 Or n <= 0 Then MsgBox ("数据错误!") End End If Do p = m Mod n m=n n=p Loop While p <> 0 Text3.Text = m End Sub 若输入的m和n的值为85和6819 ，则运行结果如上图
主页
例5.2 求S = 1 + 2 + 3 + „ 8，把结果显示在窗体上。 s = 0 For k = 1 To 8 s = s + k Next k Print "s= "; s 程序执行结果是：s＝36
'累加器初值为0 '累加器，在原有和的基础上每次加一个数
新加的数
累加器 s = s + k
想一想
s = "ABCDEFGHIJ": c = "" For k = 2 To Len(s) Step 3 a = Mid(s, k) c = c + Left(a, 1) Next k Print c C A. BDF B. CFI C. BEH D.BEI
13
主页
5.1.2 Do…Loop循环语句
7
主页
例5.3 T = 8! = 1×2×3ׄ 8，把结果显示在网页上。
t = 1 For c = 1 To 8 t = t * c Next c Print "T="; t
'累乘器初值为１ '累乘器，在原有积的基础上每次乘一个数
新乘的数
程序执行结果是：T＝40320
累乘器
t=t*k
旧值。前n项之积
分析
k = 1 s ← s + k 0 1 k = 2 s ← s + k k = 3 s ← s + k
旧值。前n项之和
k = 8 s ← s + k
……
1 2 1 + 2
5
3
1 + 2 + „ 7
8 主页
循环结构程序的实现
• 算法：通常采用重复运算来解决问题
累加、累乘等 如用级数 π/4＝1 - 1/3 + 1/5 - 1/7 + ……来求π
例5.9
程序运行结果 1 5 1 6 1 7 2 5 2 6 2 7 3 5 3 6 3 7
注意内、外循环层次要分清，不能交叉
23
主页
例5.10 编一程序，输出下列所示的图形
例5.10
本例可采用两重循环来实现。外循环控制输出7行，内 循环控制每行输出要求的字符数。 在进入内循环之前，使用Print Tab()来对起始输出位置 定位，退出内循环后，使用Print来控制换行。
Dim pi As Single, n As Long Dim t As Single, s As Integer Show pi = 0: s = 1 's表示符号 n = 1 ‘n表示变动值，第1项时n=1,第2项时 n=3,„ t = (1 / 2 + 1 / 3) 't表示累加项。先取第1项的值 Do While t >= 10^(-5) '逐项累加的条件，累加到t<10^(-5)为止 pi = pi + s * t '把当前项进行累加 s = -s '交替改变正、负号 n = n + 2 '变动值n加2 t = 1 / n * (1 / 2 ^ n + 1 / 3 ^ n) '求当前项的绝对值 Loop Print "π ="; pi * 4
分析
c = 1 t ← t * c 1 1 c = 2 t ← t * c c = 3 t ← t * c
c = 8 t ← t * c
……
1 2 1 * 2
8
3
1 * 2 * „ 7
8 主页
例5.4 用π/4＝1 - 1/3 + 1/5 - 1/7 + ……级数 求π的近似值 (取前5000项来进行计算)
计算机具有速度快、精度高的 特点，特别适于进行重复性的 工作，重复次数越多越能显示 它的威力。所以，使用计算机 时，应尽量把问题归纳为简单 而有规则的重复运算和操作， 以充分发挥计算机的特长。
1
主页
第5章 循环结构程序设计
采用循环程序可以解决一些按一定规则重复执行的问 题。例如，统计一个班几十名学生，甚至全校几千名学生的 学期成绩，如求平均分、不及格人数等
22
主页
5.2
多 重 循 环
多重循环是指循环体内含有循环语句的循环
例5.9 多重循环程序示例
Private Sub Form_Load() Show For i = 1 To 3 „外循环 For j = 5 To 7 ‟内循环 Print i, j Next j Next i End Sub
例5.6
程序运行结果： π＝3.141562
17
主页
例5.7 输入两个正整数，求它们的最大公约数
“辗转相除法”算法：求出m/n余数p，若p＝0，n即为
最大公约数；若p非0，则把原来的分母n作为新的分子m，把 余数p作为新的分母n继续求解
设计步骤如下： (1)创建应用程序的用户界面和设置对象属性
3
主页
5.1 循环语句
示例 求S = 1 + 2 + 3 + … + 8
For...Next循环主要是用在知道循环次数的情况下；若事先 不知道循环次数，可以使用当型循环Do...Loop 例5.2 1. For...Next循环语句 (计数控制)
For 循环变量＝初值 To 终值 [Step 步长值] s=0 For k = 1 To 8 s=s+k Next k Print "s="; s 程序运行结果如下： s＝36
主页
思考题
下列程序的运行结果是？
For t = 1 To 3
If t <= 1 Then a = 3 If t <= 2 Then a = 2 If t <= 3 Then a = 1 Print a; Next t D Print t
A. 3 3 3 3 C. 3 2 1 4 B. 1 2 3 4 D. 1 1 1 4
想一想
10
主页
思考题
下列程序的运行结果是？
For t = 1 To 3 If t >= 1 Then a = 3 If t >= 2 Then a = 2 If t >= 3 Then a = 1 Print a; Next t C Print t A. 3 3 3 4 C. 3 2 1 4 B. 1 2 3 4 D. 1 1 1 4
前测型Do…Loop循环
语句格式: Do{While|Until}条件 循环 Loop 说明:Do while…Loop:当条件成立时,执行循环体,当条 件不成立的时候,终止循环. Do Until…Loop:当条件不成立时,执行循环体,直到条 件成立时,终止循环.
14
主页
• 设置循环变量
使每次运算变量值有所不同
求S=1+2+3+…+8 s=0 For k = 1 To 8 s=s+k Next k Print "s="; s 把长式子改为8次加
6
• 控制循环
计数控制或条件控制
主页
例5.3 求T = 8! = 1×2×3×…×8
采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Show t=1 For c = 1 To 8 t=t*c Next c Print "T="; t End Sub 程序运行结果是：例5.3 T＝40320 语句 t=t*c 称为乘法器。先将t置1(不能置0)。 在循环程序中，常用累加和累乘来完成各种计算任务
主页
后测型Do…Loop循环
语句格式: Do 循环 Loop {While|Until}条件 说明:先执行循环体，然后判断条件，根 据条件决定是否继续执行循环体。 本语句执行循环的次数最少为1，而前测 型语句的最少次数为0
16
主页
主页
采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print Chr(i + 48); Next j Print Next i End Sub Print Chr(i+48)与Print i有所不同
采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s=1 's表示加或减运算 For c = 1 To 10000 Step 2 pi = pi + s / c s = -s '交替改变加、减号 Next c Print "π="; pi * 4 End Sub 程序运行结果是： 例5.4 π＝3.141397 9
例5.7
18
主页
编写的“计算”按钮Click事件过程代码如下： Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val(Text1.Text) : n = Val(Text2.Text) If m <= 0 Or n <= 0 Then MsgBox ("数据错误!") End End If Do p = m Mod n m=n n=p Loop While p <> 0 Text3.Text = m End Sub 若输入的m和n的值为85和6819 ，则运行结果如上图
主页
例5.2 求S = 1 + 2 + 3 + „ 8，把结果显示在窗体上。 s = 0 For k = 1 To 8 s = s + k Next k Print "s= "; s 程序执行结果是：s＝36
'累加器初值为0 '累加器，在原有和的基础上每次加一个数
新加的数
累加器 s = s + k
想一想
s = "ABCDEFGHIJ": c = "" For k = 2 To Len(s) Step 3 a = Mid(s, k) c = c + Left(a, 1) Next k Print c C A. BDF B. CFI C. BEH D.BEI
13
主页
5.1.2 Do…Loop循环语句
7
主页
例5.3 T = 8! = 1×2×3ׄ 8，把结果显示在网页上。
t = 1 For c = 1 To 8 t = t * c Next c Print "T="; t
'累乘器初值为１ '累乘器，在原有积的基础上每次乘一个数
新乘的数
程序执行结果是：T＝40320
累乘器
t=t*k
旧值。前n项之积
分析
k = 1 s ← s + k 0 1 k = 2 s ← s + k k = 3 s ← s + k
旧值。前n项之和
k = 8 s ← s + k
……
1 2 1 + 2
5
3
1 + 2 + „ 7
8 主页
循环结构程序的实现
• 算法：通常采用重复运算来解决问题
累加、累乘等 如用级数 π/4＝1 - 1/3 + 1/5 - 1/7 + ……来求π
例5.9
程序运行结果 1 5 1 6 1 7 2 5 2 6 2 7 3 5 3 6 3 7
注意内、外循环层次要分清，不能交叉
23
主页
例5.10 编一程序，输出下列所示的图形
例5.10
本例可采用两重循环来实现。外循环控制输出7行，内 循环控制每行输出要求的字符数。 在进入内循环之前，使用Print Tab()来对起始输出位置 定位，退出内循环后，使用Print来控制换行。
Dim pi As Single, n As Long Dim t As Single, s As Integer Show pi = 0: s = 1 's表示符号 n = 1 ‘n表示变动值，第1项时n=1,第2项时 n=3,„ t = (1 / 2 + 1 / 3) 't表示累加项。先取第1项的值 Do While t >= 10^(-5) '逐项累加的条件，累加到t<10^(-5)为止 pi = pi + s * t '把当前项进行累加 s = -s '交替改变正、负号 n = n + 2 '变动值n加2 t = 1 / n * (1 / 2 ^ n + 1 / 3 ^ n) '求当前项的绝对值 Loop Print "π ="; pi * 4
分析
c = 1 t ← t * c 1 1 c = 2 t ← t * c c = 3 t ← t * c
c = 8 t ← t * c
……
1 2 1 * 2
8
3
1 * 2 * „ 7
8 主页
例5.4 用π/4＝1 - 1/3 + 1/5 - 1/7 + ……级数 求π的近似值 (取前5000项来进行计算)
计算机具有速度快、精度高的 特点，特别适于进行重复性的 工作，重复次数越多越能显示 它的威力。所以，使用计算机 时，应尽量把问题归纳为简单 而有规则的重复运算和操作， 以充分发挥计算机的特长。
1
主页
第5章 循环结构程序设计
采用循环程序可以解决一些按一定规则重复执行的问 题。例如，统计一个班几十名学生，甚至全校几千名学生的 学期成绩，如求平均分、不及格人数等
22
主页
5.2
多 重 循 环
多重循环是指循环体内含有循环语句的循环
例5.9 多重循环程序示例
Private Sub Form_Load() Show For i = 1 To 3 „外循环 For j = 5 To 7 ‟内循环 Print i, j Next j Next i End Sub
例5.6
程序运行结果： π＝3.141562
17
主页
例5.7 输入两个正整数，求它们的最大公约数
“辗转相除法”算法：求出m/n余数p，若p＝0，n即为
最大公约数；若p非0，则把原来的分母n作为新的分子m，把 余数p作为新的分母n继续求解
设计步骤如下： (1)创建应用程序的用户界面和设置对象属性
3
主页
5.1 循环语句
示例 求S = 1 + 2 + 3 + … + 8
For...Next循环主要是用在知道循环次数的情况下；若事先 不知道循环次数，可以使用当型循环Do...Loop 例5.2 1. For...Next循环语句 (计数控制)
For 循环变量＝初值 To 终值 [Step 步长值] s=0 For k = 1 To 8 s=s+k Next k Print "s="; s 程序运行结果如下： s＝36
主页
思考题
下列程序的运行结果是？
For t = 1 To 3
If t <= 1 Then a = 3 If t <= 2 Then a = 2 If t <= 3 Then a = 1 Print a; Next t D Print t
A. 3 3 3 3 C. 3 2 1 4 B. 1 2 3 4 D. 1 1 1 4
想一想
10
主页
思考题
下列程序的运行结果是？
For t = 1 To 3 If t >= 1 Then a = 3 If t >= 2 Then a = 2 If t >= 3 Then a = 1 Print a; Next t C Print t A. 3 3 3 4 C. 3 2 1 4 B. 1 2 3 4 D. 1 1 1 4
前测型Do…Loop循环
语句格式: Do{While|Until}条件 循环 Loop 说明:Do while…Loop:当条件成立时,执行循环体,当条 件不成立的时候,终止循环. Do Until…Loop:当条件不成立时,执行循环体,直到条 件成立时,终止循环.
14
主页
• 设置循环变量
使每次运算变量值有所不同
求S=1+2+3+…+8 s=0 For k = 1 To 8 s=s+k Next k Print "s="; s 把长式子改为8次加
6
• 控制循环
计数控制或条件控制
主页
例5.3 求T = 8! = 1×2×3×…×8
采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Show t=1 For c = 1 To 8 t=t*c Next c Print "T="; t End Sub 程序运行结果是：例5.3 T＝40320 语句 t=t*c 称为乘法器。先将t置1(不能置0)。 在循环程序中，常用累加和累乘来完成各种计算任务
主页
后测型Do…Loop循环
语句格式: Do 循环 Loop {While|Until}条件 说明:先执行循环体，然后判断条件，根 据条件决定是否继续执行循环体。 本语句执行循环的次数最少为1，而前测 型语句的最少次数为0
16
主页