<4D F736F F D20D0C2B1E C B3CCD0F2C9E8BCC6B0B8C0FDB3F6B0E6B8E5>

Transcription

1 第 3 章 程序控制结构 第 3 章程序控制结构 学习导读 主要内容用计算机完成某项工作, 必须为完成的工作设计算法, 然后根据算法编写程序 算法是解决问题的方法和步骤, 是问题求解过程的精确描述 程序的基本控制结构是结构化程序设计的基础 本章将简要介绍算法 辅助控制语句, 详细介绍程序设计三种控制结构 : 顺序结构 选择结构和循环结构 学习目标 初步了解算法 ; 熟练掌握顺序结构程序设计方法中的输入输出语句的使用 ; 熟练掌握选择结构几种形式语句的使用方法 ; 熟练掌握循环结构几种形式语句的使用方法 ; 熟练掌握循环结构嵌套的使用方法 ; 掌握辅助控制语句的使用方法 重点与难点重点 : 选择结构 循环结构和循环结构嵌套应用 难点 : 循环结构嵌套应用 3.1 算法 算法是学习程序设计的基础, 掌握算法可以帮助读者快速理清程序设计的思路, 找出问题的多种解决方法, 从而选择最合适的解决方案 在程序设计中, 构成算法的基本结构有三种 : 顺序结构 选择结构和循环结构 算法及其描述 1. 何为算法做任何事情都需要执行一定的步骤, 算法就是解决某个问题或处理某件事情的方法和步骤 人们使用计算机, 就是利用计算机处理各种不同的问题, 而要解决问题, 必须事先

2 新编 Visual Basic 程序设计案例教程 对各类问题进行分析, 确定采用的方法和步骤 此处所讲的算法是专指用计算机解决某一问题的方法和步骤 算法的特点 (1) 有穷性 算法必须能在有限的时间内完成问题的求解 (2) 确定性 一个算法给出的每个计算步骤, 必须是精确定义, 无二义性 (3) 有效性 算法中的每一个步骤必须有效地执行, 并能得到确定结果 (4) 可行性 设计的算法执行后必须有一个或多个输出结果, 否则是无意义的 不可行的 3. 算法设计的基本方法算法设计的基本方法有列举法 归纳法 递推法 递归法 减半递推技术和回溯法 4. 算法复杂度 (1) 算法的时间复杂度 : 执行算法所需要的计算工作量 ( 算法执行的基本运算次数 ) (2) 算法的空间复杂度 : 执行算法所需要的内存空间 ( 算法程序所占空间 输入初始数据所占空间和算法执行过程中所需额外空间 ) 5. 算法的描述方法 (1) 自然语言 : 日常使用的语言描述方法和步骤 通俗易懂, 但比较烦琐 冗长, 并且对程序流向等描述不明了 不直观 (2) 传统流程图 : 通过图形描述, 具有逻辑清楚 直观形象 易于理解等特点 传统流程图的基本流程图符号及说明如表 3-1 所示 表 3-1 流程图符号及说明图形符号名称说明 起止框 算法流程的开始和结束 处理框完成某种操作 ( 初始化或运算赋值等 ) 判断框输入 / 输出框流程线连接点 判断选择, 根据条件满足与否选择不同路径数据的输入 / 输出操作程序执行的流向流程分支的连接 (3)N-S 结构化流程图 : 将传统流程图中的流程线去掉, 把全部算法写在一个矩形框内, 有利于程序设计的结构化 注意 : 当程序算法比较烦琐时, 一般采用 N-S 结构化流程图, 但对初学者和编写不复杂较小的程序时, 建议使用传统流程图来描述算法 程序的三种控制结构 在程序设计中, 构成算法的基本结构有三种 : 顺序结构 选择结构和循环结构 合理

3 采用结构化程序设计方法, 使程序结构清晰 易读性强, 提高了程序设计的质量和效率 1. 顺序结构顺序结构是最简单, 也是最基本的程序结构, 其按语句书写的先后顺序依次执行, 顺序结构中的每一条语句都被执行一次, 而且仅被执行一次 其传统流程图表示与 N-S 结构化流程图表示如图 3-1 所示 图 3-1 顺序结构流程图 2. 选择结构选择结构首先判断给定的条件, 根据判断的结果决定执行哪个分支的语句 双分支和单分支选择结构的传统流程图表示与 N-S 结构化流程图表示如图 3-2 和图 3-3 所示 图 3-2 双分支选择结构流程图 图 3-3 单分支选择结构流程图 3. 循环结构循环结构是按照需要多次重复执行一条或多条语句 循环结构分为当型循环和直到型 37 第3 章程序控制结构

4 新编 Visual Basic 程序设计案例教程 38 循环 (1) 当型循环 : 先判断后执行, 即当条件为 True 时反复执行循环体 ( 一条或多条语句 ), 条件为 False 时, 跳出循环结构, 继续执行循环后面的语句, 流程图如图 3-4 所示 图 3-4 当型循环流程图 (2) 直到型循环 : 先执行后判断, 即先执行循环体 ( 一条或多条语句 ), 再进行条件判断, 直到条件为 False 时, 跳出循环结构, 继续执行循环后面的语句, 流程图如图 3-5 所示 图 3-5 直到型循环流程图 顺序结构 选择结构和循环结构的算法实例流程如图 3-6 图 3-7 和图 3-8 所示 图 3-6 顺序结构图 3-7 选择结构图 3-8 循环结构

5 3.1.3 结构化程序设计方法的原则 结构化程序设计方法的主要原则概括为自顶向下 逐步求精 模块化 (1) 自顶向下 : 程序设计时, 先考虑主体, 后考虑细节 ; 先考虑全局目标, 后考虑具体问题 (2) 逐步求精 : 将复杂问题细化, 细分为逐个小问题依次解决 (3) 模块化 : 将程序要解决的总目标分解为若干个目标, 再进一步分解为具体的小目标, 每个小目标称为一个模块 注意 : 结构化程序设计方法应限制使用 goto 语句, 因为 goto 语句随意转向目标, 使程序流程无规律, 可读性差 但需要退出多层循环时用 goto 语句非常方便 3.2 顺序结构 在程序设计中, 顺序结构的语句主要包括赋值语句 输入 / 输出语句等 VB 程序设计的输入 / 输出可以通过标签控件 文本控件 InputBox 函数 MsgBox 函数以及 Print 方法来实现 赋值语句 赋值语句是将表达式的值赋给变量或对象的属性, 赋值运算符是 = 语句形式如下 : < 变量名 >=< 表达式 > 说明 : (1) 变量名 : 变量或对象属性的名称 (2) 表达式 : 任何类型的表达式 正确的赋值 : a=15 ' 将整数 15 赋给变量 a b%=a*5+10 ' 将表达式的值 85 赋给整型变量 b Form1.Caption=" 系统登录 " ' 设置窗体 Form1 的标题内容 Label1.BackColor=RGB(255,0,0) ' 改变标签 Label1 的背景颜色 Text1.Text=" 梦桐 " ' 在文本框 Text1 中显示名字 Name=Text1.Text ' 将文本框的 Text 文本属性值赋给变量 Name n%=6.8 ' 强制类型转换, 将 7 赋给整型变量 n x%="168" ' 类型转换, 将数值型 168 赋给整型变量 x x=8 : y=8 : z=8 ' 将同一个值 8 赋给不同的变量 x y 和 z m%=true : n%=false ' 自动转换,m 的值为 -1,n 的值为 0 Dim d as Boolean,e as Boolean 'd 和 e 两个变量的值为默认值 False d=168 : e=0 'd 的值为 True,e 的值为 False str$=true 'str 的值为 "True" 39 第3 章程序控制结构

