Microsoft Word - Vcj05.doc

Size: px

Start display at page:

Download "Microsoft Word - Vcj05.doc"

陨悟
5 years ago
Views:

第 5 章选择结构程序设计在日常生活和工作中, 经常会遇到各种各样的选择, 根据选择的不同, 会得到不同的结果在程序设计中, 也经常会根据不同的情况执行不同的操作, 这与现实生活中的选择非常类似但程序设计中的选择结构根据条件只能选择一个分支执行, 即无论分支多寡, 必择其一 ; 纵然分支众多, 仅选其一本章主要介绍实现选择结构程序设计方面的知识, 包括 If 语句 Select Case

1 第 5 章选择结构程序设计在日常生活和工作中, 经常会遇到各种各样的选择, 根据选择的不同, 会得到不同的结果在程序设计中, 也经常会根据不同的情况执行不同的操作, 这与现实生活中的选择非常类似但程序设计中的选择结构根据条件只能选择一个分支执行, 即无论分支多寡, 必择其一 ; 纵然分支众多, 仅选其一本章主要介绍实现选择结构程序设计方面的知识, 包括 If 语句 Select Case 语句条件函数的使用, 最后介绍与选择结构相关的单选按钮复选框和框架三个基本控件的使用 5.1 引例例 5.1 输入学生百分制成绩, 将该成绩转换为五级分制显示输出程序运行结果如图 5.1 所示其中转换规则为 :90 及 90 分以上为优,80~90 为良 ( 含 80, 不含 90, 后面相同 ),70~80 为中,60~70 为及格,0~60 为不及格图 5.1 例 5.1 的运行结果该题目是选择结构的典型应用程序代码如下 : Private Sub Command1_Click() cj = Val(Text1) If cj < 0 Or cj > 100 Then MsgBox " 输入的成绩无效 " Text1.Text = "" Label1.Caption = "" If cj >= 90 Then Label3.Caption = " 优 " If cj >= 80 Then Label3.Caption = " 良 " If cj >= 70 Then Label3.Caption = " 中 " If cj >= 60 Then Label3.Caption = " 及格 " Label3.Caption = " 不及格 "

2 通过此题看出, 根据学生成绩的不同, 程序运行的结果也不同这种根据条件, 选择执行某个语句或语句块的形式, 就为选择结构本章主要介绍实现选择结构的程序设计 5.2 If 语句 If 语句是最常用的实现选择结构的语句 If 条件有多种形式, 包括单分支双分支和多分支语句等单分支 If 语句格式 1: 单行形式 If < 条件表达式 > Then < 语句块 > 格式 2: 块形式 If < 条件表达式 > Then < 语句块 > 执行过程 : 判断 < 条件表达式 > 的值, 条件表达式的值若为 True, 则执行 Then 后面的语句块, 若为 False, 则什么也不做, 直接执行 If 结构后面的语句执行流程图如图 5.2 所示说明 : (1) 最常见的条件表达式是关系表达式或逻辑表达式, 如判断 x 是否为偶数的关系表达式可以写成 :x Mod 2 = 0 (2) 要想编写的程序没有语法错误, 应严格遵循语法格式格式 1 中 If 语句必须在一行内书写完毕若语句块中写图 5.2 单分支 If 语句流程图多条语句, 使用 : 隔开格式 2 中 If Then 行的后面不要写语句, 将条件成立要执行的所有语句放到 If Then 和中间, 且必须有块形式的结束标志通过下面示例的代码, 比较分析 If 语句的两种格式在写法上的区别 (1) 判断 x 是否为偶数单行 If 语句的写法是 : If x Mod 2 = 0 Then Print x & " 是偶数!" 块形式的写法是 : If x Mod 2 = 0 Then Print x & " 是偶数!" (2) 比较两个数的大小, 使得 x 大于 y 单行 If 语句的写法是 : 80 Visual Basic 程序设计

If x < y Then t = x: x = y: y = t 块形式的写法是 : If x < y Then t = x x = y y = t 5.2.

