【文档说明】计算机基础与VisualBasic程序设计(第三版)第七章VisualBasic控制结构选择结构课件.ppt，共(26)页，558.500 KB，由小橙橙上传

转载请保留链接：https://www.ichengzhen.cn/view-2504.html

以下为本文档部分文字说明：

第七章VisualBasic控制结构-选择结构1.掌握If条件语句2.SelectCase选择语句3.选择嵌套结构本章重点：学习掌握If条件语句和SelectCase语句的格式及其使用。本章难点：选择嵌套结构本章内容及要求：第1页，共26页。7.1.1赋值语句赋值语句是任何程序设计

中最基本的语句，赋值语句都是按顺序执行的。赋值语句的形式为：[Let]变量名=表达式[Let]对象名.属性名=表达式其中，关键字Let为可选项，通常都省略该关键字。它的作用是计算右边表达式的值，然后赋给左边的变量，表达式的类型应该与变量名

的类型一致。7.1顺序结构第2页，共26页。（1）当表达式为数值型且与变量的精度不相同时，强制转换成左边变量的精度。例如：iA%=4.7′iA是整型变量，iA中的结果是5（2）当表达式是数字字符串，左边变量是数值类型时，自动转换成数值类型再赋值；

但当表达式有非数字字符或空串时，则出错。例如；n%="123"'n中的结果是123，与n%=Val("123")效果相同n%=“1a23”‘出现“类型不匹配”的错误（3）赋值号左边只能是变量，不能是表达式、常量。如下面的赋值语句。7.1.1赋值语句第3页，共26页。sin(x)=x+y'左边

是表达式5=sqr(s)+a+b'左边是常量x+y=a+b'左边是表达式是错误的（4）不能在同一语句中给多个变量赋值。例如：a=b=c=1我们的本意是给a、b、c赋初值1，书写上没有错误。但VisualBasic编译时，将右边两个“=”作为关系运算符处理，先进行b=c的比较，结果为true

(-1)；接着进行True=1的比较，结果为False(0)；最后将false的值赋给a。7.1.1赋值语句第4页，共26页。(5)当逻辑型赋值给数值型时，True转换为-1，False转换为0；反之，非0转换为True，0转换为False。(6)任

何非字符类型赋值给字符类型，自动转换为字符类型。(7)注意N=N+1是累加中常见的赋值语句，表示将N变量中的值加1后再赋值给N。7.1.1赋值语句第5页，共26页。With结构用于对一个单一对象或用户定义对象执行一系列的

语句，其格式为：With对象语句块EndWith使用With结构可以对某个对象执行一系列的语句，而不用重复指出该对象的名称。With结构语句第6页，共26页。End语句通常用来结束一个程序的执行。其格式为：End当

在程序中执行End语句时，将终止当前程序，重置所有变量，并关闭所有的数据文件。7.1.2结束语句End第7页，共26页。Stop语句用来暂停程序的执行，使用Stop语句，就相当于执行“运行”菜单中的“中断”命令。其格式为：Stop功能：是把解释程序置为中断模式，以便

于对程序进行检查和调试。7.1.3暂停语句Stop第8页，共26页。7.2选择结构❖选择结构：当设定条件成立时执行某些语句，条件不成立时则跳过这些语句或执行其它的语句。❖选择结构中要使用选择语句，在VB中提供了两种语句：❖If语句和SelectCase语句第9页，共26页。1、If单分支结

构格式1:If<表达式>Then<语句>其中，<表达式>是一个条件表达式或逻辑表达式格式2：If<表达式>Then<语句块>EndIfTF语句（块）表达式单分支结构第10页，共26页。1、If单分支结构说明：①表达式都是逻辑表达式，数值表达式和关系表达式被视为逻辑表达式的特例。当表达式

为数值表达式时，VB将这个值解释为True或False：一个为零的数值为False，而任何非零数值都被看作True。②语句块可以是一条或多条语句。如果使用格式1的简单形式表示，则只能是一条语句；或用冒号隔开的多条语句，但这些语句必须书写在一行上