6 新编 Visual Basic 程序设计案例教程 str$=168.9 'str 的值为 "168.9" str$=#3/9/2013# 'str 的值为 " " Dim w as Boolean : u%=8 : w=6>u 'w 的值为 False 40 错误的赋值 : 10=abs(a)+b '= 左边是常量 a+b=100 '= 左边是表达式 vbblack=color '= 左边是常量 x%="180 电信 " ' 表达式中有非数字字符 y%="" ' 表达式中有空字符串 Dim x%,y%,z%( 正确 ) 'x y 和 z 三个变量的值为默认值 0 x=y=z=8 ' 不能实现将 8 赋给 x y 和 z, 它们均为 0 例 3-1 交换两个变量的值 Private Sub Form1_Click() Dim x%, y%, t% x = 180 y = 138 Print " 交换前 :x = " & x & ", y = " &y t = x x = y y = t Print " 交换后 :x = " & x & ", y = " &y 运行结果 : 交换前 :x = 180, y =138 交换后 :x = 138, y =180 分析 : (1) 在本例代码中实现了两个变量值交换的典型算法, 其过程必须引入新的中间变量 t (2) 顺序结构程序的执行从第 1 条语句开始, 由上到下按顺序 逐条执行 思考 : (1) t = x : x = y : y = t 三条语句是否可以用 x = y : y = x 两条语句替换? (2) x = x + y : y = x y : x = x y 三条语句组合有何作用? 例 3-2 已知直角三角形的两条直角边长分别为 3 和 4, 计算斜边的长度 Private Sub Form1_Click() Dim x!, y!, z! x = 3 y = 4 z = Sqr(x * x + y * y) Print " 直角三角形斜边长为 :" & z 例 3-3 分析程序代码, 并运行输出结果 Private Sub Form1_Click()

7 Dim x as Double x = x = x * x = Fix(x) x = x / 100 Print "x = " & x 'x = , 扩大百倍再加 0.5 判断第 3 位小数进位否 'x = 12346, 取整舍去第 3 位小数及后面的小数 'x = , 缩小百倍保留两位小数 运行结果 :x = 分析 : (1) 本程序功能是对 的第 3 位小数四舍五入后保留 2 位小数 (2) 主要语句功能参见程序中相应语句注释 数据的输入 在程序设计时, 通常使用文本框 (TextBox 控件 ) 或 InputBox 函数来输入数据 1. 文本框利用文本框 (TextBox 控件 ) 的 Text 属性可以获得用户从键盘输入的数据 例 3-4 设计如图 3-9 所示的成绩计算程序 在文本框控件输入两门课的成绩, 然后通过文本框控件和标签控件分别显示总分和平均分 各控件事件过程, 代码如下 : Private Sub Command1_Click() '" 计算 " 按钮单击事件代码 Dim gs%, yy%, zf%, pjf! gs = Val(Text1.Text) yy = Val(Text2.Text) zf = gs + yy pjf = zf / 2 Text3.Text = zf Label4.Caption = pjf Private Sub Command2_Click() '" 清除 " 按钮单击事件代码 Text1.Text = "" Text2.Text = "" Text3.Text = "" Label4.Caption = "" Text1.SetFocus Private Sub Command3_Click() '" 结束 " 按钮单击事件代码 End 图 3-9 例 3-4 运行界面 41 第3 章程序控制结构

8 新编 Visual Basic 程序设计案例教程 提示 : 在程序设计时, 文本框也是数据输出的常用控件对象 输入对话框 InputBox 函数 InputBox 函数提供了一个简单的对话框, 供用户输入信息 函数形式如下 : InputBox( 提示 [, 标题 ][, 默认值 ][, x 坐标位置 ][,y 坐标位置 ]) 说明 : (1) 提示 : 字符串, 指定出现在对话框中的提示信息 (2) 标题 : 字符串, 指定对话框标题的内容 如果省略, 则将应用程序名作为标题 (3) 默认值 : 指定在弹出对话框时, 默认显示在输入框中的内容 (4)x 坐标 y 坐标位置 : 整型参数,(x,y) 坐标确定对话框左上角在屏幕上的位置, 屏幕左上角为坐标原点, 单位为 twip 注意 : (1) 参数次序不能变, 提示信息不能省略, 其他中间缺省用逗号占位符跳过 (2)InputBox 函数返回的值为字符型数据, 如需要返回数值型数据, 可用 Val 函数进行类型转换 例 3-5 用 InputBox 函数实现例 3-4 学生成绩的输入, 如图 3-10 图 3-11 图 3-12 和图 3-13 所示 各控件事件过程代码如下 : Private Sub Command1_Click() '" 成绩输入 / 计算 " 按钮单击事件代码 Dim gs%,yy%,zf%,pjf! gs=val(inputbox(" 高数 "," 成绩输入 ",60)) yy=val(inputbox(" 英语 "," 成绩输入 ",60)) zf=gs + yy pjf=zf / 2 Print" 学生成绩总分 :"& zf Print" 学生成绩平均分 :"& pjf Private Sub Command2_Click() '" 结束 " 按钮单击事件代码 End 图 3-10 学生成绩计算界面

9 图 3-11 成绩输入对话框 图 3-12 例 3-5 英语成绩输入界面 图 3-13 例 3-5 成绩计算输出界面 数据的输出 在程序设计时 通常使用标签 Label 控件 文本框 TextBox 控件 MsgBox 函数 和 Print 方法来输出数据 通过标签和文本框输出数据前面章节已进行讲解 下面将主要介 绍 MsgBox 函数和 Print 方法 1 消息对话框 MsgBox 函数 MsgBox 函数提供了一个简单的对话框显示消息 1 函数形式如下 变量[%]=MsgBox(提示[,按钮][,标题]) 作用 通过返回用户所选按钮的整数值 从而决定程序执行的流程 2 过程形式如下 MsgBox 提示[,按钮][,标题] 作用 没有返回值 调用时不能有括号 作为一条独立的语句 常用于信息提示 不 改变程序的流程 说明 第 43 1 提示 与 InputBox 函数中对应参数相同 2 标题 与 InputBox 函数中对应参数相同 章 3 程序控制结构