3 If x < y Then t = x: x = y: y = t 块形式的写法是 : If x < y Then t = x x = y y = t 双分支 If 语句格式 1: 单行形式 If < 条件表达式 > Then < 语句块 1> < 语句块 2> 格式 2: 块形式 If < 条件表达式 > Then < 语句块 1> < 语句块 2> 执行过程 : 判断 < 条件表达式 > 的值, 若为 True, 则执行 Then 后面的语句块 1, 若为 False, 则执行后面的语句块 2, 执行流程图如图 5.3 所示图 5.3 双分支 If 语句流程图对比单分支 If 语句, 双分支 If 语句多了分支与单分支的格式要求类似, 格式 1 中 If 语句必须在一行内书写完毕 ; 格式 2 中 If Then 行的后面不要写语句, 将条件成立要执行的所有语句放到 If Then 和中间, 独立占一行, 将条件不成立时要执行的所有语句放到和中间, 且必须以结束例 5.2 设计一个登录窗口, 如图 5.4 所示用户输入用户名和密码, 单击登录按钮对用户名和密码进行验证若用户名为 admin, 密码为 , 则弹出消息框提示登录成功! ; 否则弹出消息框提示用户名或密码错误, 请重新输入!, 并且将光标移到文本框 1 里, 同时选中文本框 1 的文本分析 : 图 5.4 例 5.2 的运行结果 (1) 界面设计在窗体上添加所需的标签控件文本框第 5 章选择结构程序设计 81

4 控件和命令按钮控件, 并设置控件的相关属性通过将文本框 Text2 的 PasswordChar 属性设为 *, 使在文本框 2 中输入的文本显示为 * (2) 代码设计根据题意要求, 先从文本框中获取输入的用户名和密码, 之后使用双分支的 If 语句对姓名和密码进行条件判断, 并根据判断结果, 做出不同的处理使用 setfocus 方法将光标移到文本框 1 中, 即让文本框 1 获得焦点程序代码如下 : Private Sub Command1_Click() usern = Text1.Text ps = Text2.Text If usern = "admin" And ps = "123456" Then MsgBox " 登录成功!", vbinformation, " 验证框 " MsgBox " 用户名或密码错误, 请重新输入!", vbexclamation, " 验证框 " Text1.SetFocus ' 设置文本框 1 获得焦点 Text1.SelStart = 0 ' 这行和下行实现选中 Text1 的内容 Text1.SelLength = Len(Text1.Text) 多分支 If 语句多分支 If 语句适用于分支大于等于 3 个的情况, 它仅有块形式其语法格式如下 : If < 条件表达式 1> Then < 语句块 1> If < 条件表达式 2> Then < 语句块 2> If < 条件表达式 n> Then < 语句块 n> [ < 语句块 n+1>] 执行过程 : 首先判断 < 条件表达式 1> 的值, 若 < 条件表达式 1> 的值为 True, 则执行 Then 后面的语句块 1, 然后执行语句 ; 若 < 条件表达式 1> 的值为 False, 则判断 < 条件表达式 2> 的值若 < 条件表达式 2> 的值为 True, 则执行 Then 后面的语句块 2, 然后执行语句 ; 若 < 条件表达式 2> 的值为 False, 则继续依次判断后续条件表达式, 直至某个条件表达式为 True 时, 执行对应 Then 后面的语句块, 然后执行语句若所有条件表达式的值都为 False, 则执行后面的语句块 n+1 执行流程图如图 5.5 所示注意 : 在一个 If 语句中, 条件表达式和语句块的个数没有限制, 但最多只执行一个语句块, 被执行的语句块是依次判断条件表达式最先为 True 的那个分支 If 语句中 If 这个词的中间没有空格 82 Visual Basic 程序设计

5 图 5.5 多分支 If 语句流程图例 5.3 计算分段函数的值运行程序后, 在窗体上单击, 弹出 InputBox 对话框输入 x 值, 若 InputBox 对话框输入的不是数值则弹出消息对话框 ; 若是数值, 则按下列分段函数计算 y 的值, 并用 MsgBox 消息对话框显示 y 的值 2x + 2 x 0 1 y= - x 2 0< x < 2 3 x 2 程序的部分运行结果如图 5.6 所示图 5.6 例 5.3 的部分运行结果分析 : (1) 输入和输出均用对话框实现, 故窗口上不需添加任何控件事件过程可选 Form_Click() (2) 在 Form_Click() 事件中, 首先输入 x 的值, 然后对 x 的值做 If 条件判断, 并根据不同的判断结果做相应的处理, 最后输出计算结果 (3) 判断数字字符的函数为 IsNumeric(), 比如, 若 IsNumeric(x) 的值为 True, 则表示 x 是数字字符程序代码如下 : Private Sub Form_Click() x = InputBox(" 请输入 x 的值 ", " 输入框 ") If Not IsNumeric(x) Then 第 5 章选择结构程序设计 83

