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>