10 新编 Visual Basic 程序设计案例教程 (3) 按钮 : 整型参数, 指定消息对话框中按钮的数目及形式 图标样式 默认按钮等, 其取值, 如表 3-2 所示 44 表 3-2 按钮 设置 分类符号常量值意义 vbokonly 0 只显示 确定 按钮 vbokcancel 1 显示 确定 及 取消 按钮 按钮类型 vbabortretryignore 2 显示 终止 重试 及 忽略 按钮 vbyesnocancel 3 显示 是 否 及 取消 按钮 vbyesno 4 显示 是 及 否 按钮 vbretrycancel 5 显示 重试 及 取消 按钮 vbcritical 16 显示严重错误图标并伴有声音 图标样式 vbquestion 32 显示询问图标并伴有声音 vbexclamation 48 显示警告图标并伴有声音 vbinformation 64 显示消息图标并伴有声音 vbdefaultbutton1 0 第一个按钮是默认值 默认按钮 vbdefaultbutton1 256 第二个按钮是默认值 vbdefaultbutton1 512 第三个按钮是默认值 vbdefaultbutton1 768 第四个按钮是默认值 强制返回 vbsystemmodel 4096 全部应用程序都被挂起, 直到对消息框做出响应才继续工作 (4) 变量 :MsgBox 函数的返回值是一个整数, 可用内部常数或返回值表示, 表示关闭对话框前哪一个按钮被单击, 具体意义, 如表 3-3 所示 表 3-3 MsgBox 函数返回值 符号常量 返回值 意 义 vbok 1 确定 按钮被单击 vbcancel 2 取消 按钮被单击 vbabort 3 终止 按钮被单击 vbretry 4 重试 按钮被单击 vbignore 5 忽略 按钮被单击 vbyes 6 是 按钮被单击 vbno 7 否 按钮被单击 提示 :MsgBox 消息对话框中的按钮参数由表 3-2 中的四类数值组成 ( 主要前三类数值 ) 不同的组合会得到不同的结果 MsgBox 消息对话框的简单应用 : (1)64=0+64+0, 图 3-14 消息框代码如下 : MsgBox " 添加成功 ", 64, " 成绩输入 " MsgBox " 添加成功 ", , " 成绩输入 " MsgBox " 添加成功 ", 0 + vbinformation, " 成绩输入 " MsgBox " 添加成功 ", vbokonly + vbinformation, " 成绩输入 "

11 2 48= 图 3-15 消息框代码如下 MsgBox "成绩不应超过 100", , "警告" 3 36= 图 3-16 消息框代码如下 Yn=MsgBox("继续否 ", 36, "成绩输入" ) 4 50= 图 3-17 消息框代码如下 Ari=MsgBox("注意:请输入数值型数据", 50, "错误提示") 图 3-14 MsgBox 消息框 a 图 3-15 MsgBox 消息框 b 图 3-16 MsgBox 消息框 c 图 3-17 MsgBox 消息框 d 例 3-6 用消息框 MsgBox 实现例 3-5 学生成绩总分和平均分的输出 如图 3-18 所示 控件事件过程代码修改如下 Private Sub Command1_Click() Dim gs%, yy%, zf%, pjf! gs = Val(InputBox("高数", "成绩输入", 60)) yy = Val(InputBox("英语", "成绩输入", 60)) 图 3-18 MsgBox 消息框 zf = gs + yy pjf = zf / 2 MsgBox "学生成绩总分:" & zf & vbcrlf & "学生成绩平均分:" & pjf,, "计算" 注意 当需要字符串分行显示时 可以用 Chr$(13) 或系统常量 vbcrlf 强制换行 2 Print 方法 Print 是输出数据 文本的重要方法 形式如下 [对象.]Print[定位函数][输出表达式列表][分隔符] 作用 在对象上输出信息 1 对象 窗体 立即窗口 图片框或打印机 若省略对象 则在当前窗体上输出 第 45 说明 章 3 2 定位函数 Tab(n)用于将输出表达式从对象第 n 列开始输出 程序控制结构

12 新编 Visual Basic 程序设计案例教程 46 Spc(n) 用于在输出表达式前插入 n 个空格 分隔符 ( 逗号 分号和空格 ) 用于输出多个表达式时的分隔 表达式之间用分号或空格分隔, 按紧凑格式输出 ; 若为逗号, 则把输出行分成若干个区段 (14 个字符宽 ), 每个区段输出一个表达式的值 注意 : 如果 Print 后面没有内容, 则输出空行 ; 输出列表最后没有分隔符, 表示输出后换行 ; 可在输出列表最后加上逗号或分号使多个 Print 方法输出结果在同一行上显示 Print 方法的简单应用 : (1) 省略对象名称, 直接把字符串 Visual Basic 程序设计 输出到当前窗体 : Print "Visual Basic 程序设计 " (2) 把字符串 Visual Basic 程序设计 在图片框 Picture1 上显示出来 : Picture1.Print "Visual Basic 程序设计 " (3) 在立即窗口中输出字符串 Visual Basic 程序设计 : Debug.Print "Visual Basic 程序设计 " (4) 把字符串 Visual Basic 程序设计 输出到打印机 (Printer): Printer.Print "Visual Basic 程序设计 " 例 3-7 用 Print 方法在窗体中输出学生毕业成绩, 如图 3-19 所示 控件事件过程, 代码如下 : 图 3-19 Print 方法在窗体中输出数据 Print Font.Size = 14 Font.Name = " 楷体 _GB2312" Print Tab(8); Year(Date) & " 年信管专业学生毕业设计成绩 " CurrentY = 700 Font.Size = 9 Font.Name = " 宋体 " Print Tab(10); " 学号 "; Tab(35); " 姓名 "; Tab(55); " 成绩 " Print Tab(9); String(55, "-") Print Tab(10); " "; Tab(35); " 梦桐 "; Tab(55); " 优秀 " Print Tab(10); " "; Tab(35); " 白雪 "; Tab(55); " 中等 " Print Tab(10); " "; Tab(35); " 欧阳 "; Tab(55); " 良好 " Print Tab(10); " "; Tab(35); " 王君 "; Tab(55); " 中等 "

13 3 章 顺序结构是结构化程序设计三种基本结构之一, 必须熟练掌握基本语句应用 3.3 选择结构 选择结构是结构化程序设计三种基本结构之一, 在 VB 中 If 语句和 Select Case 语句主要用于解决选择分支结构问题, 对所给条件进行判断, 控制程序的流程 If 语句的几种形式 VB 语言的 If 语句有三种形式 : 单分支 双分支和多分支语句 1. 单分支 If Then 语句 1) 语句形式 (1) 单行形式如下 : If < 条件表达式 > Then < 语句 > (2) 块形式如下 : If < 条件表达式 > Then < 语句块 > 说明 : (1)< 条件表达式 > 是任意合法的有逻辑值的表达式, 其返回结果是 True 或 False (2)< 语句 > 是一条或多条语句, 如果为多条语句, 语句间用冒号分隔, 并且写在同一行上 (3)< 语句块 > 是一条或多条语句 2) 单分支 If Then 语句的执行过程计算条件表达式, 当表达式为真 (True) 时, 执行 Then 后面的语句 ( 或语句块 ), 否则绕过该语句 ( 语句块 ), 而执行其后面的语句 3) 单分支 If Then 语句的简单应用 (1)If x>y Then Print "x>y" 或 If x>y Then Print "x>y" 47 第程序控制结构