6 MsgBox x & " 不是数值!" Exit Sub If Val(x) <= 0 Then y = 2 * x + 2 If Val(x) > 0 And Val(x) < 2 Then y = -1 / 2 * x y = 3 MsgBox y, vbinformation, " 输出 " 说明 : (1) 程序中 If 语句第一个分支中因 x 不是数值, 没有计算 y 的值, 因此该分支结束后, 需越过输出 y 的 MsgBox 过程程序使用 Exit Sub 跳出 Form_Click() 事件过程 Exit Sub 语句的作用是直接跳出所在的 Sub 过程, 过程中在它后面的语句不会执行 (2) 第三个分支中的条件表达式 Val(x) > 0 And Val(x) < 2 可以简写为 Val(x) < 2, 因为条件表达式的判断由上而下进行, 只有当上面的条件不成立时, 才会判断下面的条件例 5.4 某快递公司, 邮寄包裹的运费和重量的关系如下 :1 公斤及以内 10 元 ; 若重量超过 1 公斤, 每公斤的续重价格是 9 元 ; 若重量超过 10 公斤, 则每公斤的续重价格是 8 元编程实现根据输入的重量计算出应付的运费, 运行结果如图 5.7 所示图 5.7 例 5.4 的运行结果分析 : 使用文本框获得包裹的重量, 用标签输出计算出来的应付运费编写代码时, 首先从文本框中得到包裹重量的值, 赋给变量 w, 然后根据 w 的值的范围条件, 分别计算应付的运费程序代码如下 : Private Sub Command1_Click() Dim w As Single, price As Single w = Val(Text1.Text) If w > 0 And w <= 1 Then price = 10 If w > 1 And w <= 10 Then price = * (w - 1) If w > 10 Then price = * (w - 1) price = 0 ' 若 w 的值为小于等于 0 的数, 则 price 的值为 0 84 Visual Basic 程序设计

7 Label5.Caption = price 思考 : 例 5.4 程序中 If 语句的第一个条件表达式 w > 0 And w <= 1 可以写成 w <= 1 吗? 第二个条件表达式 w > 1 And w <= 10 可以写成 w <= 10 吗? 为什么? 5.3 Select Case 语句另一种实现选择结构的语句是 Select Case 语句, 使用它可以方便直观地处理多分支的控制结构其语法格式如下 : Select Case < 测试表达式 > Case < 表达式列表 1> < 语句块 1> Case < 表达式列表 2> < 语句块 2> Case < 表达式列表 n> < 语句块 n> [Case < 语句块 n+1>] End Select 执行过程 : (1) 计算 < 测试表达式 > 的值 (2) 用 < 测试表达式 > 的值与 Case 后面的 < 表达式列表 1> 比较, 若匹配成功, 则执行 < 语句块 1>, 结束 Select Case 语句 ; 若匹配不成功, 则继续与 Case 后面的 < 表达式列表 2> 比较, 若匹配成功, 则执行 < 语句块 2>, 结束 Select Case 语句 ; 若匹配不成功, 则继续依次与 Case 后面的表达式列表比较, 若匹配成功, 则执行对应语句块, 结束 Select Case 语句 (3) 当 < 测试表达式 > 的值与 Case 后面所有 < 表达式列表 > 的值都不匹配时, 若有 Case 语句, 则执行 Case 后面的 < 语句块 n+1>; 若没有 Case 语句, 则直接结束 Select Case 语句 Select Case 结构的执行与多分支 If 语句类似, 也是依次比较判断, 且仅执行满足条件的第一个语句块但 Select Case 语句是将 < 测试表达式 > 的值, 依次与 < 表达式列表 k> 作匹配,k 取值为 1~m, 若匹配成功, 则执行对应的语句块 k, 执行过程如图 5.8 所示其中,Case 后面的 < 表达式列表 > 中的列表项的类型必须与 < 测试表达式 > 的类型相同 < 表达式列表 > 常用以下 4 种形式 (1) 单个表达式, 例如 : Case 1 Case "+" Case x + y ' 表示 < 测试表达式 > 值为 1 的情况 ' 表示 < 测试表达式 > 值为 "+" 的情况 ' 表示 < 测试表达式 > 值为 x+y 的值的情况 (2) 用, ( 逗号 ) 分隔的多个表达式, 例如 : 第 5 章选择结构程序设计 85

8 Case 1, 3, 5, x + 1 ' 表示 < 测试表达式 > 值为或 x+1 的情况 (3) 表达式 1 To 表达式 2, 例如 : 图 5.8 Select Case 语句流程图 Case 1 To 10 Case "a" To "z" ' 表示 < 测试表达式 > 值在 1~10 范围的情况 ' 表示 < 测试表达式 > 值在 "a"~"z" 范围的情况 (4)Is 关系表达式, 例如 : Case Is>100 ' 表示 < 测试表达式 > 值大于 100 的情况其中, 上面的 4 种形式可以混用, 之间用, 分开例如 : Case 1, 3, 10 To 20, Is > 100 '4 种形式混用的写法, 之间是或的关系但 Is 关系表达式不能同逻辑运算符连用例如若表示 100~200 范围的情况, 不能写成如下形式 : Case Is>100 And Is<200 例 5.5 下面将例 5.4( 多分支 If 语句应用实例 ) 改写为 Select Case 语句形式程序代码如下 : Private Sub Command1_Click() Dim w As Double, price As Double w = Val(Text1.Text) Select Case w 'w 是测试表达式 Case Is <= 0 price = 0 Case 0 To 1 86 Visual Basic 程序设计