。③可以使用单行或多行语法有条件地执行一个语句。下面两个例子是等价的：IfanyDate<NowThenanyDate=Now和IfanyDate<NowThenanyDate=NowEndIf④If...Then的单行格式不用EndIf语句。第11

页，共26页。1、If单分支结构例5-1：输入一个数，如果是奇数则通过消息框输出该数。PrivateSubForm_Click()DimxAsIntegerx=InputBox("请输入一个值：")IfxMod2=1ThenMsgBoxxEndSubData是3的倍数X是奇数?输出

xTF第12页，共26页。格式1：If<表达式>Then<语句块1>Else<语句块2>EndIf格式2：If<表达式>Then<语句1>Else<语句2>2、If双分支结构❖功能：当表达式的值为非0（True）时,执行Then后面的语句块1，否则执行Els

e后面的语句块2。表达式语句块1语句块2TF第13页，共26页。2、If双分支结构例如，DimDataAsIntegerData=InputBox(“请输入成绩：")IfData>=90ThenPrint“优秀”ElsePrint“合格”Print"计算完毕"上

例的If语句可以改写为：IfData>=90ThenPrint“优秀”ElsePrint“合格”EndIfData>=90?输出“优秀”TF输出“合格”输出“计算完毕”第14页，共26页。❖条件函数：❖I

If函数形式是：❖IIf（表达式，当表达式为True时的值，当表达式为False时的值）❖iif函数等价于双分支结构语句。❖例如，求x,y中大的数，放入Tmax变量中，语句如下：❖Tmax=IIf（x>y，x，y）❖等价于：Ifx>yThenTmax=xelse

Tmax=y第15页，共26页。格式：If<表达式1>Then<语句块1>ElseIf<表达式2>Then<语句块2>…[Else语句块n+1]EndIf说明：不管有几个分支,依次判断，当某条件满足，执行相应的语句块，其余分支不再执行；若条件都不满足，且

有Else子句，则执行该语句块，否则什么也不执行。ElseIf不能写成ElseIf。3、If多分支结构第16页，共26页。说明：①不管有几个分支，程序执行了一个分支后，其余分支不再执行。②ElseIf子句的数量

没有限制，可以根据需要使用任意多个ElseIf子句。③语句中的ElseIf子句和Else子句都是可选项，如果省略这些子句，则成为单分支结构。④If...Then...ElseIf只是If...Then...Else的一个特例。注意，可以使用任意数量的ElseIf子句，或者一个也不用。可以有

一个Else子句，而不管有没有ElseIf子句。第17页，共26页。例5-5已知百分制成绩mark，显示对应的五级制成绩，哪些正确，哪些错误？方法一Ifmark>=90ThenPrint"优"ElseIfmark>=80ThenPrint"良"ElseIfmark>=70ThenPrint"中"

ElseIfmark>=60ThenPrint"及格"ElsePrint"不及格"EndIf方法二Ifmark<60ThenPrint"不及格"ElseIfmark<70ThenPrint"及格"ElseIfmark

<80ThenPrint"中"ElseIfmark<90ThenPrint"良"ElsePrint"优"EndIf方法三Ifmark>=60ThenPrint"及格"ElseIfmark>=70ThenPrint"中"ElseIfmark>=80ThenPr

int"良"ElseIfmark>=90ThenPrint"优"ElsePrint"不及格"EndIf第18页，共26页。SelectCase选择语句❖语法格式：SelectCase<测试表达式>Ca

se<表达式1><语句1>Case<表达式2><语句2>………[CaseElse<语句n+1>]EndSelect❖功能：根据测试表达式的值，决定程序的流向。表达式块1表达式块2表达式块n语句快n+1语句块1语句块2语句块n第19页，共26页。

SelectCase选择语句说明：（1）<测试表达式>值的类型是数值型、字符串型、日期型等，一旦与某个Case后的<表达式>值相等，则执行这个Case中的<语句>，完成后执行EndSelect后的语句。（2）如果所有的Case后的<表达式>都不与<测试表达式

>项匹配，则执行CaseElse后的<语句>。（3）表达式表与测试变量或表达式的类型必须相同，每一个表达式表是一个或几个值的列表。如果在一个列表中有多个值，就用逗号把值隔开。表达式表有四种形式：•一个表达式。如：Case6•一组用逗号隔开

的枚举值。如：Case1，3，5，7•表达式1TO表达式2。如：Case1To10•Is<关系运算符><表达式>。如：CaseIs>=80•另外，在一个情况语句中，上述四种形式可以混合使用第20页，共26页。SelectCase选择语句说明：（4）Selec

tCase语句在执行时，先求测试表达式的值，然后寻找该值与哪一个Case子句的表达式值相匹配，找到后则执行与该Case语句有关的语句块，之后自动转到EndSelect后的语句执行；如果没有找到与Case子句中的表达式相匹配的值，则

执行CaseElse子句有关的语句块，然后转到EndSelect后面的语句执行。（5）当有多个Case子句的取值范围和测试表达式的值域相符时，只执行符合要求的第一个Case子句后的语句块。（6)SelectCase语句只对单个表达