14 新编 Visual Basic 程序设计案例教程 (2)If Text1.Text="OK" Then MsgBox " 系统登录成功!" 或 48 If Text1.Text="OK" Then MsgBox " 系统登录成功!" (3)If x>y Then t=x : x=y : y=t 或 If x>y Then t=x x=y y=t 或 If x>y Then t=x : x=y : y=t 例 3-8 已知 x 和 y 两个数, 比较其大小, 使得 x 大于 y Dim x%, y%, t% x = Val(InputBox("x:", " 数据输入 ")) y = Val(InputBox("y:", " 数据输入 ")) If x < y Then t = x: x = y: y = t Print "x:" & x Print "y:" & y 分析 : 如果 x 小于 y, 则执行 Then 后面的语句 t=x : x=y : y=t 进行 x 和 y 调换 思考 :Dim x%, y%, t% 是否可以省略 ;x 和 y 输入是否可以省略 Val 转换函数 例 3-9 键盘输入三个整数, 比较输出其中最大值 Dim x%, y%, z%, max% x = InputBox(" 第 1 个数 x:", " 数据输入 ") y = InputBox(" 第 2 个数 y:", " 数据输入 ") z = InputBox(" 第 3 个数 z:", " 数据输入 ") max=x ' 假定第 1 个数作为最大值 If max < y Then max = y If max < z Then max = z Print "x=" & x, "y=" & y, "z=" & z Print Print " 三个数中的最大值为 :" & max

15 思考 : 如果比较输出 100 个数的最大值, 如何编写程序? 分析算法的实现 2. 双分支 If Then Else 语句在双分支 If Then Else 语句中, 有两组语句块, 根据条件判断只能执行其中的一组, 其执行流程如图 3-20 所示 图 3-20 双分支 If Then Else 语句执行流程 1) 语句形式 If Then Else 语句也分为单行形式和块形式 (1) 单行形式如下 : If < 条件表达式 > Then < 语句块 1> Else < 语句块 2> (2) 块形式如下 : If < 条件表达式 > Then < 语句块 1> Else < 语句块 2> 说明 : (1)< 条件表达式 > 是任意合法的有逻辑值的表达式, 其返回结果是 True 或 False (2)< 语句块 > 是一条或多条语句 (3) 块形式的双分支选择结构的 不能省略, 它是结构的结束标志, 如果省略会出现编译错误 2) 双分支 If Then Else 语句的执行过程计算条件表达式, 当表达式为真 (True) 时, 执行 Then 后面的 语句块 1, 否则执行 Else 后面的 语句块 2, 最后都执行双分支语句后面的语句 其流程如图 3-20 所示 3) 双分支 If Then Else 语句的简单应用 (1)If x>y Then Print "x>y" Else Print "y>x" 49 第3 章程序控制结构

16 新编 Visual Basic 程序设计案例教程 或 50 If x>y Then Print "x>y" Else Print "y>x" (2)If Text1.Text="OK" Then MsgBox " 登录成功!" Else MsgBox " 登录失败!" 或 If Text1.Text="OK" Then MsgBox " 登录成功!" Else MsgBox " 登录失败!" (3)If IsNumeric(Text1) Then MsgBox" 输入是数字!" Else MsgBox" 输入不是数字!" 或 If IsNumeric(Text1) Then MsgBox " 输入是数字!" Else MsgBox " 输入不是数字!" 例 3-10 键盘输入一名学生的高数成绩, 如果大于等于 60, 输出及格, 否则, 输出不及格 Private Sub Command1_Click() If Text2 >= 60 Then MsgBox Text1 & ": 高数成绩及格!",, " 提示 " Else MsgBox Text1 & ": 高数成绩不及格!",, " 提示 " 在 Text1 文本框输入 梦桐, 在 Text2 文本框输入 85, 输出结果如图 3-21 所示 思考 : 如果成绩分为优 良 中 及格和不及格, 如何修改程序 图 3-21 成绩判断输出 例 3-11 输入一个字母, 将大写字母转换为小写字母, 小写字母转换为大写字母 基本思路 : 在 ASCII 码表中, 大写字母 +32 转换为相应小写字母 ; 小写字母 -32 转换为相应大写字母

17 Private Sub Command1_Click() Dim ch As String * 1 If Text1 >= "A" And Text1 <= "Z" Then ch = Chr(Asc(Text1) + 32) MsgBox ch & ": 是被转换的小写字母!",, " 提示 " Else ch = Chr(Asc(Text1) - 32) MsgBox ch & ": 是被转换的大写字母!",, " 提示 " 字母转换也可以直接通过系统提供的大小写字母转换函数 LCase( 转换为小写字母 ) 或 UCase( 转换为大写字母 ) 来实现 Private Sub Command1_Click() If Text1 >= "A" And Text1 <= "Z" Then MsgBox LCase(Text1) &": 是被转换的小写字母!",," 提示 " Else MsgBox UCase(Text1) &": 是被转换的大写字母!",," 提示 " 思考 : 如何将一个字符串中的小写字母转换为大写字母, 大写字母转换为小写字母 3. 多分支 If Then ElseIf 语句在实际应用中, 经常要进行多条件逻辑判断, 依据不同的条件判断去处理相应的问题, VB 提供了相应的多分支 If Then ElseIf 语句用以解决此类问题 1) 语句形式多分支 If Then ElseIf 语句形式如下 : If < 表达式 1> Then < 语句块 1> ElseIf < 表达式 2> Then < 语句块 2> ElseIf < 表达式 n> Then < 语句块 n> [Else < 语句块 n+1>] 说明 : (1) 不管有几个分支, 程序执行一个分支后, 其余分支不再执行 (2) 当多分支中有多个表达式同时满足时, 则只执行第一个与之匹配的语句 (3)Else < 语句块 n+1> 可以没有, 只有在所有表达式都不满足时才会执行 51 第3 章程序控制结构

18 新编 Visual Basic 程序设计案例教程 52 2) 多分支 If Then ElseIf 语句的执行过程计算表达式 1, 如果为真时, 执行语句块 1; 否则, 计算表达式 2, 如果为真时, 执行语句块 2;, 否则, 计算表达式 n, 如果为真时, 执行语句块 n; 否则, 执行语句块 n+1 其流程图如图 3-22 所示 图 3-22 多分支 If Then ElseIf 语句执行流程图 例 3-12 键盘输入一个百分制成绩, 将其转换为优 良 中 及格和不及格五个等级 Private Sub Command1_Click() Dim Cj% Cj=Val(InputBox(" 输入成绩 :")) If Cj >=90 Then MsgBox Cj & ": 优!",," 成绩 " ElseIf Cj >=80 Then MsgBox Cj & ": 良!",," 成绩 " ElseIf Cj >=70 Then MsgBox Cj & ": 中!",, " 成绩 " ElseIf Cj >=60 Then MsgBox Cj & ": 及格!",," 成绩 " Else MsgBox Cj & ": 不及格!",," 成绩 " 思考 : (1) 是否可以改变条件判断 执行分支的顺序 (2) 如何将优 良 中 及格和不及格等级转化为百分制成绩范围 (3) 自己设计一个分段函数, 用多分支 If Then ElseIf 语句实现 If 语句的嵌套 If 语句的嵌套是指在 If 或 Else 后面的语句块中包含 If 语句 If 语句嵌套的一般形式

