VB-选择结构-课件

1第四章选择结构4.1运算符与表达式4.2顺序结构4.3If语句4.4多条件选择语句4.5选项按钮4.6复选框VB选择结构ppt课件2021/3/2611第四章选择结构4.1运算符与表达式VB选择结构24.1.1算术运算符与算术表达式4.1运算符与表达式运算符运算示例结果^乘方2^38-取负-a(a=2)-2*乘法6.5*639.0/除法13/26.5\整除13\26Mod取模15Mod43+加法45+651-减法23-1112两种含义：减法或者取负区别求整型除法的余数VB选择结构ppt课件2021/3/26224.1.1算术运算符与算术表达式4.1运算符与表达34.1.2关系运算符与关系表达式运算符含义示例结果>大于5>3True>=大于等于“a”>=“b”False<小于“abc”<“bcd”True<=小于等于5<=6True=等于“56”=“65”False<>不等于“ABCD”<>”ABC”True优先级的级别都是相同的VB选择结构ppt课件2021/3/26334.1.2关系运算符与关系表达式运算符含义示例结果>大4进行关系运算时，先算出关系运算符两侧表达式的值，然后再进行比较表达式均为数值型时，按数值大小进行比较表达式是字符串型时，对应的字符按ASCII值进行比较数值型与可转换成数值型的数据比较，按转换后的数值进行比较日期型数据的比较，看成”yyyymmdd”的8位整数单精度数不能直接进行”=”的比较，计算机中的浮点数的误差。VB选择结构ppt课件2021/3/2644进行关系运算时，先算出关系运算符两侧表达式的值，然后再进行54.1.3布尔运算符与布尔表达式

运算符含义示例结果说明Not取反NotTF对其后的布尔值取反And与TAndFF当两个值均为真时结果为真Or或TOrFT当两个值均为假时结果为假Xor异或TXorFT两个值相反时，结果才为真Eqv等价TEqvFF两个值相同时，结果才为真Imp蕴含TImpFF第一个值为真，第二个值为假时结果为假，否则结果为真VB选择结构ppt课件2021/3/26554.1.3布尔运算符与布尔表达式运算符含义示例结果说64.1.4字符串运算符与字符串表达式VB只有一种字符串连接符，即连接运算符“&”。字符串表达式的格式为：<字符串1>&<字符串2>[&<字符串3>……&<字符串n>]例如：“xyz”&123&456 ‘运算结果为xyz123456123&“100” ‘运算结果为123100

VB选择结构ppt课件2021/3/26664.1.4字符串运算符与字符串表达式VB只有一种74.1.5运算符的优先顺序优先级运算符类型运算符1算术运算符^(指数运算)2-(取负)3*、/(乘法和除法)4\(整除)5Mod(求模)6+、-(加法和减法)7字符串运算符&(字符串连接)8关系运算符=、<>、<、<=、>、>=9布尔运算符Not(取反)10And(与)11Or、Xor(或和异或)12Eqv(等价)13Imp(蕴含)VB选择结构ppt课件2021/3/26774.1.5运算符的优先顺序优先级运算符类型运算符1算术8求表达式Not8>6Or6>5And5+3>10的值(1)算术运算：Not8>6Or6>5And

8>10(2)关系运算：Not

True

Or

True

And

False(3)取反操作：False

OrTrueAndFalse(4)与操作：FalseOr

False(5)最后得到：FalseVB选择结构ppt课件2021/3/2688求表达式Not8>6Or6>5And5+3>10判断一个年份是否是闰年，需要满足以下条件：该年份能被4整除但不能被100整除，或该年份能被100整除又能被400整除。设y为年份。条件1：ymod4=0Andymod100<>0条件2：ymod100=0Andymod400=0ymod4=0Andymod100<>0Or

ymod100=0Andymod400=0VB选择结构ppt课件2021/3/269判断一个年份是否是闰年，需要满足以下条件：该年份能被4整104.2顺序结构

