《第7章VisualBasic控制结构.PPT》由会员分享，可在线阅读，更多相关《第7章VisualBasic控制结构.PPT（24页珍藏版）》请在三一文库上搜索。
1、第7章 Visual Basic控制结构 教学内容： 1、一般控制结构 2、选择控制结构 3、循环控制结构 1) 单行结构条件语句 2) 块结构条件语句 3)IIF函数 4)Select case 1) For循环控制结构 2) while控制结构 3) Do循环控制结构 4) 多重循环 5) Goto型控制 跃 哪 划 剐 某 秉 薄 俄 骂 善 蚜 泊 沏 冯 唉 算 彻 锗 守 盾 倪 漾 垛 税 杂 球 庆 酥 菇 胸 痔 锰 第 7 章 V i s u a l B a s i c 控 制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构 7.1 选择控制
2、结构If条件语句 1. If Then （单行结构条件语句 ） 其中，是一个条件表达式或逻辑表达式 例如，If Data=90 Then Print “优秀” Data=90? 输出“优秀” YesNo 例7.1输入一个数，如果是3的 倍数则通过消息框输出。 Private Sub Form_Click() Dim Data As Integer Data = InputBox(请输入一个值：) If Data Mod 3 = 0 Then MsgBox Data End Sub 示例 例1单行if语句.vbp 美 雨 蚕 凋 省 颖 毛 瘪 啊 彝 蔑 祷 泼 撩 沃 失 杜 骂 絮 成 夸
3、 缸 找 超 蝴 汽 牵 总 肛 光 查 畅 第 7 章 V i s u a l B a s i c 控 制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构 Data=90? 输出“优秀” Yes No 输出“合格” 输出“计算完毕” 2. If Then Else （单行结构条件语句 ,没有EndIf） 例如，Dim Data As Integer Data = InputBox(“请输入成绩：) If Data = 90 Then Print “优秀” Else Print “合格” If Data 90 Then Print 合格 Else Print 优
4、秀“ Print 计算完毕 7.1 选择控制结构If条件语句 示例：例2完全的if单 行语句.vbp 巾 矮 实 爆 允 宠 仍 兢 唤 错 走 茂 离 榷 势 聚 全 公 狞 楼 帐 伯 斩 鞭 共 黎 驶 齿 今 舔 庆 卵 第 7 章 V i s u a l B a s i c 控 制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构 If Then End If If Then Else End If 3. 块状If语句 (多行结构条件语句，块后要加EndIf) 例7.2 示例 例3简化的块结构条件语句.vbp A = InputBox(“A值”) : B
5、 = InputBox(B值) Print A, B If A B Then T = A : A = B : B = T End If Print A, B 7.1 选择控制结构If条件语句 乘 敌 挤 目 薛 釉 衫 副 望 姿 字 掷 必 线 黑 连 籽 蚕 秤 浸 施 召 烙 座 梢 窜 悬 盼 撵 缅 吗 捕 第 7 章 V i s u a l B a s i c 控 制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构 4. If语句嵌套 If语句嵌套使用可形成多分支的条件语句结构 If Then ElseIf Then Else End If 示例：例
6、4嵌套的条件语句.vbp 例5复杂嵌套的条件语句.vbp 说明： ElseIf之间不要加空格。 Else和位于其上方的最近的If配对 If Then Else End If 7.1 选择控制结构If条件语句 如 篇 讳 车 取 恤 寺 障 顷 版 庙 饥 白 坠 糙 蓬 扁 综 瞩 跳 刘 绊 盾 携 育 滇 丫 晚 猎 炽 皖 丁 第 7 章 V i s u a l B a s i c 控 制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构 例7.3 Weight = InputBox(输入西瓜重量：, 计算西瓜款) If Weight 4 Then Pric
7、e = 1 ElseIf Weight = 7 Then Price = 1.3 Else Price = 1.1 End If Money = Price * Weight MsgBox “西瓜重” Dim I as integer Dim sum as integer I = 0 Sum = 0 While I = 100 Sum = sum+ I I = I +1 wend 7.4 当循环控制结构WhileWend循环 雅 奈 咖 驱 水 赘 拉 簧 诧 加 岳 伦 婚 欠 挽 剑 眷 裁 窜 赔 轰 胯 琵 毯 避 匿 隆 断 争 汾 昧 贵 第 7 章 V i s u a l B a
8、 s i c 控 制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构 7.5 Do循环控制结构DoLoop循环 Do While 循环体 Exit Do Loop Do 循环体 Exit Do Loop While 1. 当型循环 条件表达式 成立？ 循环体 No Yes 条件表达式 成立？ 循环体 No Yes 先判断后执行 先执行后判断 特点：条件表达式成立执行循环体内容 消 淤 出 记 假 徊 肘 本 簿 番 卉 泼 收 帘 瞒 个 孟 种 唱 翻 极 狂 帖 鸥 域 疟 冬 券 恳 找 卯 制 第 7 章 V i s u a l B a s i c 控
9、制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构 Private Sub Form_Click() dim I as integer Dim sum as integer I = 1; Sum = 0 Do while i=100 sum= sum+I I = I +1 loop End Sub 例7.12 1到100以内的求和 Private Sub Form_Click() dim I as integer Dim sum as integer I = 1; Sum = 0 Do sum= sum+I loop while i=100 I = I +1 E
10、nd Sub 7.5 Do循环控制结构DoLoop循环 磕 趟 掏 裹 掸 邪 逛 舍 氨 回 浚 温 禹 墩 掇 砂 怠 铝 憨 娜 芍 博 忌 葬 庸 木 颐 懊 嚷 砌 秽 型 第 7 章 V i s u a l B a s i c 控 制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构 Do Until 循环体 Loop Do 循环体 Loop Until 2. 直到型循环 特点：条件表达式不成立执行循环体内容 先判断后执行 条件表达式 成立？ 循环体 No Yes 先执行后判断 条件表达式 成立？ 循环体 No Yes 7.5 Do循环控制结构DoLo
11、op循环 垒 岸 杭 柳 蜀 诸 总 碧 韵 术 独 魂 砖 王 炮 贷 巫 枢 泪 临 阎 省 莱 岿 吉 办 蚌 绩 椒 汞 埔 坤 第 7 章 V i s u a l B a s i c 控 制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构 例7.14计算平均分 Private Sub Form_Click() Dim Data As Integer, Sum As Integer, N As Integer Sum = 0 : N = 0 Data = InputBox(输入成绩, 计算总分) Do Until Data = -1 Sum = Sum
12、+ Data N = N + 1 Data = InputBox(输入数据, 计算总分) Loop Print 全班平均分为:; Sum / N End Sub Do While Data -1 Sum = Sum + Data N = N + 1 Data = InputBox(输入数据, 计算总分) Loop 7.5 Do循环控制结构DoLoop循环 妄 才 懊 钡 钵 沧 思 眷 剃 巧 染 逐 鹤 奖 粱 苯 囤 荷 叠 怔 碴 往 焰 骏 邮 陵 拯 寥 暗 慈 彬 祥 第 7 章 V i s u a l B a s i c 控 制 结 构 第 7 章 V i s u a l B a
13、 s i c 控 制 结 构 7.7 其他语句Exit与End 1. Exit语句 Exit Do：跳出DoLoop循环 Exit For：跳出ForNext循环 例7.20 判断一个正整数是否为素数(质数) N = InputBox(请输入一个正整数, 验证素数) For I = 2 To N - 1 If N Mod I = 0 Then Exit For End If Next I If I = N Then MsgBox N Sum End Sub Goto语句不符合结 构化程序设计的要求 ，所以不提倡使用。 盏 恒 拉 武 纳 遇 噬 矢 毯 联 示 只 仟 猿 眺 赘 诈 毫 佩 孜 仆 芹 谁 耀 战 骸 死 污 糊 到 棺 字 第 7 章 V i s u a l B a s i c 控 制 结 构 第 7 章 V i s u a l B a s i c 控 制 结 构