vb 选择结构

《vb 选择结构》由会员分享，可在线阅读，更多相关《vb 选择结构（41页珍藏版）》请在金锄头文库上搜索。

1、1,1,第四章 选择结构,4.1 运算符与表达式 4.2 顺序结构 4.3 If语句 4.4 多条件选择语句 4.5 选项按钮 4.6 复选框,2,2,4.1.1 算术运算符与算术表达式,4.1 运算符与表达式,两种含义：减法或者取负,求整型除法的余数,3,3,4.1.2 关系运算符与关系表达式,优先级的级别都是相同的,4,4,进行关系运算时，先算出关系运算符两侧表达式的值，然后再进行比较 表达式均为数值型时，按数值大小进行比较 表达式是字符串型时，对应的字符按ASCII值进行比较 数值型与可转换成数值型的数据比较，按转换后的数值进行比较 日期型数据的比较，看成”yyyymmdd”的8位整数

2、单精度数不能直接进行”=”的比较，计算机中的浮点数的误差。,5,5,4.1.3 布尔运算符与布尔表达式,6,6,4.1.4 字符串运算符与字符串表达式,VB只有一种字符串连接符，即连接运算符“&”。字符串表达式的格式为： & & & 例如： “xyz” & 123 & 456 运算结果为xyz123456 123 & “100” 运算结果为123100,7,7,4.1.5 运算符的优先顺序,8,8,求表达式Not 86 Or 65 And 5+310的值,(1) 算术运算：Not 86 Or 65 And 810 (2) 关系运算：Not True Or True And False (3)

3、取反操作：False Or True And False (4) 与操作：False Or False (5) 最后得到：False,9,判断一个年份是否是闰年，需要满足以下条件：该年份能被4整除但不能被100整除，或该年份能被100整除又能被400整除。设y为年份。,条件1：y mod4=0 And y mod1000,条件2：y mod100=0 And y mod400=0,y mod4=0 And y mod1000 Or y mod100=0 And y mod400=0,10,10,4.2 顺序结构,顺序结构是程序中最基本的一种结构，顾名思义是按照顺序向下执行，一条语句执行完毕之后

4、接着执行下一条语句的结构。,11,11,Private Sub Command1_Click() Dim a As Integer,b As Integer a=12 Print “a=”; a b=2*a Print “b=”; b End Sub,结果：a=12 b=24,12,12,4.3.1 单行选择语句IfThenElse,单行选择语句的语法格式为： If Then 语句序列1 Else 语句序列2,4.3 If语句,条件表达式的结果为一个布尔值；可以是关系表达式；布尔表达式；数值表达式，非0值为True，0为False；字符串表达式，只允许出现包含数字的字符串。,13,13,分析：

5、当x2时，用公式yx39来求y的值；当x2时，用公式yx25x-6来计算y的值。,14,14,15,15,Private Sub Command1_Click( ) Dim x As Single x = Val(Text1.Text) If x = 2 Then y = x 3 - 9 Else y = x 2 + 5 * x - 6 Text2.Text = y End Sub,16,16,IIF语句也是单条件选择结构语句，其语法格式为： IIF(条件，语句序列1，语句序列2) 其中：语句序列1是条件为真时要执行的语句块部分，语句序列2是条件为假时要执行的语句块部分。,If x = 2 T

6、hen y = x 3 - 9 Else y = x 2 + 5 * x - 6 利用IIF语句可将改其写成如下形式： y=IIF(x=2, x 3 9,x 2 + 5 * x 6),4.3.2 IIF语句,17,17,其语法格式如下： If Then Else End If,4.3.3 块结构条件语句IfThenElseEnd If,当If语句中的语句序列要包含多条语句时，采用块结构条件语句。,If x = 2 Then y = x 3 - 9 Else y = x 2 + 5 * x 6 End If,块结构中的If语句必须以End If结束,18,18,If语句的嵌套是指语句序列1或语句

7、序列2本身又是一个If语句。,语法格式：If Then If Then Else End If Else End If,4.3.4 If语句的嵌套,19,19,20,20,例：铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是行李重量不超过50kg时，0.25元/kg，超过50kg而不超过100kg时，其超过部分按0.35元/kg收费，超过100kg时，其超过部分按0.45元/kg收费。编写程序，输入行李重量，计算并输出托运的费用。 分析：设行李重量为wkg，应付运费为x元，则运费公式为：,21,21,Private Sub Command1_Click() Dim w As Singl

8、e, x As Single w = Val(Text1.Text) If w = 50 Then x = 0.25 * w Else If w = 100 Then x = 0.25 * 50 + 0.35 * (w50) Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w100) End If End If Text2.Text = x End Sub,22,22,多层的If语句嵌套格式使程序冗长复杂。 ElseIf语句的语法格式如下： If Then 语句序列1 ElseIf Then 语句序列2 Else 语句序列n+1 End If,4.3.5 El

