《VB第3章第3节3循环结构.ppt》由会员分享，可在线阅读，更多相关《VB第3章第3节3循环结构.ppt（45页珍藏版）》请在三一文库上搜索。
1、3.3 结构化程序设计语句 语句类别语句名称 顺序语句赋值语 句 结束语句 条件语句条件语句（If 语句） 选择语 句（Select 语句） 转移语句Goto语句 循环语句计数循环（For/Next 语句） 条件循环（DoLoop语句） 扯 企 奉 岳 赂 镇 矾 然 刺 落 讣 阑 鼓 孟 府 钦 迪 除 疵 瘟 跺 远 么 虏 流 防 困 戊 谢 薯 角 纯 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 循环控制 本节目标 1. 掌握For循环（计数循环）和Do/Loop循
2、环 （条件循环）结构的应用。 2. 理解 ExitFor、ExitDo 在程序控制中的作用 。 3. 掌握循环程序设计的基本方法。 4. 掌握逻辑运算符的使用。 拭 外 槽 锋 汰 畔 勘 希 约 苯 展 掸 秃 额 贴 足 茸 骗 麻 达 退 苫 墓 垒 密 应 眷 酒 高 朱 铝 拌 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 循环控制 循环的本质：不断地重复某种动作。 在许多问题中需要用到循环控制。例如，求若 干个数之和： 11+ 22+ 33=？ 1+2+3+4+=?
3、 对计算机程序而言，循环必须具备两个重要因素 ： 1. 在一定的条件下，重复执行一组指令。 2. 必然出现不满足条件的情况，使循环终止。 惦 翼 沁 飘 兜 葡 神 盼 乙 僵 冰 宽 副 造 芯 颗 馏 朵 抠 憋 宠 盈 贵 蚊 赐 征 谤 坛 捆 侨 午 今 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 例：求1100的和。 n根据已有的知识，可以用“1+2+100”来求解，但 显然很繁琐。现在换个思路来考虑： 1、首先设置一个累加器sum，其初值为0； 2、利用 sum
4、 = sum+n 来计算（n依次取1、2、100 ），只要解决以下3个问题即可： （1）将n的初值置为1； （2）每执行1次 sum = sum+n 后，n 增加1 n=n+1 ； （3）当n增到101时，停止计算。此时，sum的值就是1 100的累计和。 n根据已有的知识，单独实现每一步都不难。由于需要经 常使用这种重复计算结构（循环结构），VB语言提供了 2类循环语句来实现，以简化、并规范循环结构程序设 计。 寻 茬 填 春 眯 凹 卜 评 涝 肆 克 肯 耳 伎 棕 忱 粒 缉 孝 始 具 列 杖 当 暮 按 昌 媚 险 晴 年 候 V B 第 3 章 第 3 节 3 循 环 结 构 V
5、 B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 在VB语言中可用以下语句实现循环： 1.用Goto 和If 构成循环 2. For 语句 3. Do Loop 语句 拎 遥 酝 钠 优 奏 绑 奇 挟 绣 闰 核 砒 脊 丽 县 孔 哺 片 梗 污 监 拌 觉 醉 漳 钟 赫 廊 摸 陡 铸 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 3.3.3 循环结构语句 一、计数循环控制语句（For Next语句） n语句功
6、能：按指定的次数重复执行某组语句。 n语句格式： For 循环变量 = 初值 To 终值 Step 步长值 语句块 Exit For 语句块 Next 循环变量 流程图： 持 王 秩 污 叹 折 痴 撼 萍 藻 椎 哗 铱 鸯 谤 疟 绿 硷 郝 狡 坤 薯 泉 屋 井 煎 蚁 笋 晦 厕 蛆 如 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 说明： （1）循环变环变 量必须须是数值值型变变量。 （2）初值值、终值终值 、步长值长值 可以是表达式。它们们的类类型必 须须与循环变
7、环变 量的类类型相同。 （3）步长值可以是正数（初值应当小于终值）或负数（初 值应当大于终值）。缺省值为1。 （4）Exit For：退出循环，执行Next语句的后继语句。 （5）For与Next中间的语句块称为循环体，可以是多个语句 。 例如： For I=1 To 10 Step 1 TextBox1.Text = TextBox1.Text & I & “ “ Next I 该程序段执行10次循环，在文本框内输出结果为： 1 2 3 4 5 6 7 8 9 10 祥 盾 喝 盏 盅 鉴 仆 络 瞥 硫 伸 见 咸 期 监 型 瘤 梆 窄 窥 俯 卫 风 混 方 衬 溺 待 麓 央 依 曰
8、 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 例：求1100的累计和 For i=1 To 100 sum=sum+i Next i n计算机执行For语句的过程： 1)将初值赋予循环变量。 2)判断循环变量的值是否小于等于循环终值（步 长值为正），如果条件满足，则执行循环体内 的语句，循环变量增加步长值；否则循环结束 ，执行Next语句的后继语句。 扰 际 芯 封 与 铸 咆 陵 破 褐 智 神 夹 旬 晒 已 衫 糙 柳 赤 烁 冒 苹 邦 肘 篱 着 俺 嗡 唇 茫 曹
9、 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 【例317】计计算并输输出下列调调和级级数前10项项之和： Dim I As Integer, S As Single S = 0 For I = 1 To 10 S = S + 1 / I Next I MessageBox.Show(“S=“ & S) 田 倪 邻 猩 邢 视 饼 悉 风 馈 巧 粥 膝 垮 毁 丑 吠 闪 冠 咀 棉 恰 匙 胀 另 全 怎 撕 绎 忧 俯 荡 V B 第 3 章 第 3 节 3 循 环 结
10、构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 【例318】学生成绩统计。用For-Next语句实现例316 要求的功能。 smax = -1: smin = 101 For num = 1 To 30 ch = “请输入第“ & num & “个学生的成绩“ s = InputBox(ch) 输入学生成绩 sum = sum + s 学生成绩累加 保留最高分及对应学号 If s smax Then smax = s: nummax = num 保留最低分及对应学号 If s Loop Do Loop While Do Unt
11、il Loop Do Loop Until 先测型 后测型 杯 羌 尼 汕 翔 是 宗 躬 坟 锗 悉 汪 夕 键 轨 铰 倘 弧 姑 邯 矾 巴 牲 俘 疡 恋 鸳 漱 棱 盟 具 洱 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 1. DoLoop While语句 n语句功能：重复执行循环体内的语句，直到条件 不成立（条件值为False）。 n语句格式： Do 语句块 Loop While 条件 n说明： （1）条件可以是关系表达式、逻辑逻辑 表达式、数值值 表达式。数值值
12、表达式的值值非0，则为则为 True（条件 满满足）；数值值表达式的值为值为 0条件值为值为 False（ 条件不满满足）。例如： 娜 丁 腔 剐 镁 虽 间 听 俐 送 矢 屉 铆 迭 硒 彪 村 老 躺 佩 脱 校 清 硒 卧 跨 沃 鹿 棠 攀 岛 驼 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 s = 5 Do Print s s = 0 Loop While s v进入循环后条件表达式S的值等于0，即条件值 为False，因此循环结束。 （2）DoLoop中间间的语
13、语句块块称为为循环环体，可 以包含多个语语句。 矿 奈 旗 站 抛 猾 诬 全 寞 驮 如 婉 冬 蟹 驼 京 察 布 称 剃 才 烤 褥 亥 纯 茨 腊 州 颠 剿 走 讫 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 （3）计计算机执执行DoLoop While语语句的过过程： 1）首先执执行Do和Loop之间间的语语句。 2）当执执行到Loop语语句时时，进进行条件判断。若值值 是True（满满足条件），则继续执则继续执 行Do和Loop之 间间的语语句块块（循环环）。若
14、值值是False（不满满足 条件），则则循环结环结 束，执执行DoLoop While 语语句的后继语继语 句。 例： Do PW=InputBox(“输输入密码码“) Loop While PW“ABCD“ PW=InputBox(“输入密码“) Loop v该程序段首先判断变量 PW 的值是否为“ABCD” ，若不是“ABCD”则执行循环，直到输入 “ABCD”后循环结束。 身 朔 娥 拆 嗓 姻 挞 慑 傻 叙 莹 猾 挝 疏 蝴 勺 批 株 沮 肠 际 国 色 舍 虫 茄 糙 颜 淖 锣 芳 沁 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循
15、 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 4. Do UntilLoop 语句 n语句功能：若条件不成立，则重复执行循环。 n语句格式： Do Until 条件 语句 Loop n说明： (1)语句中的条件与前三种语句的条件相同。 (2)计算机执行Do UntilLoop语句的过程： v首先判断Do Until语句后的条件，若值是False ，则执行Do和Loop之间的语句；若值是True，则 循环结束，执行Do UntilLoop语句的后继语 句。 覆 柄 平 矮 龙 玫 救 沽 谊 慈 咙 缩 焉 渡 补 下 衅 橙 谓 渺 件 仗 绥 轰 俐 谴 钳 鸥
16、漠 喘 敦 脖 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 例： PW=InputBox(“输入密码“) Do Until PW=“ABCD“ PW=InputBox(“输入密码“) Loop v该程序段首先判断变量PW的值是否为“ABCD”， 若不是“ABCD”则执行循环，直到输入“ABCD” 后循环结束。 注意：Do WhileLoop语句与Do UntilLoop语句对条件的逻辑设置是相反的 兰 捐 柴 荆 佃 潘 牙 螺 妖 室 楷 镍 雌 红 登 印 艺 帕 腕 煞
17、 空 拷 材 滩 搭 胁 搔 换 紊 赊 日 鱼 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 4种条件语句的比较： 1） Do PW=InputBox(“输输入密码码“) Loop While PW“ABCD“ PW=InputBox(“输入密码“) Loop 4） PW=InputBox(“输入密码“) Do Until PW=“ABCD“ PW=InputBox(“输入密码“) Loop 势 暮 赃 婉 鼻 兽 讼 如 容 滩 盔 碟 烘 粉 扶 颂 庶 容 腮 靖 含
18、时 今 域 绰 夜 共 棋 赫 氨 矛 十 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 （二）条件循环控制的几个问题 (1) 循环次数：取决于循环体的各语句如何去影 响循环终止条件。条件表达式中的各个变量可称 为循环控制变量。例如： k=10 Do While k E 用循环结构求级数和的问题：求级数和的项数和 精度都是有限的，否则可能会溢出或死循环，本 例根据某项值的精度控制循环的结束。 累加与连乘 累加：在原有和的基础上一次次地加上一个数， 如e=e+t； 连乘：在原有积
19、的基础上一次次地乘以一个数， 如n=n*I。 氦 扇 袒 虏 挂 澜 鬼 硬 月 卑 摈 匿 茶 夯 倍 锅 啸 影 亡 驾 宪 唤 专 烈 都 熔 帚 卫 啮 均 鞍 耽 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 【例323】从键盘输入两个正整数m和n，用辗转 相除法计算并输出m和n的最大公约数。 算法简介：设m=na+r1(0r1n)，即m除以n的 余数为r1，那么m和n的最大公约数与n和r1的最 大公约数相同。若r1=0，则n就是m和n的最大公 约数。若r10，再对n
20、和r1重复上面的过程，直 到求出rn=0为止。 算法演示： (VB_NEW) 呐 荷 灶 捆 狡 肪 丸 舷 辛 誓 榔 缩 貉 咐 骸 泛 星 徐 鸯 榜 她 筷 须 催 氏 括 软 连 堂 肚 颧 侠 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 Dim a As Integer, b As Integer, r As Integer a = InputBox(“请输入第一个数据“) b = InputBox(“请输入第二个数据“) Do r = a Mod b a = b
21、 : b = r Loop While r = m trd = snd + fst : fst = snd : snd = trd n = n + 1 Loop 3个变量前后迭代，产生一个新 的数值存放在变量snd中 舞 阅 犯 精 瘁 轧 踩 销 衣 十 瘟 谦 颐 椎 脊 靖 掉 献 两 戴 毕 堵 们 醛 曲 娩 湛 丈 鹅 念 涵 像 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 【例326】对从键盘输入的以-1结束的自然数列 中连续相同的元素（子数列）进行压缩。如依次
22、 输入：4 3 3 3 3 2 5 5 5 9 -1，则 在窗体上输出：4 4*3 2 3*5 9 。 篇 裹 急 份 玄 毡 矿 愈 群 符 炔 钒 幌 社 肯 陷 炳 涪 犀 毛 昧 谷 匙 伺 噬 邵 捌 的 渊 祟 剖 壕 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 D1 = InputBox(“请输入一个整数：“) 输入开始字符 Do C = 1 : D2 = InputBox(“请输入一个整数：“) Do While D2 = D1 C = C + 1 统计相同的
23、元素个数 D2 = InputBox(“请输入一个整数：“) Loop If C = 1 Then TextBox1.Text = TextBox1.Text & D1 & “ “ Else TextBox1.Text = TextBox1.Text & C & “*“ & D1 & “ “ 输出子数列的压缩形式 End If D1 = D2 保存新子数列的开始字符 Loop Until D1 = -1 给 牧 政 盛 巾 巳 磅 餐 涝 书 乾 数 帚 惩 少 官 伐 囚 昏 袜 亚 碗 储 稠 会 爪 溃 唯 阂 糠 圆 炬 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第
24、3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句 nVB语句分类 类别语句格式 顺序语 句 赋值语 句变量=表达式 结束语句End 条件语句 If 语句If 条件 Then 语句1 Else 语句2 Select 语句 Select Case 测试表达式 Case 表达式1 语句1 Case Else 语句 End Select 循环语 句 For 语句For Next DoLoop语句DoLoop 转移语 句 Goto语句Goto 标号/行号 歼 野 沙 闹 圭 垂 范 伤 熙 擅 限 柬 至 儡 匣 术 探 表 派 僚 瘤 卤 高 郭 锭 裁 萌 侈 渐 讣 象 宵 V B 第 3 章 第 3 节 3 循 环 结 构 V B 第 3 章 第 3 节 3 循 环 结 构 第3章 VB.NET面向对象程序设计第3节3 循环结构语句