19 如下 : If < 表达式 1> Then If < 表达式 2> Then Else Else If < 表达式 n> Then Else 说明 : (1)If 语句嵌套的 Else 或 必须与它相关 If 语句相匹配, 即与其前面最近的未被匹配过的 If 匹配 (2) 建议用户在书写 If 语句嵌套语句时采用格式缩进, 增强程序的可读性 思考 : 认真分析 总结 If 语句嵌套的执行过程 例 3-13 假定考生已满足某高校录取条件, 键盘输入高考总分, 根据总分确定该考生被何专业录取 算法 1: Private Sub Command1_Click() Dim Gkcj% Gkcj=Val(InputBox(" 请输入高考总分 :")) If Gkcj >= 550 Then If Gkcj >= 580 Then Print " 高考总分 :"& Gkcj &", 被信管专业录取!" Else Print " 高考总分 :"& Gkcj &", 被电子商务专业录取!" Else If Gkcj >= 520 Then Print " 高考总分 :"& Gkcj &", 被国际经济与贸易专业录取!" Else Print " 高考总分 :"& Gkcj &", 被物流管理专业录取!" 输入高考总分 560, 输出 高考总分 :560, 被电子商务专业录取! 53 第3 章程序控制结构

20 新编 Visual Basic 程序设计案例教程 算法 2: 54 Private Sub Command1_Click() Dim Gkcj% Gkcj=Val(InputBox(" 请输入高考总分 :")) If Gkcj >= 580 Then Print " 高考总分 :"& Gkcj &", 被信管专业录取!" ElseIf Gkcj >= 550 Then Print " 高考总分 :"& Gkcj &", 被电子商务专业录取!" ElseIf Gkcj >= 520 Print " 高考总分 :"& Gkcj &", 被国际经济与贸易专业录取!" Else Print " 高考总分 :"& Gkcj &", 被物流管理专业录取!" 思考 : 请用户自行比较上述两种形式的不同, 并进一步完善算法使其更实用 IIf 函数 在 VB 中, 还提供一个 IIf 函数来简洁表示 If Then Else 选择情况, 实现简单的条件判断 IIf 函数形式如下 : IIf (< 条件表达式 >, < 值 / 表达式 1>,< 值 / 表达式 2>) 说明 : (1) 三个表达式或值不可以省略 (2)< 值 / 表达式 1> 和 < 值 / 表达式 2> 不允许出现计算错误 IIf 函数的执行过程 : 如果 < 条件表达式 > 的值为 True, 函数返回 < 值 / 表达式 1>, 否则返回 < 值 / 表达式 2> IIf 函数的应用 : (1) 求两个数的最大值, 用 If Then Else 形式和 IIF 函数形式表示如下 : 1 If x > y Then max = x Else max = y End IF 2 If x > y Then max = x Else max = y 3 max = IIf(x>y,x,y) 三者是等价的, 但 3 函数形式更简洁 (2) 求 x y z 三个数的最大值, 用 If Then Else 形式和 IIF 函数形式表示如下 : 1 If x > y Then max = x Else max = y If max > z Then max = max Else max = z

21 2 max = IIf(IIf(x > y, x, y) > z, IIf(x > y, x, y), z) (3) 判断登录成功 ( 若文本框输入的内容为 OK 表示成功 ) 与否, 用 If Then Else 形式和 IIF 函数形式表示如下 : 1 If Text1.Text="OK" Then MsgBox " 登录成功!" Else MsgBox " 登录失败!" 2 MsgBox IIf(Text1.Text="OK", " 登录成功!", " 登录失败!"),, " 提示 " Select Case 语句 Select Case 语句是 VB 提供的另一种多分支选择表示形式 当选择的情况较多时, 该语句能更方便 直观地处理多分支选择情况 它的一般形式如下 : Select Case < 测试表达式 > Case 表达式列表 1 < 语句块 1> Case 表达式列表 2 < 语句块 2> Case 表达式列表 n < 语句块 n> [Case Else < 语句块 n+1>] End Select 说明 : (1) 测试表达式 可以是数值或字符串表达式 (2)Case 后面的 表达式列表 必须与 测试表达式 的类型相同, 一般是以下四种形式 : 1 表达式 Case 5 或 Case x+2 2 一组值 ( 用逗号隔开 ) Case 1,3,5,7 ' 表示条件在 范围内取值 3 表达式 1 To 表达式 2 Case 90 To 100 ' 表示条件取值范围为 90~100 4 Is 关系运算表达式 Case Is>15 ' 表示条件在大于 15 的范围内取值 Case 1,5,7,Is>15 ' 表示条件取值范围为 或大于 15 (3)Case Else 及 < 语句块 n+1> 可以没有, 只有 测试表达式 的值与所有表达式的值都不相匹配时执行 < 语句块 n+1> 55 第3 章程序控制结构

22 新编 Visual Basic 程序设计案例教程 56 (4) 如果同一域值的范围在多个 Case 子句中出现, 只执行符合要求的第一个 Case 后面的语句块 注意 : 不是所有的多分支均可用 Select Case 语句代替 If Then ElseIf 语句, 特别是对多个变量进行条件判断时, 不能用 Select Case 语句 下面是错误表示 : Select Case x,y ' 出现两个变量, 错误! Case x > 0 And y > 0 ' 出现逻辑表达式, 错误! Case x < 0 And y < 0 End Select Select Case 语句的执行过程 : (1) 首先计算 测试表达式 的值 (2) 用此值与 Case 后面的表达式列表 1 表达式列表 2 中的值进行比较 (3) 若有相匹配的, 则执行其后面的语句块, 执行完该语句块则结束 Select Case 语句, 不再与后面的表达式进行比较 (4) 若找不到相匹配的表达式, 如果有 Case Else 语句, 则执行其后面的语句块, 否则, 直接结束 Select Case 语句 例 3-14 键盘输入一个百分制成绩, 将其转换为优 良 中 及格和不及格五个等级 ( 用 Select Case 语句 ) Dim Cj%, Dj As String * 8 Cj = Val(InputBox(" 输入成绩 :")) Select Case Cj Case Is >= 90 Dj = " 优!" Case Is >= 80 Dj = " 良!" Case Is >= 70 Dj = " 中!" Case Is >= 60 Dj = " 及格!" Case Else Dj = " 不及格!" End Select MsgBox Cj & ":" & Dj,," 成绩 " 例 3-15 计算分段函数 : y=f (x)= 2*x+1 (1 x<2) x*x-3 (2 x<4) x (x<1 或者 x 4)

23 Dim x!, y! x = Val(InputBox(" 输入 x:")) Select Case x Case Is < 1, Is >= 4 y = x Case Is >= 2 y = x * x - 3 Case Is >= 1 y = 2 * x + 1 End Select MsgBox "x=" & x & ",y=" & y,," 计算 " 分析 : 在多条件选择情况下, 如果分支很少, 直接使用 If Then ElseIf 语句更好些 3.4 循环结构 循环结构是结构化程序设计三种基本结构中最重要的内容, 是专门用于实现有规律的重复性操作的算法结构 在计算机语言中的循环就是在指定的条件下, 重复执行一组语句, 这组被重复执行的语句称为循环体, 而指定的条件称为循环条件 VB 提供了三种循环语句来实现循环结构 :For Next Do Loop 和 While Wend, 下面分别进行介绍 For Next 语句 在 VB 中,For Next 语句主要用于解决循环次数已知的问题, 其一般形式如下 : For 循环变量 = 初值 To 终值 [Step 步长 ] 循环体 Next 循环变量 说明 : (1) 循环变量必须是数值型变量 (2) 初值 ( 循环初值 ) 终值( 循环条件 ) 和步长 ( 每次循环变量的增量 ) 必须是数值表达式 (3) 步长为正, 初值 < 终值 ; 步长为负, 初值 > 终值 ; 步长为 1 时,Step 1 可以省略 (4) 循环体是一条或多条语句 (5) 循环次数 N = Int(( 终值 - 初值 )/ 步长 + 1) (6)Next 后面的循环变量必须与 For 语句中的循环变量同名, 并且可以省略 (7)Exit For 可以出现在循环体中, 用来退出循环, 执行 Next 后面的语句 For Next 语句的执行流程图如图 3-23 所示 57 第3 章程序控制结构