式求值，并根据求值结果执行不同的语句块；而If…Then…Else语句可以对不同的表达式求值，然后执行不同的操作。这是两者的主要区别。第21页，共26页。Data=InputBox("请输入一个成绩","成绩分等")SelectCaseDataCase

is=100MsgBox"满分",,"成绩分等"Caseis>=90MsgBox"优秀",,"成绩分等"Caseis>=80MsgBox"良好",,"成绩分等"Caseis>=70MsgBox"一般",,"成绩分等"Casei

s>=60MsgBox"合格",,"成绩分等"CaseElseMsgBox"不合格",,"成绩分等"EndSelect单击窗体确定例题：用Select语句实现按输入学生成绩分等级。第22页，共26页。Data=InputBox("请输入一个成绩","成绩分等")SelectC

aseInt(Data/10)Case10MsgBox“满分Case9MsgBox"优秀"Case8MsgBox"良好"Case7MsgBox"一般"Case6MsgBox"合格"CaseElseMsgBox"不合格"EndSelect映射法表达条件第23页，共26页。Char=In

putBox("请输入一个字符","测试")SelectCaseCharCase"0"To"9"MsgBox"字符是数字",,"测试"Case"a"To"z"MsgBox"字符是小写字母",,"测试"

Case"A"To"Z"MsgBox"字符是大写字母",,"测试"CaseElseMsgBox"字符是其它符号",,"测试"EndSelect确定单击窗体例题：测试输入的字符第24页，共26页。上面学习了选择结构语句的基本形式，可以通过这些基本形式加以复合，获得更为复杂的选择结构，称为选择

结构语句的嵌套。可根据实际情况选择采用何种结构。例如：4、嵌套结构第25页，共26页。例题：求一元二次方程ax2+bx+c=0的解。分析:3个文本框、2个标签、1个按钮。一些辅助标签。(1)如果a=0，则不是二次方程，此时如果b=0，则提示重新输入系数；如果b<>

0，则:x=-c/b(2)如果a<>0，且b2-4ac=0，则有两个相等的实根(3)如果a<>0，且b2-4ac>0，则有两个不等的实根(4)如果a<>0，且b2-4ac<0，则有两个共轭复根思考题：设计一个口令检测程序，界面如下图，当用户输入的口令正确时，显示

“恭喜！，您已成功进入本系统”，否则，显示，“口令错！，请重新输入”。如果连续两次输入了错误口令，在第三次输入完口令后则显示一个消息框，提示“对不起,您不能使用本系统”，然后退出整个应用程序。第26页，共26页。