vb教程分支结构.ppt

第5章5.1单行结构条件语句例:IfN>0ThenA=A+B:B=B+AElseA=A-B:B=B-A
例:IfX<>"aaa"ThenPrintX
【例5-1】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。4.注意
(1)应作为一条语句书写
(2)无论条件是否成立，都具有共同出口
例:IfX>=0ThenX=1+XElseX=5-X
Y=1-X
Print"Y=";Y
若X=2则打印Y=-2
若X=-2则打印Y=-6
5.嵌套
IF...THEN...IF...THEN...ELSE...ELSE…
【例5-2】平面直角坐标系中，不同的象限内，点的坐标的符号有以下4种情况:PrivateSubCommand1_Click()
X=Val(Text1.Text):Y=Val(Text2.Text)
IfX=0OrY=0ThenPrint"不在任何象限内":_
ExitSub
IfX>0ThenIfY>0ThenPrint"INA"Else_
Print"IND"ElseIfY>0ThenPrint"INB"_
ElsePrint"INC"
EndSub5.2块结构条件语句【例5-3】输入华氏温度F，利用公式C=5/9*(F-32)转换成摄氏温度C，根据转换结果C的不同值，按以下要求给出相应的提示。PrivateSubCommand1_Click()
C=5/9*(Val(Text1.Text)-32)
Text2.Text=Format(C,"0.00")
IfC>40Then
Label2.Caption="HOT"
ElseIfC>30Then
Label2.Caption="WARM"
ElseIfC>20Then
Label2.Caption="ROOMTEMPERATURE"
ElseIfC>10Then
Label2.Caption="COOL"
ElseIfC>0Then
Label2.Caption="COLD"
Else
Label2.Caption="FREEZING"
EndIf
EndSub5.3多分支选择语句3.说明
<测试表达式>:数值或字符表达式
Case表达式表:表中的表项为如下形式:
(1)表达式1[,表达式2]...
如:Case1,3,5
(2)表达式1TO表达式2
如:Case10TO30
Case"A"TO"Z"
(3)Is<关系运算符><表达式>
如:CaseIs>=10
CaseIs=0与Case0相同
注意:测试表达式的类型应与Case后表达式类型一致，且三种形式可以混用,如:
CaseIs<-5,0,5To100Y=5.4应用举例PrivateSubText1_KeyUp(KeyCodeAsInteger,_ShiftAsInteger)
StaticIAsInteger'保存输入错误口令的次数
IfKeyCode=13Then'如果按下的键为回车键
IfUCase(Text1.Text)="HELLO"Then
Label2.Caption="恭喜!,您已成功进入本系统"
ElseIfI=0OrI=1Then
I=I+1
Label2.Caption="口令错!,请重新输入"
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
Else
MsgBox"对不起,您不能使用本系统":End
EndIf
EndIf
EndSub【例5-6】求一元二次方程ax2+bx+c=0的解。
分析:
(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，则有两个共轭复根PrivateSubCommand1_Click()
A=Val(Text1.Text):B=Val(Text2.Text)
C=Val(Text3.Text):Cls
CurrentX=600:CurrentY=1100
IfA=0Then
IfB=0Then
MsgBox"系数为零，请重新输入"
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
Else
X=-C/B
Print"X=";Format(X,"0.000")
EndIf
ExitSub
EndIfDelta=B^2-4*A*C
SelectCaseDelta
Case0
Print"X1=X2=";Format(-B/(2*A),"0.000")
CaseIs>0
X1=(-B+Sqr(Delta))/(