24 新编 Visual Basic 程序设计案例教程 58 图 3-23 For Next 语句执行流程图 例 3-16 计算 累加和 算法 1, 把 (1,99) (2,98) (3,97) (49,51) 成对相加, 共 49 个 100, 再加上 50 和 100, 换成数学表示 N*(N/2 1)+N/2+N = N*(N+1)/2, 代码编写极其简单, 如图 3-24 所示 图 至 100 累加算法分析 算法 2, 执行累加 s=0 : s=s+1: s=s+2 : : s=s+100 Dim i%, s% ' 变量 s 存放累加和, 初值为 0 For i = 1 To 100 Step 1 ' 步长为 1,Step 1 可以省略 s = s + i ' 循环 100 次, 执行 s=s+1:s=s+2: :s=s+100 Next i Print " = " & s 运行结果 : = 5050 思考 : 如要计算 1 至 100 之间奇数累加和 偶数累加和该如何修改程序 例 3-17 计算 1-1/2+1/3-1/4+ -1/100 Dim i%, f%, s! f = 1 For i = 1 To 100 s = s + 1 / i * f

25 f = -f Next i Print "s = " & Format(s, "0.000") 运行结果 :s = 分析 : 程序中 f =1 和 f = -f 的作用就是改变每一累加项的符号 (+,- 交替变化 ) 思考 : 用其他算法计算 1-1/2+1/3-1/4+ -1/100, 如何修改程序 例 3-18 计算 n 累加和 Dim i%, n%, s% st = "" n = Val(Text1) For i = 1 To n st = IIf(i = 1, st & i, st & " + " & i) s = s + i Next i Print st & " = " & s 输入 3, 运行结果为 : = 6 输入 8, 运行结果为 : = 36 思考 : (1) 程序中 st = IIf(i = 1, st & i, st & " + " & i) 起何作用? 如果输入 0, 结果又如何? (2) 计算 n! = n, 如何修改上述程序? 例 3-19 计算 , 直到累加和大于 1000 为止, 输出累加和与最后累加项 Dim i%, s% For i = 1 To 100 s = s + i If s >= 1000 Then Exit For ' Exit For 跳出当前循环 Next i Print " 累加和 = " & s, " 最后累加项 = " & i 运行结果 : 累加和 = 1035, 最后累加项 = 45 思考 : 如果不用 If s >= 1000 Then Exit For 控制循环计算, 如何修改上述程序? 例 3-20 键盘输入 10 个数, 输出其中最大值 Dim i%, n%, max% n = Val(InputBox(" 输入第 1 个数 :", " 提示 ")) 59 第3 章程序控制结构

26 新编 Visual Basic 程序设计案例教程 60 max = n ' 假定第 1 个数为最大值 For i = 2 To 10 n = Val(InputBox(" 输入第 " & i & " 个数 :", " 提示 ")) If n > max Then max = n Next i MsgBox " 最大值 :" & max,, " 提示 " 分析 : n = Val(InputBox(" 输入第 " & i & " 个数 :", " 提示 ")) 完成第 个数的输入, 其中 i 变量值随循环变量变化 思考 : 如果同时输出最小值, 如何修改程序? 例 3-21 计算 Fibonacci 数列的前十项之和 基本思路 :Fibonacci 数列从第三项开始, 每一项等于前面两项之和, 通过循环累加实现计算 Dim a%, b%, c%, s%, i% a = 1: b = 1: s = 2 ' 初始化前两项, 两项之和为 2 For i = 3 To 10 c = a + b s = s + c a = b b = c Next i Print "Fibonacci 数列的前 10 项之和 =" & s 运行结果 : Fibonacci 数列的前 10 项之和 =143 思考 : 函数体中的 a=b 与 b=c 能否调换位置? 例 3-22 正序 逆序输出 26 个英文大写字母 基本思路 : 在 ASCII 码表中, 通过 A 可以计算其他字母, 即 ('A'+i,i=0,1,2,, 25) Dim i% For i = 0 To 25 Print Chr(Asc("A") + i); Next i Print For i = 25 To 0 Step -1 Print Chr(Asc("A") + i); Next i ' 正序输出 ' 换行 ' 逆序输出 运行结果 :

27 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Z Y X W V U T S R Q P O N M L K J I H G F E D C B A 思考 : 通过字母 A 输出 26 个小写字母, 如何修改程序? Do Loop 语句 前面介绍的 For Next 语句适合于解决循环次数事先能够确定的问题 对于那些循环次数难以确定, 但控制循环的条件或循环结束的条件已知的情况, 常常使用 Do Loop 语句 Do Loop 语句是最常用 最有效 最灵活的一种循环语句, 它有以下四种形式 : (1)Do While Loop 形式如下 : Do While < 循环条件 > 循环体 Loop (2)Do Loop While 形式如下 : Do 循环体 Loop While < 循环条件 > (3)Do Until Loop 形式如下 : Do Until < 循环条件 > 循环体 Loop (4)Do Loop Until 形式如下 : Do 循环体 Loop Until < 循环条件 > Do Loop 循环语句的功能 : 当指定的循环条件为 True 或直到指定的循环条件变为 True 之前重复执行循环体 说明 : (1) 循环条件通常是关系表达式或逻辑表达式, 其值为 True 或 False (2) 循环体是一条或多条语句, 并且其中应该含有对循环条件的修改操作, 否则, 就形成所谓的 死循环 (3)Exit Do 可以出现在循环体中, 用来退出循环, 执行后面的语句 4 种形式循环比较如下 : (1)(1) (2) 两种形式的循环为 当型循环, 仅当循环条件成立 (True) 时, 重复执行循环体, 否则, 循环条件不成立 (False) 时, 结束循环 两种形式循环的区别是 : 61 第3 章程序控制结构

28 新编 Visual Basic 程序设计案例教程 62 形式 (1) 为先判断, 后执行循环体 ( 有可能一次也不执行循环体语句 ); 形式 (2) 为先执行 ( 循环体语句至少被执行一次 ), 后判断 两种形式循环的执行流程图如图 3-25 所示 图 3-25 Do Loop 当型循环 (2)(3) (4) 两种形式的循环为 直到型循环, 循环条件不成立 (False) 时, 重复执行循环体, 直到循环条件成立 (True) 时, 结束循环 两种形式循环的区别是 : 形式 (3) 为先判断, 后执行循环体 ( 有可能一次也不执行循环体语句 ); 形式 (4) 为先执行 ( 循环体语句至少被执行一次 ), 后判断 两种形式循环的执行流程图如图 3-26 所示 (3)While 当型循环与 Until 直到型循环的主要区别 : 前者当循环条件为 True 时反复执行循环体 ; 后者是直到循环条件为 True 之前 ( 当循环条件为 False 时 ), 反复执行循环体 图 3-26 Do Loop 直到型循环 例 3-23 计算 ( 用 Do while Loop 语句和 Do Until Loop 语句 ) Dim i%, s% s=0 i = 1 ' 相当于 For i=1 To 100 Step 1 语句中的 i= 1 Do While i <= 100 ' 相当于 For i=1 To 100 Step 1 语句中的终值判断 s = s + i i = i + 1 ' 相当于 For i=1 To 100 Step 1 语句中的步长增量 Loop Print " = " & s

