vb教程,分支结构.ppt

《vb教程,分支结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第5章选择结构程序设计本章要点:条件语句•单行结构条件语句If...Then...Else•块结构条件语句If...Then...EndIf•多分支选择语句SelectCase...EndSelect特点:根据条件是否成立，决定程序的执行分支15.1单行结构条件语句1.格式If<条件>Then[<语句组1>][Else<语句组2>]2.功能如果<条件>成立，则执行<语句组1>否则执行<语句组2>3.说明(1)<条件>:关系表达式、布尔表达式数值表达式(0为False，非0为True)字符串表达式("0"为False,非"

2、0"为True)(2)<语句组1>、<语句组2>:可以有多条语句，各语句之间用冒号隔开。(3)可以没有Else部分，这时必须有<语句组1>。2例:IfN>0ThenA=A+B:B=B+AElseA=A-B:B=B-A例:IfX<>"aaa"ThenPrintX【例5-1】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。

3、x

4、x≤0lnxx>0y=PrivateSubCommand1_Click()X=Val(Text1.Text)IfX<=0ThenY=Abs(X)ElseY=Log(

5、X)Label3.Caption=YEndSubCommand1Text1Label334.注意(1)应作为一条语句书写(2)无论条件是否成立，都具有共同出口例:IfX>=0ThenX=1+XElseX=5-XY=1-XPrint"Y=";Y若X=2则打印Y=-2若X=-2则打印Y=-6共同出口X=Val(Text1.Text)Y=Abs(X)IfX>0ThenY=Log(X)Label3.Caption=YX=Val(Text1.Text)Y=Log(X)IfX<=0ThenY=Abs(X)Label3.Caption

6、=Y例:改写例5-1，比较:45.嵌套IF...THEN...IF...THEN...ELSE...ELSE…【例5-2】平面直角坐标系中，不同的象限内，点的坐标的符号有以下4种情况:XYABCD在A象限X>0,Y>0BX<0,Y>0CX<0,Y<0DX>0,Y<0任意输入一对坐标值，找出它所在的象限。5PrivateSubCommand1_Click()X=Val(Text1.Text):Y=Val(Text2.Text)IfX=0OrY=0ThenPrint"不在任何象限内":_ExitSubIfX>0ThenIfY

7、>0ThenPrint"INA"Else_Print"IND"ElseIfY>0ThenPrint"INB"_ElsePrint"INC"EndSub65.2块结构条件语句1.格式If<条件1>Then[<语句组1>][ElseIf<条件2>Then[<语句组2>]]……[ElseIf<条件N>Then[<语句组N>]][Else[<其他语句组>]]EndIf功能:……If<条件1>Then[语句组1]Else[语句组2]EndIfElse子句ElseIf子句If语句EndIf语句注意:格式书写、嵌套7【例5-3】输入华

8、氏温度F，利用公式C=5/9*(F-32)转换成摄氏温度C，根据转换结果C的不同值，按以下要求给出相应的提示。C>40时，打印"HOT"3040Then

9、Label2.Caption="HOT"ElseIfC>30ThenLabel2.Caption="WARM"ElseIfC>20ThenLabel2.Caption="ROOMTEMPERATURE"ElseIfC>10ThenLabel2.Caption="COOL"ElseIfC>0ThenLabel2.Caption="COLD"ElseLabel2.Caption="FREEZING"EndIfEndSub95.3多分支选择语句1.格式SelectCase<测试表达式>Case<表达式表1>[<语句组1>][C

10、ase<表达式表2>[<语句组2>]]…[CaseElse[<语句组n>]]EndSelect2.功能:根据测试表达式的值,按顺序匹配Case后的表达式,如果匹配成功,则执行该Case下的语句块,然后转到EndSelect语句之后继续执行。103.说明<测试表达式>:数值或字符表达式Case表达式表:表中的表项为如下