9 price = 10 Case 1 To 10 price = * (w - 1) Case price = * (w - 1) End Select Label5.Caption = price 说明 : (1)< 测试表达式 > 是一个表达式, 不能写成一个表达式列表, 如 Select Case w,h 是错误的写法, 会导致编译错误 (2) 若将第一个 Case 条件和测试表达式 Case is<=0 错写为 Case w<=0, 程序虽然不会出现语法错误, 但却得不到正确的运行结果编程时切记避免这种写法例 5.6 使用 InputBox 对话框输入一个字符, 编程判断该字符是字母数字还是其他字符, 并用 MsgBox 对话框输出判断结果分析 : 字符与数字一样, 也可以比较大小使用 Select Case 语句实现判断, 若输入的字符大于等于 "a" 并且小于等于 "z", 或大于等于 "A" 并且小于等于 "Z", 则为字母字符 ; 若输入的字符大于等于 "0" 并且小于等于 "9", 则为数字字符 ; 不符合上面两种情况的, 则为其他字符程序代码如下 : Private Sub Form_Click() Dim ch As String * 1 ' 声明长度为 1 的定长字符串, 多于 1 个的字符将被截掉 ch = InputBox(" 输入一个字符 ") Select Case ch Case "a" To "z", "A" To "Z"' 字母字符条件 MsgBox (ch + " 是字母字符 ") Case "0" To "9" ' 数字字符条件 MsgBox (ch + " 是数字字符 ") Case MsgBox (ch + " 是其他字符 ") End Select 5.4 条件语句的嵌套不论是 If 语句还是 Select Case 语句, 其语句块可以是 Visual Basic 中的任何可执行语句若在 If 语句或 Select Case 语句中又包含了其他的条件语句, 则构成了条件语句的嵌套嵌套的形式有很多种, 嵌套层次也可为任意多层下面是其中的一种嵌套形式 : If < 条件表达式 1> Then If < 条件表达式 2> Then [ 第 5 章选择结构程序设计 87

] Select Case < 测试表达式 > Case < 表达式列表 1> [Case ] End Select 嵌套的条件语句必须完整地包含在一个语句块中在多层 If 嵌套结构中, 在一个 If 语句结束之前出现的总是与离它最近的 If 相配对对于这种结构, 书写时应该采用缩进格式, 以便使程序代码看上去结构清晰, 增加代码可读性例 5.

10 ] Select Case < 测试表达式 > Case < 表达式列表 1> [Case ] End Select 嵌套的条件语句必须完整地包含在一个语句块中在多层 If 嵌套结构中, 在一个 If 语句结束之前出现的总是与离它最近的 If 相配对对于这种结构, 书写时应该采用缩进格式, 以便使程序代码看上去结构清晰, 增加代码可读性例 5.7 编程求一元二次方程 ax 2 + bx + c = 0 的根程序运行界面如图 5.9 所示图 5.9 例 5.7 的运行结果分析 : 首先判断 a 是否为 0, 若 a 等于 0, 输出该方程不是一元二次方程! ; 否则 a 不等于 0, 这时要判断 b 2 4ac 是否大于 0 等于 0 和小于 0 的三种情况, 用条件语句的嵌套来实现一元二次方程求根公式是 :x = 程序代码如下 : ± 2 b b 4ac Private Sub Command1_Click() Dim x1#, x2# ' 方程的两个实根 a = Val(Text1) b = Val(Text2) c = Val(Text3) If a = 0 Then Label3.Caption = " 该方程不是一元二次方程!" delta = b * b - 4 * a * c If delta > 0 Then x1 = (-b + Sqr(delta)) / (2 * a) x2 = (-b - Sqr(delta)) / (2 * a) 2a 88 Visual Basic 程序设计

Microsoft Word Visual_Basic程序设计上机实践教程正文.doc

Microsoft Word Visual_Basic程序设计上机实践教程正文.doc 实验 3 顺序和分支结构程序设计实验目的 1. 掌握顺序结构的程序设计思想 2. 掌握命令按钮 (CommandButton) 标签 (Label) 文本框 (TextBox) 编辑框 (EditBox) 等常用控件的使用方法 3. 了解并掌握对话框函数 MessageBox() 的含义与用法 4. 了解和熟悉线条控件形状控件的画法以及主要属性的用法实验内容 1. 顺序结构实训 3-1 编写一应用程序,