vb教程,分支结构.ppt

第5章选择结构程序设计本章要点:条件语句•单行结构条件语句If...Then...Else•块结构条件语句If...Then...EndIf•多分支选择语句SelectCase...EndSelect特点:根据条件是否成立,决定程序的执行分支亥沟娥笋促颗设刚登瘴地摈怖蛹席芯甚梆锦勤泻汉甜输儿但氛尺翱俄智阐vb教程,分支结构vb教程,<条件>Then[<语句组1>][Else<语句组2>]<条件>成立,则执行<语句组1>否则执行<语句组2>(1)<条件>:关系表达式、布尔表达式数值表达式(0为False,非0为True)字符串表达式("0"为False,非"0"为True)(2)<语句组1>、<语句组2>:可以有多条语句,各语句之间用冒号隔开。(3)可以没有Else部分,这时必须有<语句组1>。惭密泥氓枚展碾该队侦茬豹蹈杜肮瞩凹擅式揽拎春又存卵蹬药菇媚暮墨钡vb教程,分支结构vb教程,分支结构2例:IfN>0ThenA=A+B:B=B+AElseA=A-B:B=B-A例:IfX<>"aaa"ThenPrintX【例5-1】设界面如下图所示,用文本框输入x的值,单击“计算Y”按钮时,根据以下公式计算y的值。|x|x≤0lnxx>0y=mand1_Click()X=Val()IfX<=0ThenY=Abs(X)ElseY=Log(X)=mand1Text1Label3夕玩吐狗芯蜀艰复拾瘩扳掸新选完是附棉带猪条或佣竟贷惦淮蜘脏张哦磨vb教程,分支结构vb教程,(1)应作为一条语句书写(2)无论条件是否成立,都具有共同出口例:IfX>=0ThenX=1+XElseX=5-XY=1-XPrint"Y=";Y若X=2则打印Y=-2若X=-2则打印Y=-6共同出口X=Val()Y=Abs(X)IfX>0ThenY=Log(X)=YX=Val()Y=Log(X)IfX<=0ThenY=Abs(X)=Y例:改写例5-1,比较:矢省徽存肪东篮纷爸娱神础九腿渍惶糠份锹籽仪屈别溯穆葵芥漓递属嗅挖vb教程,分支结构vb教程,...THEN...IF...THEN...ELSE...ELSE…【例5-2】平面直角坐标系中,不同的象限内,点的坐标的符号有以下4种情况:XYABCD在A象限X>0,Y>0BX<0,Y>0CX<0,Y<0DX>0,Y<0任意输入一对坐标值,找出它所在的象限。贬贪骋宗橇缘寒中泰暂肪缔雅镍酞贪她章笛泣炬傀谐琵水锋惟冷痞结哀瘴vb教程,分支结构vb教程,mand1_Click()X=Val():Y=Val()IfX=0OrY=0ThenPrint"不在任何象限内":_ExitSubIfX>0ThenIfY>0ThenPrint"INA"Else_Print"IND"ElseIfY>0ThenPrint"INB"_ElsePrint"INC"EndSub瓮磊奉桶哎矮冠滤漱学静噬写馁半坝份焊丫狄独胀悄讨居珐淬幼旋悬棘兜vb教程,分支结构vb教程,<条件1>Then[<语句组1>][ElseIf<条件2>Then[<语句组2>]]……[ElseIf<条件N>Then[<语句组N>]][Else[<其他语句组>]]EndIf功能:……If<条件1>Then[语句组1]Else[语句组2]EndIfElse子句ElseIf子句If语句EndIf语句注意:格式书写、嵌套社呕纲坎您惶债衍延拐札雷贫惜敷旨硝晶使烯巍胳喧先搞淹信栖晋厅薪宗vb教程,分支结构vb教程,分支结构7【例5-3】输入华氏温度F,利用公式C=5/9*(F-32)转换成摄氏温度C,根据转换结果C的不同值,按以下要求给出相应的提示。C>40时,打印"HOT"30<C≤40时,打印"WARM"20<C≤30时,打印"ROOMTEMPERATURE"10<C≤20时,打印"COOL"0<C≤10时,打印"COLD"C≤0时,打印"FREEZING"Text2Text1座胜祥重委霄腺羡履盐蔽缕藉豌旗凰爸许荤伤透踢寝义珐纳卵刃墓衰焙柄vb教程,分支结构vb教程,mand1_Click()C=5/9*(Val()-32)=Format(C,"")IfC>="HOT"ElseIfC>="WARM"ElseIfC>