29 Dim i%, s% s=0 i = 1 ' 循环变量赋初值 Do Until i > 100 ' 条件为 False(i= ) 时执行循环体 s = s + i i = i + 1 Loop Print " = " & s 思考 : 比较两种形式循环的条件判断和执行流程 例 3-24 计算 1~100 之间奇数累加和 偶数累加和 Dim i%, s1%, s2% 's1 s2 分别存放奇数累加和与偶数累加和 i = 1 ' 循环变量赋初值 Do While i <= 100 If i Mod 2 <> 0 Then' 余数不为 0 即是奇数, 否则为偶数 s1= s1 + i ' 奇数累加 Else s2= s2 + i ' 偶数累加 i = i + 1 Loop Print " 奇数累加和 = " & s1 Print " 偶数累加和 = " & s2 运行结果 : 奇数累加和 =2500 偶数累加和 =2550 思考 : 计算 100~200 之间所有能被 2 和 3 整除的数累加和, 如何修改上述程序? 例 3-25 用辗转相除法求两自然数的最大公约数 基本思路 : 以小数除大数, 得余数, 如果余数不为零, 则小数 ( 除数 ) 成被除数, 余数成除数, 除后得新余数 若余数为零, 则此除数即为最大公约数, 否则, 继续辗转相除 Dim x%, y%, r%, t% 'r 存放最大公约数,t 为临时变量 x = Val(InputBox(" 输入 x: ")):a=x y = Val(InputBox(" 输入 y: ")):b=y If x < y Then t = x : x = y : y = t ' 保证大数除以小数 r = x Mod y ' 计算余数 Do While r <> 0 ' 判断余数为 0 否 x = y ' 除数作被除数 y = r ' 余数作除数 r = x Mod y ' 再次计算余数 63 第3 章程序控制结构

30 新编 Visual Basic 程序设计案例教程 Loop Print a & " 和 " & b & " 两个数的最大公约数为 :" & y 64 输入 544 和 119, 运行结果为 : 544 和 119 两个数的最大公约数为 :17 思考 : 同时求两个数的最小公倍数, 如何修改上述程序? 例 3-26 键盘输入一个自然数 ( 大于 1), 判断其是否为素数 素数 ( 质数 ): 除 1 和它本身外, 不能被其他任何一个整数整除的自然数 基本思路 : 判别某数 m 是否为素数, 最简单的方法是用 i=2,3,,m-1 逐个判别 m 能否被 i 整除, 只要有一个能整除,m 就不是素数, 退出循环 ; 若都不能整除, 则 m 是素数 Dim i%, m% m = Val(InputBox(" 输入一个数 m: ")) i = 2 Do While i <= m-1 If m Mod i = 0 Then Exit Do ' 被整除 ( 不是素数 ), 跳出循环 i = i + 1 Loop If i > m 1 Then ' 或 If i = m Then Print m & " 是素数!" Else Print m & " 不是素数!" 输入 11, 输出 :11 是素数! 思考 : 数学上已经进一步证明 : 若 m 不能被 2 m 中任一整数整除, 则 m 为素数 该如何修改上述程序? While Wend 语句 While Wend 语句是早期 Basic 语言的循环语句, 它的功能已经完全被 Do Loop 替代, 即当循环条件的值为 True 时, 执行循环体, 否则, 退出循环 While Wend 语句一般形式如下 : While < 循环条件 > 循环体 Wend 说明 :While Wend 语句可以嵌套, 但每个 Wend 语句都与前面最近的 While 语句匹配

31 例 3-27 编写程序, 使 n! 最接近 1000(n!<1000) Dim j%, n% n = 0 ' 本条语句可以省略, 因 n 变量定义默认值为 0 j = 1 While j < 1000 n = n+1 j = j* n ' 计算 n! Wend j = j / n ' 求 (n-1)!, 因 n!>=1000 n = n 1 Print n & "!=" & j & " 最接近 1000!" 运行结果 : 6!=720, 最接近 1000! 循环结构嵌套 循环结构嵌套是在一个循环体内包含另一个完整的循环结构 前面介绍的几种循环结构可以互相嵌套 说明 : (1) 外循环必须完全包含内循环, 结构不能交叉 (2) 内循环变量与外循环变量不能同名 (3)Exit For 和 Exit Do 只能跳出本层循环结构 ;GoTo 语句可以从最内层循环跳转到最外层的外面, 但不能从循环体外转入循环体内 (3.5 节将进行介绍 ) 例 3-28 计算 1!+2!+3!+ +10! Dim i%, j%, f&, s& ' 防止出现溢出,f 和 s 定义为长整型 (&) For i = 1 To 10 f = 1 'i! 初值 For j = 1 To i ' 计算 i!, 注意循环变量终值为 i f = f * j Next j Print i & "!=" & f ' 输出 i! s = s + f 'i! 累加 Next i Print "1+2!+3!+ +10!=" & s 运行结果 : 1!=1 2!=2 65 第3 章程序控制结构

32 新编 Visual Basic 程序设计案例教程 66 3!=6 9!= != !+2!+3!+ +10!= 分析 : 由于 n!=n (n-1)!, 阶乘累加和可以不用循环嵌套来实现, 如下 : Dim i%, f&, s& f = 1 For i = 1 To 10 f = f * i ' 计算 i! Print i & "!=" & f ' 输出 i! s = s + f 'i! 累加 Next i Print "1+2!+3!+ +10!=" & s 思考 : 计算 1+(1+2)+(1+2+3)+ +( ), 如何修改上述程序? 例 3-29 用枚举法实现百元买百鸡问题 : 小鸡每只 5 角, 公鸡每只 2 元, 母鸡每只 3 元 问 100 元买 100 只鸡有多少种方案? 基本思路 : 设母鸡 公鸡和小鸡各为 x y z 只, 可以写出代数方程式 :x+y+z=100 和 3x+2y+0.5z=100, 但两方程怎么解三个未知数呢? 这类问题我们可以采用枚举法, 即将可能出现的各种情况一一罗列进行测试, 判断每一种情况是否满足条件 罗列每种情况采用循环结构来实现, 运行结果, 如图 3-27 所示 Dim x%, y%, z% ' 设母鸡 公鸡和小鸡各为 x y z 只 For x = 0 To 100 For y = 0 To 100 For z = 0 To 100 If (3*x+2*y+0.5*z)=100 And (x+y+z)=100 Then Print " 母鸡 =" & x & ", 公鸡 =" & y & ", 小鸡 =" & z Next z Next y Next x 图 3-27 百钱买百鸡算法执行结果

