《选择结构程序设计单行结构条件语句单分支结构If表.pptx》由会员分享，可在线阅读，更多相关《选择结构程序设计单行结构条件语句单分支结构If表.pptx（23页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、 IfanyDateNowThenanyDate=NowIfanyDateNowThenanyDate=NowEndIfIfThen的单行格式不用EndIf语句。例3.5第1页/共23页2.双分支结构条件语句：IfThenElseEndIfIfThenElse当表达式值为非零时，执行Then后的语句1（或语句1）否则执行Else后面的语句块2（或语句2）。说明：块结构的条件语句可以嵌套，即把一个IfThen.Elsef块放在另一个IfThen.Elsef块内，嵌套必须完全嵌套，也就是内层条件语句必须完全包含在外层条件语句之中。例3.6-3.7第2页/共23页3.IfThenElseIf（多分支
2、结构）IfThenElseIfThenElseEndIf执行过程为：如果表达式1为真，执行语句块1，否则，如果表达式2为真，则执行语句块2，如果条件都不是真，则执行Else后的语句块。第3页/共23页说明：不管有几个分支，程序执行了一个分支后，其余分支不再进行。ElseIf子句的数量没有限制，可以根据需要使用任意多个ElseIf子句。语句中的ElseIf子句和Else子句者是可选项，如果省略这些子句，则成为单分支结构。IfThenElseIf只是IfThenElse的一个特例。可以使用任意数量的ElseIf子句，或者一个也不用。可以有一个Else子句，而不管有没有ElseIf子句。例3.83.
3、9第4页/共23页PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingleDimpAsSingle,sAsSingleText1.Text=:Text2.Text=:Text3.Text=a=val(Text1):b=val(Text2)t:c=val(Text3)tIfa+bcandb+caanda+cbthenp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c)Elseprint“它不能构成一个三角形”EndIfEndSub第5页/共23页 编写一个统计学生考试成绩的程序：如果满足条件CJ60时，打印出“成绩不及格”，
4、采用的条件语句是：IfCJ60ThenPrint成绩不及格多行代码：IfCJ60ThenPrint成绩不及格“Print请准备补考EndIf第6页/共23页 PrivateSubCommand1_Click()DimscoreAsInteger,tempAsStringscore=Val(Text1.Text)temp=成绩等级为：Ifscore0ThenLabel2.Caption=成绩出错ElseIfscore60ThenLabel2.Caption=temp+不及格ElseIfscore=79ThenLabel2.Caption=temp+及格ElseIfscore=100ThenLab
5、el2.Caption=temp+优良ElseLabel2.Caption=成绩出错EndIfEndSub第7页/共23页4.Select Case选择结构（多分支结构）格式：Select Case 测试变量或表达式 Case 表达式表1 语句块1 Case 表达式表2 语句块2 Case 表达式表n 语句块n Case 表达式表n+1 语句块n+1 End Select第8页/共23页SelectCase在结构的上方处理一个测试变量或表达式，并且只计算一次，然后根据测试变量或表达式的值，从多个语句块中选择符合条件（值相等）的一个语句块执行,之后自动转到EndSelect后的语句执行；如果没有
6、找到与Case子句中的表达式相匹配的值，则执行CaseElse子句后面的语句块，然后转到EndSelect后的语句执行。测试变量或表达式只能是数值表达式或字符串表达式，不能是逻辑表达式。语句块由一行或多行语句组成。表达式表与测试变量或表达式的类型必须相同，每一个表达式是一个或几个值的列表。如果在一个列表中有多个值，用逗号分隔。第9页/共23页一个表达式：Case6一组枚举表达式：Case1，3，5，7Case“I”，“YOU”，“Then”表达式1To表达式2。该形式指定某个数值范围，较小的数值在前面，较大的数值在后面：字符串常量则按字母的ASCII码顺序从低到高排列。Case1To10Cas
7、e“a”To“e”第10页/共23页Is。CaseIs=80CaseIs”Y”当有多个Case子句的取值范围和测试表达式的值相符时，只执行符合要求的第一个Case子句后面的语句块。SelectCase语句只对单个表达式求值，并根据求值结果执行不同的语句块；而IfThenElse语句可以对不同的表达式求值，然而招待不同的操作。第11页/共23页 表达式表通常是一个具体值(如Case1)，每一个值确定一个分支。还有三种方法可以确定设定值：(1)一组值(用逗号隔开)。示例：Case1,3,5表示条件在1，3，5范围内取值(2)表达式1TO表达式2。示例：Case60To80表示条件取值范围为6080
8、(3)Is关系式。示例：CaseIs 0计算复根的虚部P=sqr(D)/(2*a)X1=(b+sqr(D)/(2*a)X2=(bsqr(D)/(2*a)结束第19页/共23页 PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimDAsSingle,X1AsSingle,X2AsSingleDimRAsSingle,PAsSinglea=Val(Text1.Text)取数据ab=Val(Text2.Text)取数据bc=Val(Text3.Text)取数据cIfa=0Then当a=0Text4.Text=不是二次方程Text5.Text=不是二次方程Elsea0D=b*b-4*a*cR=-b/(2*a)第20页/共23页 IfD=0ThenD=0Text4.Text=RText5.Text=RElseIfD0ThenD0X1=(-b+Sqr(D)/(2*a)X2=(-b-Sqr(D)/(2*a)Text4.Text=X1Text5.Text=X2ElseD0P=Sqr(-D)/(2*a)Text4.Text=R&+&P&iText5.Text=R&-&P&iEndIfEndIfEndSub第21页/共23页 第22页/共23页感谢您的观看！第23页/共23页