9、seIf语句,23,23,例【4-8】学生成绩采用五分制：成绩小于60分为“不及格”，大于等于60小于70为“及格”，大于等于70小于80为“中”，大于等于80小于90为“良”，大于等于90为“优”。试编写程序判断某学生的成绩等级。 分析：可从文本框1中获取学生成绩，然后进行判断并在文本框2中输出。,24,If score = 0 And score = 60 And score = 70 And score = 80 And score = 90 And score = 100 Then d = “优“ Else d = “输入错误！“ End If,25,a=75 If a60 then

10、b=1 If a70 then b=2 If a80 then b=3 If a90 then b=4,a=75 If a60 then b=1 ElseIf a70 then b=2 ElseIf a80 then b=3 ElseIf a90 then b=4 Else b=0 End If,26,26,语法格式如下： Select Case Case 语句序列1 Case 语句序列2 Case 语句序列n Case Else 语句序列n+1 End Select,4.4 多条件选择语句Select Case,27,27,28,28,Case子句中的表达式列表可以有以下几种形式：,29,2

11、9,例【4-10】判断某一闰年中任意给定的月份有多少天。 分析：在闰年中，2月有29天，1、3、5、7、8、10、12月有31天，其他月份有30天。这是个多个条件的选择问题，用Select Case语句实现。设计时有文本框1提供月份的输入，文本框2用于输出该月有多少天，点击“判断”按钮进行判断。,30,Private Sub Command1_Click( ) Dim m As Integer m = Val(Text1.Text) Select Case m Case Is 12 Text2.Text = “输入错误“ Case 2 Text2.Text = “本月有29天“ Case 1,

12、 3, 5, 7, 8, 10, 12 Text2.Text = “本月有31天“ Case Else Text2.Text = “本月有30天“ End Select End Sub,31,2.输入3个不同的数，将它们从大到小排序,3.假定每周的工作安排：星期一、三：计算机；星期二、四：高等数学；星期五：英语；星期六、日：休息。输入星期，输出安排。 提示：用06代表星期日到星期六。,1.按下列公式计算Y值,练习,32,32,4.5 选项按钮控件,选项按钮(OptionButton)就是我们通常所说的单选按钮，它的主要功能是提供一组选择，这些选择是互斥的，要求在这些互斥的选择中根据需要选取一个

13、且只能选取一个。,常用属性,33,33,Value属性：选项按钮的Value属性指出是否选定了此按钮。选定时，值将变为True，可在代码中设置选项按钮的Value属性来选定按钮。例如： Option1Value=True 要在选项按钮组中设置缺省选项按钮，可在设计时通过设置Value属性，也可在运行时在代码中用上述语句来设置Value属性。,34,34,选项按钮常用的事件是Click、GotFocus(获得焦点)、LostFocus(失去焦点)事件。常用的方法是SetFocus方法，即让该选项按钮获得焦点，此时其Value值为True。,一个选项按钮可以用以下几种方法选择： 1.在运行时单击该

14、选项按钮 2.用代码使它的Value值为True，即 Option1.Value=True 3.在选项按钮组内使用方向键选择选项按钮,35,35,Click事件： 选定选项按钮时将触发其Click事件。是否有必要响应此事件，这将取决于应用程序的功能。,在平常应用中，常常需要几组选项，这就需要创建选项组。要将选项按钮分组，可把它们创建在不同的容器控件中，像Frame控件、Picture控件。运行时，用户在每个选项组中只能选定一个选项按钮。,36,36,例【4-11】利用选项按钮修改文本框中文字的字体，共有宋体、隶书和楷体3中字体。 分析：3中字体是互斥的，所以需要使用3个选项按钮Option1O

15、ption3，将其Caption依次修改为宋体、隶书和楷体；此外还有一个文本框用于输入。,37,37,4.6 复选框,复选框(CheckBox)也称为检查框，主要功能是提供在多种选择中选择一种、选择两种或选择多种的方法。复选框可以单独使用，也可以成组使用；成组使用时，组内每个复选框是独立的，可以被独立选择。,38,38,复选框常用的属性有： 1.Caption属性：显示出现在复选框旁边的文本 2.Value属性：0 - Unchecked、1 - Checked、2 - Grayed，分别代表未选定、选定和禁用状态。 复选框的常用事件有Click事件、GotFocus和LostFocus事件。

16、,39,39,Value属性：该属性指示复选框处于选定、未选定或禁用状态（灰色的）中的哪一种。有三种设置值：0 - Unchecked、1 - Checked、2 Grayed。其缺省值是未选定状态。 若要预先在一系列复选框中选定若干复选框，则应在Form_Load或Form_Initialize过程中将Value属性设置为Checked，也可将属性值设置为Grayed以禁用复选框。,40,40,例【4-13】设计一个程序，窗体上包括学生的基本信息，学生可以利用复选框进行课程选择，信息及课程选择完毕后单击“确定”即可将所有信息在下面显示出来。,41,小结,本章主要介绍了VB语言中的一种重要程序结构选择结构，该结构是Visual Basic程序中常用的3种基本结构之一， 首先介绍选择结构中所用到的基本知识：算术运算符、比较运算符、连接运算符、逻辑运算符与表达式，然后简单介绍一下顺序结构，最后依次介绍几种选择语