顺序结构是程序中最基本的一种结构，顾名思义是按照顺序向下执行，一条语句执行完毕之后接着执行下一条语句的结构。VB选择结构ppt课件2021/3/2610104.2顺序结构顺序结构是程序中最基本的一种结构11PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=12Print“a=”;ab=2*aPrint“b=”;bEndSub结果：a=12b=24VB选择结构ppt课件2021/3/261111PrivateSubCommand1_Click(124.3.1单行选择语句If…Then…Else单行选择语句的语法格式为：If<条件>Then语句序列1[Else语句序列2]4.3If语句条件语句序列1语句序列2真假条件表达式的结果为一个布尔值；可以是关系表达式；布尔表达式；数值表达式，非0值为True，0为False；字符串表达式，只允许出现包含数字的字符串。VB选择结构ppt课件2021/3/2612124.3.1单行选择语句If…Then…Else单行选13分析：当x≥2时，用公式y＝x3－9来求y的值；当x<2时，用公式y＝x2＋5x-6来计算y的值。例【4-3】根据以下分段函数，任意输入一个x值，求出y值。VB选择结构ppt课件2021/3/261313分析：当x≥2时，用公式y＝x3－9来求y的值；当x<214x≥2y=x3－9y＝x2＋5x-6真假输入x值输出y值VB选择结构ppt课件2021/3/261414x≥2y=x3－9y＝x2＋5x-6真假输入x值输出y值15PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)Ifx>=2Theny=x^3-9Elsey=x^2+5*x-6Text2.Text=yEndSubVB选择结构ppt课件2021/3/261515PrivateSubCommand1_Click(16IIF语句也是单条件选择结构语句，其语法格式为：IIF(条件，语句序列1，语句序列2)其中：语句序列1是条件为真时要执行的语句块部分，语句序列2是条件为假时要执行的语句块部分。Ifx>=2Theny=x^3-9Elsey=x^2+5*x-6利用IIF语句可将改其写成如下形式：y=IIF(x>=2,x^3–9,x^2+5*x–6)4.3.2IIF语句VB选择结构ppt课件2021/3/261616IIF语句也是单条件选择结构语句，其语法格式为：Ifx17其语法格式如下：If<条件>Then[<语句序列1>][Else[<语句序列2>]]EndIf4.3.3块结构条件语句If…Then…Else…EndIf

当If语句中的语句序列要包含多条语句时，采用块结构条件语句。Ifx>=2Theny=x^3-9Elsey=x^2+5*x–6EndIf块结构中的If语句必须以EndIf结束VB选择结构ppt课件2021/3/261717其语法格式如下：4.3.3块结构条件语句If…The18If语句的嵌套是指语句序列1或语句序列2本身又是一个If语句。

语法格式：If<条件1>ThenIf<条件2>Then<语句序列1>Else<语句序列2>EndIfElse<语句序列3>EndIf4.3.4If语句的嵌套VB选择结构ppt课件2021/3/261818If语句的嵌套是指语句序列1或语句序列2本身又是一19条件2条件1VB选择结构ppt课件2021/3/261919条件2条件1VB选择结构ppt课件2021/3/2620例：铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是行李重量不超过50kg时，0.25元/kg，超过50kg而不超过100kg时，其超过部分按0.35元/kg收费，超过100kg时，其超过部分按0.45元/kg收费。编写程序，输入行李重量，计算并输出托运的费用。分析：设行李重量为wkg，应付运费为x元，则运费公式为：VB选择结构ppt课件2021/3/262020例：铁路托运行李，从甲地到乙地，规定每张客票托运费计21PrivateSubCommand1_Click()DimwAsSingle,xAsSinglew=Val(Text1.Text)

Ifw<=50Thenx=0.25*w

Else

Ifw<=100Then x=0.25*50+0.35*(w–50)

Elsex=0.25*50+0.35*50+0.45*(w–100)

EndIf

EndIfText2.Text=xEndSubVB选择结构ppt课件2021/3/262121PrivateSubCommand1_Click()22多层的If语句嵌套格式使程序冗长复杂。ElseIf语句的语法格式如下：If<条件1>Then[语句序列1]ElseIf<条件2>Then[语句序列2]

……Else[语句序列n+1]EndIf4.3.5ElseIf语句VB选择结构ppt课件2021/3/262222多层的If语句嵌套格式使程序冗长复杂。ElseIf语句23例【4-8】学生成绩采用五分制：成绩小于60分为“不及格”，大于等于60小于70为“及格”，大于等于70小于80为“中”，大于等于80小于90为“良”，大于等于90为“优”。试编写程序判断某学生的成绩等级。分析：可从文本框1中获取学生成绩，然后进行判断并在文本框2中输出。VB选择结构ppt课件2021/3/262323例【4-8】学生成绩采用五分制：成绩小于60分为“不及格Ifscore>=0Andscore<60Thend="不及格"ElseIfscore>=60Andscore<70Thend="及格"ElseIfscore>=70Andscore<80Thend="中"ElseIfscore>=80Andscore<90Thend="良"ElseIfscore>=90Andscore<=100Thend="优“Elsed="输入错误！"EndIfVB选择结构ppt课件2021/3/2624Ifscore>=0Andscore<60Ta=75Ifa>60thenb=1Ifa>70thenb=2Ifa>80thenb=3Ifa>90thenb=4a=75Ifa>60thenb=1ElseIfa>70thenb=2ElseIfa>80thenb=3ElseIfa>90thenb=4Elseb=0EndIfVB选择结构ppt课件2021/3/2625a=75a=75VB选择结构ppt课件2021/3/2626语法格式如下：SelectCase<测试条件>[Case<表达式列表1>语句序列1][Case<表达式列表2>语句序列2]……[Case<表达式列表n>

语句序列n][CaseElse

语句序列n+1]EndSelect4.4多条件选择语句SelectCaseVB选择结构ppt课件2021/3/262626语法格式如下：4.4多条件选择语句SelectCa27VB选择结构ppt课件2021/3/262727VB选择结构ppt课件2021/3/262728Case子句中的表达式列表可以有以下几种形式：形式示例说明表达式Case2*a，12，14数值或字符串，测试条件的值可以是2*a，12，14三者之一表达式1To表达式2Case1To101≤测试条件值≤10Is关系运算符表达式Is<100测试条件值<100VB选择结构ppt课件2021/3/262828Case子句中的表达式列表可以有以下几种形式：形式示例说29例【4-10】判断某一闰年中任意给定的月份有多少天。分析：在闰年中，2月有29天，1、3、5、7、8、10、12月有31天，其他月份有30天。这是个多个条件的选择问题，用SelectCase语句实现。设计时有文本框1提供月份的输入，文本框2用于输出该月有多少天，点击“判断”按钮进行判断。VB选择结构ppt课件2021/3/262929例【4-10】判断某一闰年中任意给定的月份有多少天。VBPrivateSubCommand1_Click()DimmAsIntegerm=Val(Text1.Text)SelectCasemCaseIs<0,Is>12Text2.Text="输入错误"Case2Text2.Text="本月有29天"Case1,3,5,7,8,10,12Text2.Text="本月有31天"CaseElseText2.Text="本月有30天"EndSelectEndSubVB选择结构ppt课件2021/3/2630PrivateSubCommand1_Click()V2.输入3个不同的数，将它们从大到小排序3.假定每周的工作安排：星期一、三：计算机；星期二、四：高等数学；星期五：英语；星期六、日：休息。输入星期，输出安排。

