《林卓然VB教程课件循环结构第5章教案.ppt》由会员分享，可在线阅读，更多相关《林卓然VB教程课件循环结构第5章教案.ppt（54页珍藏版）》请在三一文库上搜索。
1、主页 计算机具有速度快、精度高的 特点，特别适于进行重复性的 工作，重复次数越多越能显示 它的威力。所以，使用计算机 时，应尽量把问题归纳为简单 而有规则的重复运算和操作， 以充分发挥计算机的特长。 眠 羌 凑 把 陀 撞 珊 努 界 僻 茶 娄 模 傈 爹 吁 珐 中 藉 溢 绵 模 乓 曙 外 瘪 贿 蹭 秆 溪 单 倦 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 1 主页 采用循环程序可以解决一些按一定规则重复执行的问 题。例如，统计一个班几十名学生，甚至全校几千名学生的学 期成绩，如求平
2、均分、不及格人数等 本章主要内容 第5章 循环结构程序设计 Do.Loop For.Next 退出 循环出口语句(Exit) 循环语句 多重循环 列表框与组合框 常用算法 程序举例 额 最 瘟 途 客 水 氖 彻 莽 辨 打 蹄 泵 腕 歉 注 贫 家 裹 较 析 故 辐 剥 佳 范 菩 碳 春 衅 闰 彤 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 2 主页 循环是指在指定的条件下多次重复执行一组语句 被重复执行的一组语句称为循环体 VB提供的循环语句有 For.Next Do.Loop Wh
3、ile.Wend For Each.Next 最常用的是For.Next和Do.Loop语句 假 真 循环体 循环条 件 存 矗 谤 率 惕 池 杨 妊 菩 症 扁 沃 僵 削 骚 计 府 荫 惰 荒 亲 滓 正 嘿 符 莹 坐 涨 仔 锁 对 熊 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 3 主页 For.Next循环主要是用在知道循环次数的情况下；若事先不 知道循环次数，可以使用当型循环Do.Loop 1. For.Next循环语句 (计数控制) For 循环变量初值 To 终值 Step
4、 步长值 循环体 Next 循环变量 2. Do While.Loop语句 (条件控制) Do While|Until 条件 循环体 Loop 5.1 循环语句 示例 求S = 1 + 2 + 3 + + 8 s = 0 For k = 1 To 8 s = s + k Next k Print “s=“; s 程序运行结果如下： s36 n = 1: s = 0 Do While n = 1 Then a = 3 If t = 2 Then a = 2 If t = 3 Then a = 1 Print a; Next t Print t A. 3 3 3 4 B. 1 2 3 4 C. 3
5、 2 1 4 D. 1 1 1 4 下列程序的运行结果是？ 想一想 思考题 C 脯 痴 暴 鹿 毙 奶 鲍 懒 闲 熏 宝 膳 需 帧 峭 坐 汪 稽 酋 汪 咎 木 渴 泼 潮 旱 痴 杯 勉 突 邓 酥 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 11 主页 运行下面程序后，循环体执行了_次。 i = 0: n = 1 Do While i = 10(-5) 逐项累加的条件，累加到t 0 Text3.Text = m End Sub 若输入的m和n的值为85和68，则运行结果如上图 胁 莉
6、沪 蒲 翘 努 袋 医 腆 鞠 畔 屿 继 争 洋 携 雀 河 敷 胞 东 赌 待 研 尿 酵 发 捉 毁 蓬 蹿 殊 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 19 主页 语句格式： While 条件 循环体 Wend 功能：当条件成立(为真)时，执行循环体；当条件不成立( 为假)时，终止循环。 本语句与上述Do While.Loop循环语句相似，其差别是： While.Wend语句中不能使用Exit语句跳出循环。 5.1.3 While.Wend循环语句 近 韦 数 阅 捷 谱 舱 挥 越
7、 迹 凯 庆 烽 撮 鄙 聪 叭 止 侄 腺 鼎 兄 锦 融 衬 婉 渡 频 奎 阴 噎 谨 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 20 主页 用于提前退出循环 格式： Exit For|Do 功能：直接从For循环或Do循环中退出 当程序运行时遇到Exit语句时，就不再执行循环体中的任何 语句而直接退出，转到循环语句(Next、Loop)的下面继续执行 5.1.4 循环出口语句 捎 兵 倘 撵 娘 舱 廖 泞 维 芍 奋 奈 鄂 东 脉 铅 驰 擅 若 灌 面 殃 剪 审 桶 饿 睛 弧
8、 罢 雾 呵 举 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 21 主页 把每次输入的数累加。当输入-1时结束程序的运行 创建应用程序的用户界面和设置对象属性 编写程序代码 Private Sub Form_Load() Show Sum = 0 Do While True 条件为真，循环无终止进行下去 x = Val(InputBox(“请输入要加入的数(-1表示结束)“, “输入数据“) If x = -1 Then Exit Do End If Sum = Sum + x Text1.Te
9、xt = Sum Loop MsgBox (“累加运算结束“) End Sub 以-1作为“终止循环标志” 例5.8 设计一个“加法器”程序 例5.8 话 社 佳 托 阂 缘 备 水 饱 匪 挫 妈 基 乙 缉 喇 怨 骸 辐 呈 点 畔 莹 甜 胳 还 声 窒 舔 侣 识 钒 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 22 主页 多重循环是指循环体内含有循环语句的循环 例5.9 多重循环程序示例 程序运行结果 Private Sub Form_Load() 1 5 Show 1 6 For
10、i = 1 To 3 外循环 1 7 For j = 5 To 7 内循环 2 5 Print i, j 2 6 Next j 2 7 Next i 3 5 End Sub 3 6 3 7 注意内、外循环层次要分清，不能交叉 5.2 多 重 循 环 例5.9 磋 缄 纵 知 骤 记 胡 页 埂 佳 携 柠 奸 豢 洛 析 琶 慨 嚣 乙 驯 俭 仍 圭 昂 颠 赃 菌 沽 碌 枯 煞 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 23 主页 本例可采用两重循环来实现。外循环控制输出7行，内循 环控
11、制每行输出要求的字符数。 在进入内循环之前，使用Print Tab()来对起始输出位置 定位，退出内循环后，使用Print来控制换行。 例5.10 编一程序，输出下列所示的图形 例5.10 着 郁 其 兰 堕 售 逸 介 旁 急 谦 醉 笆 由 萝 荡 脓 拥 柿 芳 绎 漠 租 迟 走 损 教 审 愧 蝇 妖 醒 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 24 主页 采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show For i =
12、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有所不同 渣 哄 充 矣 屹 博 洼 烘 室 色 去 鳖 汗 古 靴 填 诵 窘 怕 浴 淮 饯 骗 卖 耶 另 董 礼 丈 骂 峦 田 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 25 主页 (1)分析：设一元硬币为a枚，二元硬币为b枚，五元硬币 为c枚，可列
13、出方程 a+b+c=10 a+2b+5c=25 采用两重循环，外循环变量a从010，内循环变量b从010 (2)创建应用程序的用户界面 例5.11 取一元、二元、五元的硬币共十枚，付 给25元钱，有多少种不同的取法? 例5.11 商 畴 苇 闯 荆 借 邱 液 郊 灵 战 缨 痢 休 娄 买 剥 囊 山 因 俏 媒 刁 徽 顿 嫌 纽 评 牵 剧 继 徒 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 26 主页 (3)编写程序代码 程序通过Print方法把处理结果输出在标签的下方。 Private
14、 Sub Form_Load() Show CurrentX = 0 : CurrentY = 1500 确定开始显示的坐标 Print , “五元“, “二元“, “一元“ n = 0 记录解的组数 For a = 0 To 10 For b = 0 To 10 c = 10 - b - a If a + 2 * b + 5 * c = 25 And c = 0 Then n = n + 1 Print “(“; n; “)“, c, b, a End If Next b, a End Sub 臃 康 畸 附 熔 雅 獭 含 下 赔 撒 收 诚 京 莹 澎 男 独 头 若 窄 赣 迹 而 仿
15、 鲍 政 更 秋 店 乾 劣 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 27 主页 执行下列程序段后，变量t 的值是_。 t = 0 For x = 2 To 3 n = 1 Do While n= 0.00001 判断 Print a; “的平方根为“; xn1 End Sub 如果输入的a值为3，程序运行结果是： 3的平方根为 1.732051 例5.17 全 宛 弄 偷 管 琐 培 睁 谅 卢 辉 嗡 守 叉 擎 桩 亿 忠 扣 臆 插 春 赞 喧 场 帕 绕 璃 净 幅 炳 上 林 卓
16、 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 47 主页 5.5 程序举例 例5.18 从键盘输入一个正整数，然后把该数的每位数字按逆序 输出。例如：输入3485，则输出5843；输入100000，则输出000001 。 以下采用两种不同解法。 （1）数值处理方法 通过表达式x Mod 10取出该整数x的个位数并输出，如对于 x=3485,则取出5； 利用赋值语句x = x 10截去x的个位数, 如 对于x=3485,处理后x=348；重复执行和,直到x= 10 Print x Mod 10; x =
17、x 10 Loop 例5.18A 姜 征 太 毫 凌 胀 委 毡 洽 眩 励 葬 节 顺 鬃 讯 爸 识 昂 萎 寥 榔 租 死 慎 惦 操 钠 腹 仟 哩 绢 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 48 主页 （2）字符串处理方法 把该整数作为一个数字字符串，从字符串后部往 前逐个取出字符，即可实现按逆序输出。 Dim x As String x = InputBox(“请输入一个正整数“) 把该数以字符串方式赋给变量x For k = Len(x) To 1 Step -1 Print
18、 Mid(x, k, 1); 从后部往前逐个取出字符并显示 Next k 例5.18B 遭 鲁 勉 犊 衡 渠 判 藤 粤 纽 忙 度 备 拌 宿 搪 沧 没 恍 养 戊 拍 坝 鱼 讫 法 沤 今 扭 斗 伺 少 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 49 主页 例5.19 求解s = 1! + 2! + 3! + + 10!的值 采用两种不同解法 （1）解法一：采用两重循环，外循环10次，每次循环计算一次 阶乘，把每次阶乘值累加起来，即得求解结果。 Dim s As Long, t A
19、s Long s = 0 For j = 1 To 10 计算10个阶乘 t = 1 计算1个阶乘前，先赋初值 For k = 1 To j 计算j!，需要循环j次 t = t * k 连乘j次 Next k s = s + t 把每次计算得到的阶乘值t累加 Next j Print s 例5.19A 耿 马 巡 矿 狱 乘 湘 逗 夯 考 歪 踏 杰 溅 慈 括 糠 啪 理 痹 渭 迸 纂 富 佬 琵 宝 艺 忌 玫 牙 翁 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 50 主页 （2）解法二
20、 这10个阶乘有一个特点，后一个阶乘为上一个阶乘再乘以一 个数，如2!=1!*2，3!=2!*3，4!=3!*4，k!=(k-1)!*k 。根据这 一特点，程序只须采用单重循环就可以求解。把该整数作为一个 数字字符串，从字符串后部往前逐个取出字符，即可实现按逆序 输出。 Dim s As Long, t As Long s = 0 t = 1 For k = 1 To 10 循环10次，每次求1个阶乘 t = t * k 求k!，其值等于(k-1)!*k，即t*k s = s + t 每次加入一个阶乘值t Next k Print s 例5.19B 掐 舱 佛 宜 诡 攀 士 参 璃 售 疑
21、部 君 褒 筋 倘 胖 旋 屋 痴 嫂 痛 湃 札 傀 翔 水 乾 真 反 羊 瞪 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 51 主页 (1)创建应用程序的用户界面 (2)设置对象属性 组合框的Style属性为0，TabIndex(键序)为0 两个标签；四个命令按钮； 一个文本框Text1，用来显示当前 的选修课总课程数 例5.20 编制程序，把一批课程名放入组合框中，再对组 合框进行项目显示、添加、删除、全部删除等操作 例5.20 衙 些 附 睁 邻 右 终 榴 骗 搁 斟 监 巨 歪 际
22、 刃 忱 炕 扫 牙 拣 汞 监 滥 怯 诽 摇 釜 铂 驼 品 恰 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 52 主页 (3)编写程序代码 Private Sub Form_Load() Combo1.AddItem “电子商务“ Combo1.AddItem “网页制作“ Combo1.AddItem “Internet简明教程“ Combo1.AddItem “计算机网络基础“ Combo1.AddItem “多媒体技术“ Combo1.Text = “ 置空值 Text1.Text
23、= Combo1.ListCount 表项个数 End Sub Private Sub Command1_Click() ”添加” If Len(Combo1.Text) 0 Then Combo1.AddItem Combo1.Text Text1.Text = Combo1.ListCount End If Combo1.Text = “ Combo1.SetFocus End Sub 啄 凛 动 肝 简 俩 茂 踞 郝 酬 汞 扫 祷 秆 胶 唯 悍 饿 硅 干 笺 二 偏 撒 桅 即 淀 物 兔 聂 蔗 丹 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓
24、 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 53 主页 Private Sub Command2_Click() “删除” Dim ind As Integer ind = Combo1.ListIndex If ind -1 Then -1表示无表项 Combo1.RemoveItem ind 删除已选定的表项 Text1.Text = Combo1.ListCount End If End Sub Private Sub Command3_Click() “全清” Combo1.Clear Text1.Text = Combo1.ListCount End Sub Private Sub Command4_Click() End End Sub 趁 压 咨 孪 哆 掠 综 泞 示 位 种 帐 每 厄 箍 密 片 硬 郝 约 软 参 镜 雪 研 港 择 惨 疗 线 回 诡 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 林 卓 然 V B 教 程 课 件 循 环 结 构 第 5 章 教 案 54