33 3 章分析 : 上述算法采用三层循环实现, 因为母鸡最多 33 只, 公鸡最多 50 只, 因此可对循环次数进行优化 另外, 若余下的只数能与钱数匹配, 就是一个合理解 因此可以将循环优化为二层, 代码如下 : Dim x%, y%, z% ' 设母鸡 公鸡和小鸡各为 x y z 只 For x = 0 To 33 For y = 0 To 50 z = 100 x - y If (3*x+2*y+0.5*z)=100 Then Print " 母鸡 =" & x & ", 公鸡 =" & y & ", 小鸡 =" & z Next y Next x 思考 : (1) 比较上述两种算法计算的次数 (2)100 元兑换零钱 (5 元 10 元 20 元中任意多个面值 ), 有多少种换法 例 3-30 在 100 以内找出一组 x y z 三个数, 满足 :x²+y²+z²>100 Dim x%, y%, z% For x = 1 To 99 For y = 1 To 99 For z = 1 To 99 If (x*x+y*y+z*z)>100 Then Print x & " * " & x & "+" & y & " * " & y _ ' _ 为续行 & "+" & z & " * " & z & "=" & x * x+y * y+z * z Exit Sub ' 结束过程 Next z Next y Next x 运行结果 : 1*1+1*1+10*10=102 思考 :Exit Sub 直接结束本事件过程, 是否可用 GoTo 语句从最内层直接跳到最外层循环的外面呢? 3.5 其他辅助控制语句 67 第其他流程控制语句主要有 GoTo Exit End 和 With End With 语句, 其作用是控制程 程序控制结构

34 新编 Visual Basic 程序设计案例教程 序的流程 跳转语句 GoTo GoTo 语句一般形式如下 : GoTo < 标号 行号 > 语句作用 : 无条件地跳转到过程中指定的标号或行号所指定的相应语句 说明 : (1)GoTo 语句只能在本过程中跳转 (2) 标号是不区分大小写的 以字母开头的字符序列 ; 被跳转到的标号以 : 结尾 (3) 行号是一个数字序列 ; 被跳转到的行号必须在行的开始位置 注意 : (1)GoTo 语句本身是无条件跳转, 但与 If 语句配合使用就转换为有条件跳转 (2)GoTo 语句与 If 语句配合使用也可以实现循环 (3)GoTo 语句可以直接从多层循环的最里层跳到最外层 (4)GoTo 语句不符合结构化程序设计规则, 会降低程序的可读性, 非必须情况下不建议使用 例 3-31 计算存款利息, 年利率为 0.035, 每年复利计息一次,8 年本利合计是多少 Dim p!,pf!,r!,t% r = t = 1 pf=val(inputbox(" 请输入本金 :")) p = pf ' 结束过程 A: If t > 8 Then GoTo 66 i = p * r p = p + i t = t + 1 GoTo A 66 Print pf & " 元存款,8 年后本利合计为 :" & p & " 元 " 输入 10000, 输出结果 : 元存款,8 年后本利合计为 : 元 退出语句 Exit 在 VB 中, 用于退出某种控制结构的执行, 有多种形式的 Exit 语句, 它们的作用如

35 表 3-4 所示 表 3-4 Exit 语句各种形式 语句形式 作 用 Exit For 退出 For Next 循环, 如为嵌套循环, 只能跳出 Exit For 语句所在的循环 Exit Do 退出 Do Loop 循环, 如为嵌套循环, 只能跳出 Exit Do 语句所在的循环 Exit Function 立即从包含该语句的 Function 过程中退出并返回到调用过程语句之后继续执行 Exit Sub 立即从包含该语句的 Sub 过程中退出并返回到调用过程语句之后继续执行 结束语句 End 独立的 End 语句用于结束一个程序的进行, 如关闭一个窗体 End 其他形式的应用, 主要有 End Select End With End Function 等, 它们与相应的语句配对 使用, 其作用如表 3-5 所示 表 3-5 End 语句各种形式 语句形式 作 用 End 可以放在过程中任何位置停止执行程序 ( 关闭窗口等 ) 用于结束一个 If 语句块 End Select 用于结束一个 Select Case 语句 End With 用于结束一个 With 语句 End Function 用于结束一个 Function 语句 用于结束一个 Sub 语句 注意 : 在使用 End 语句关闭程序时, 是直接终止程序的执行, 不再调用 Unload QueryUnload Terminate 事件或任何其他代码 例如, 使用 End 语句终止程序关闭窗体时, 窗体不发生 Unload 事件而直接关闭 使用 Unload 语句关闭窗体时, 窗体发生 Unload 事件 复用语句 With End With 复用 With 语句是在一个定制的对象或用户定义的类型上执行的一组语句 With 语句一般形式如下 : With < 对象 > [< 语句组 >] End With 说明 : (1) 对象, 一个对象或用户自定义类型的名称 (2) 语句组, 在对象上执行的一条或多条语句 69 第3 章程序控制结构

36 新编 Visual Basic 程序设计案例教程 70 (3)With 语句可以嵌套使用, 外层对象在内层被屏蔽, 所以必须在内层的 With 语句中使用完整的对象才能引用外层对象 例 3-32 在窗体 Load 事件中设置窗体和按钮的属性 Private Sub Form_Load() With Form1.Height = 5000.Width = With Command1.Height = 2000.Width = 6000.Caption = " 按钮属性设置 " Form1.Caption = " 窗体属性设置 " End With End With ' 外层窗体设置 ' 内层按钮设置 ' 内层设置外层窗体属性 分析 : 在嵌套内层 With 语句中设置外层 With 对象属性 ( 窗体标题 ) 需要写入窗体名称 Form1 本章小结 算法是解决问题的方法和步骤, 好的算法可以优化程序设计, 提高程序的运行效率 顺序结构 选择结构和循环结构是程序设计的三种基本结构 顺序结构是编程的基础, 选择结构主要应用于逻辑条件判断问题, 循环结构是用来处理重复操作问题 选择结构和循环结构都可以嵌套应用, 循环结构应用时应特别注意循环条件的控制, 否则, 会造成死循环 三种结构和其他辅助语句的灵活 综合应用能够解决相对复杂的问题 编程时, 为突出结构尽量采用良好的代码缩进格式书写, 以增强代码的可读性 习题 3 1. 简述算法及算法的特点 2. 结构化程序设计包括哪三种基本结构? 3. Select Case End Select 形式语句是否可以完全取代 If Then ElseIf EndIf 形式语句? 4.While 当型循环与 Until 直到型循环的主要区别是什么? 5.For Next 循环只适合解决循环次数已知的问题吗? 6.Do While Loop 形式与 Do Loop While 形式是否在任何情况下都可以互换? 7. 编写程序 : (1) 计算 1-1/2+1/3-1/4+ -1/100 (2) 计算 100~200 之间所有能被 2 和 3 整除的数并将这些数累加求和

37 3 章(3) 输出 100~200 之间的所有素数 (4) 计算 1+(1+2)+(1+2+3)+ +( ) (5) 计算 S= (n 个 2,5<n<10) (6) 计算 s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+ 当第 i 项的值 < 时结束 (7) 输出乘法九九表 (9 行 ) (8) 鸡兔共笼有 30 个头,90 只脚, 求鸡兔各有多少? (9) 输入三个数, 判断三个数能否作为三角形的三条边, 如构成三角形, 计算三角形面积并输出 ; 否则, 输出 不构成三角形 (10) 求一元二次方程 ax²+bx+c=0 的解,a b c 由键盘输入 71 第程序控制结构