提示：用0~6代表星期日到星期六。1.按下列公式计算Y值练习VB选择结构ppt课件2021/3/26312.输入3个不同的数，将它们从大到小排序3.假定每周的工作安324.5选项按钮控件选项按钮(OptionButton)就是我们通常所说的单选按钮，它的主要功能是提供一组选择，这些选择是互斥的，要求在这些互斥的选择中根据需要选取一个且只能选取一个。属性名说明Value选项按钮的选择状态：True表示被选中，False表示未被选中Caption显示出现在选项按钮旁边的文本Style显示风格：0―标准方式，选中时出现圆黑点，1—图形方式，外观类似命令按钮，按下时表示选中Picture在选项按钮选用图片常用属性VB选择结构ppt课件2021/3/2632324.5选项按钮控件选项按钮(OptionBut33Value属性：选项按钮的Value属性指出是否选定了此按钮。选定时，值将变为True，可在代码中设置选项按钮的Value属性来选定按钮。例如：

Option1．Value=True要在选项按钮组中设置缺省选项按钮，可在设计时通过设置Value属性，也可在运行时在代码中用上述语句来设置Value属性。

VB选择结构ppt课件2021/3/263333Value属性：选项按钮的Value属性指出是否选定了此34选项按钮常用的事件是Click、GotFocus(获得焦点)、LostFocus(失去焦点)事件。常用的方法是SetFocus方法，即让该选项按钮获得焦点，此时其Value值为True。一个选项按钮可以用以下几种方法选择：1.在运行时单击该选项按钮2.用代码使它的Value值为True，即

Option1.Value=True3.在选项按钮组内使用方向键选择选项按钮VB选择结构ppt课件2021/3/263434选项按钮常用的事件是Click、GotFocus(获得焦35Click事件：

选定选项按钮时将触发其Click事件。是否有必要响应此事件，这将取决于应用程序的功能。在平常应用中，常常需要几组选项，这就需要创建选项组。要将选项按钮分组，可把它们创建在不同的容器控件中，像Frame控件、Picture控件。运行时，用户在每个选项组中只能选定一个选项按钮。VB选择结构ppt课件2021/3/263535Click事件：选定选项按钮时将触发其Click事件。36例【4-11】利用选项按钮修改文本框中文字的字体，共有宋体、隶书