《vb教程-分支结构》由会员分享，可在线阅读，更多相关《vb教程-分支结构（28页珍藏版）》请在金锄头文库上搜索。
1、V i s u a l B A S I C 程程序序设设计计第第5 5章章选择结构程序设计选择结构程序设计 本章要点本章要点: : 条件语句条件语句 单行结构条件语句单行结构条件语句If.Then.ElseIf.Then.Else 块结构条件语句块结构条件语句If.Then.EndIfIf.Then.EndIf 多分支选择语句多分支选择语句Select Case.End SelectSelect Case.End Select特点特点: 根据条件是否成立，决定程序的执行分支根据条件是否成立，决定程序的执行分支1第第五五章章 选选择择结结构构程程序序设设计计5.1 5.1 单行结构条件语句单行结
2、构条件语句1. 格式格式 If Then Else 2. 功能功能 如果如果 成立，则执行成立，则执行 否则执行否则执行 3. 说明说明(1) : 关系表达式、布尔表达式关系表达式、布尔表达式 数值表达式数值表达式(0为为False，非非0为为True) 字符串表达式字符串表达式(0为为False,非非0为为True)(2) 、 : 可以有多条语句，各语可以有多条语句，各语句之间用冒号隔开。句之间用冒号隔开。(3)可以没有可以没有Else部分，这时必须有部分，这时必须有 。2第第五五章章 选选择择结结构构程程序序设设计计例例: If N0 Then A=A+B:B=B+A Else A=A-B
3、:B=B-A例例: If Xaaa Then Print X【例【例5-1】设界面如下图所示，用文本框输入】设界面如下图所示，用文本框输入x的值，的值，单击单击“计算计算Y”按钮时，根据以下公式计算按钮时，根据以下公式计算y的值。的值。|x| x0lnx x0y=Private Sub Command1_Click() X = Val(Text1.Text) If X = 0 Then X = 1 + X Else X = 5 - X Y = 1 - X Print Y=; Y 若若 X=2 则打印则打印 Y=-2 若若 X=-2 则打印则打印 Y=-6共同出口共同出口X = Val(Text
4、1.Text)Y = Abs(X)If X 0 Then Y = Log(X)Label3.Caption = YX = Val(Text1.Text)Y = Log(X)If X 0,Y0X0,Y0 B X0 B X0 C X0,Y0 C X0,Y0,Y0,Y 0 Then If Y 0 Then Print IN A Else _ Print IN D Else If Y 0 Then Print IN B _ Else Print IN C End Sub6第第五五章章 选选择择结结构构程程序序设设计计5.2 5.2 块结构条件语句块结构条件语句1.1.格式格式If 1 Then 1 E
5、lseIf 2 Then 2 ElseIf N Then N Else End If功能功能: If 1 Then 语句组语句组11Else 语句组语句组22End IfElseElse子句子句ElseIfElseIf子句子句IfIf语句语句End IfEnd If语句语句注意注意: 格式书写、嵌套格式书写、嵌套7第第五五章章 选选择择结结构构程程序序设设计计【例【例5-3】输入华氏温度】输入华氏温度F，利用公式，利用公式C=5/9*(F-32)转换成摄氏温度转换成摄氏温度C，根据，根据转换结果转换结果C的不同值，按的不同值，按以下要求给出相应的提示。以下要求给出相应的提示。C40时，打印时，
6、打印HOT 30C40时，打印时，打印 WARM 20C30时，打印时，打印 ROOM TEMPERATURE 10C20时，打印时，打印 COOL 0 40 Then Label2.Caption = HOT ElseIf C 30 Then Label2.Caption = WARM ElseIf C 20 Then Label2.Caption = ROOM TEMPERATURE ElseIf C 10 Then Label2.Caption = COOL ElseIf C 0 Then Label2.Caption = COLD Else Label2.Caption = FREEZ
7、ING End IfEnd Sub 9第第五五章章 选选择择结结构构程程序序设设计计5.3 5.3 多分支选择语句多分支选择语句1. 格式格式 Select Case Case Case Case Else End Select2. 功能功能: 根据测试表达式的值根据测试表达式的值,按顺序匹配按顺序匹配Case后的后的表达式表达式,如果匹配成功如果匹配成功,则执行该则执行该Case下的语句块下的语句块,然后转到然后转到End Select语句之后继续执行。语句之后继续执行。10第第五五章章 选选择择结结构构程程序序设设计计3. 说明说明 : 数值或字符表达式数值或字符表达式 Case 表达式表
8、表达式表: 表中的表项为如下形式表中的表项为如下形式: (1) 表达式表达式1,表达式表达式2. 如如: Case 1 , 3 , 5 (2) 表达式表达式1 TO 表达式表达式2 如如: Case 10 TO 30 Case A TO Z (3) Is 如如: Case Is = 10 Case Is = 0 与与 Case 0 相同相同 注意注意: 测试表达式的类型应与测试表达式的类型应与Case后表达式类型一后表达式类型一致，且三种形式可以混用致，且三种形式可以混用,如如: Case Is -5 , 0 , 5 To 10011第第五五章章 选选择择结结构构程程序序设设计计Y=ex+e-
9、x x0X = Val(Text1.Text)Select Case XCase Is 0 Y = Log(X) / Log(10)End SelectPrint Y=; YX = Val(Text1.Text)Select Case XCase X 0 Y = Log(X) / Log(10)End SelectPrint Y=; Y【例【例5-4】求函数求函数Y的值的值12第第五五章章 选选择择结结构构程程序序设设计计5.4 5.4 应用举例应用举例【例【例5-5】设计一个口令检测程序，界面如下图，当】设计一个口令检测程序，界面如下图，当用户输入的口令正确时，显示用户输入的口令正确时，显示
10、“恭喜！，您已成功恭喜！，您已成功进入本系统进入本系统”，否则，显示，否则，显示，“口令错！，请重新输口令错！，请重新输入入”。如果连续两次输入了错误口令，在第三次输。如果连续两次输入了错误口令，在第三次输入完口令后则显示一个消息框，提示入完口令后则显示一个消息框，提示“对不起对不起,您不您不能使用本系统能使用本系统”，然后退出整个应用程序。，然后退出整个应用程序。Text1Label213第第五五章章 选选择择结结构构程程序序设设计计Private Sub Text1_KeyUp(KeyCode As Integer, _ Shift As Integer) Static I As Inte
11、ger 保存输入错误口令的次数保存输入错误口令的次数 If KeyCode = 13 Then 如果按下的键为回车键如果按下的键为回车键 If UCase(Text1.Text) = HELLO Then Label2.Caption = 恭喜恭喜!,您已成功进入本系统您已成功进入本系统 ElseIf I = 0 Or I = 1 Then I = I + 1 Label2.Caption = 口令错口令错!,请重新输入请重新输入 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Else MsgBox 对不起对不起,您不能使用本系统您不
12、能使用本系统: End End If End IfEnd Sub14第第五五章章 选选择择结结构构程程序序设设计计【例【例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-4ac0，则有两个不等的实根则有两个不等的实根 (4) 如果如果a 0，且且b2-4ac 0 X1 = (-B + S
13、qr(Delta) / (2 * A) X2 = (-B - Sqr(Delta) / (2 * A) Print X1=; Format(X1, 0.000) CurrentX = 600: CurrentY = 1300 Print X2=; Format(X2, 0.000) Case Is 0 A1 = -B / (2 * A) A2 = Sqr(Abs(Delta) / (2 * A) 17第第五五章章 选选择择结结构构程程序序设设计计 Print X1=; Format(A1, 0.000); +; _ Format(A2, 0.000); i CurrentX = 600 Cur
14、rentY = 1300 Print X2=; Format(A1, 0.000); -; _ Format(A2, 0.000); i End SelectEnd Sub18第第五五章章 选选择择结结构构程程序序设设计计 【例【例5-6】设计一个四则运算的自我练习应用程序，设计一个四则运算的自我练习应用程序，界面如下图所示。界面如下图所示。 Text1Text4Text3Text2Label4Label219第第五五章章 选选择择结结构构程程序序设设计计要求要求: (1) 执行时，当在执行时，当在Text1中输入一种运算符后，在标中输入一种运算符后，在标签签Label2中立即出现该运算符号。
15、中立即出现该运算符号。(2) 单击单击“出题出题”按钮可以产生两个按钮可以产生两个0，1000之间的随之间的随机整数，这时由机整数，这时由Text2、Label2和和Text3组成一个表组成一个表达式。达式。(3) 可以通过单击可以通过单击“计算计算”按钮计算所生成的表达式的按钮计算所生成的表达式的值。值。(4) 也可以由用户在文本框也可以由用户在文本框Text4中输入运算结果通中输入运算结果通过单击过单击“判断判断”按钮可以判断输入的运算结果是否按钮可以判断输入的运算结果是否正确，然后在正确，然后在Label4上显示上显示“正确正确”或或“错误错误”。(5) 单击单击“退出退出”按钮结束运行
16、。按钮结束运行。20第第五五章章 选选择择结结构构程程序序设设计计(1) 在在Text1中输入加、减、乘、除符号后，在中输入加、减、乘、除符号后，在Label2中立即出现相应的运算符号。中立即出现相应的运算符号。 Private Sub Text1_Change() Label2.Caption = Text1.Text End Sub(2) 单击单击“出题出题”按钮按钮Command1，生成两个生成两个0，1000之间的随机整数。之间的随机整数。 Private Sub Command1_Click() Randomize Text2.Text = Int(Rnd * 1001) Text3
17、.Text = Int(Rnd * 1001) Text4.Text= End Sub21第第五五章章 选选择择结结构构程程序序设设计计(3) 单击单击“计算计算”按钮按钮Command2得出得出Text4的值。的值。Private Sub Command2_Click() If Label2.Caption = + Then Text4.Text = Val(Text2.Text) + Val(Text3.Text) ElseIf Label2.Caption = - Then Text4.Text = Val(Text2.Text) - Val(Text3.Text) ElseIf Lab
18、el2.Caption = * Then Text4.Text = Val(Text2.Text) * Val(Text3.Text) ElseIf Label2.Caption = / Then Text4.Text = Val(Text2.Text) / Val(Text3.Text) Else a = MsgBox(运算类型错，请重输运算类型错，请重输, , 警告警告) Text1.SetFocus: Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End IfEnd Sub22第第五五章章 选选择择结结构构程程序序设设计计(4)
19、 Text4的内容也可以由用户输入，通过单击的内容也可以由用户输入，通过单击“判断判断”按钮按钮Command3判断输入结果是否正确。判断输入结果是否正确。 Private Sub Command3_Click() Select Case Label2.Caption Case + If Text4.Text=Val(Text3.Text)+Val(Text2.Text) Then Label4.Caption = 正确正确 Else Label4.Caption = 错误错误 End If23第第五五章章 选选择择结结构构程程序序设设计计Case -“ If Text4.Text=Val(T
20、ext2.Text)-Val(Text3.Text) Then Label4.Caption = 正确正确 Else Label4.Caption = 错误错误 End IfCase * If Text4.Text=Val(Text2.Text)*Val(Text3.Text) Then Label4.Caption = 正确正确 Else Label4.Caption = 错误错误 End If24第第五五章章 选选择择结结构构程程序序设设计计Case / If Text4.Text=Val(Text2.Text)/Val(Text3.Text) Then Label4.Caption =
21、正确正确 Else Label4.Caption = 错误错误 End If Case Else a=MsgBox(运算类型错，请重输运算类型错，请重输, , 警告警告) Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End SelectEnd Sub注注: 因实数的不精确表示，除法判断条件应写成因实数的不精确表示，除法判断条件应写成: Abs(Val(Text4.Text) - Val(Text2.Text) / Val(Text3.Text) 0.000001 25第第五五章章 选选择择结结构构程程序
22、序设设计计例：例： 编写程序输入年份和月份，输出该月有多少天。编写程序输入年份和月份，输出该月有多少天。26第第五五章章 选选择择结结构构程程序序设设计计例：编写程序，计算某个学生奖学金的等级，以三门课例：编写程序，计算某个学生奖学金的等级，以三门课成绩为评奖依据。奖学金评奖标准如下：成绩为评奖依据。奖学金评奖标准如下：符合下列条件之一者为一等奖符合下列条件之一者为一等奖;1）平均分大于）平均分大于95分者分者2）有两门成绩是）有两门成绩是100分，且第三门课成绩不低于分，且第三门课成绩不低于80分者分者符合下列条件之一者为二等奖符合下列条件之一者为二等奖1）平均分大于）平均分大于90分者分者
23、2）有一门成绩是）有一门成绩是100分，且其他课程成绩不低于分，且其他课程成绩不低于75分者分者符合下列条件者为三等奖：符合下列条件者为三等奖： 各门课成绩不低于各门课成绩不低于70分分说明：说明： 评奖按从高就低，不重复评奖按从高就低，不重复27第第五五章章 选选择择结结构构程程序序设设计计本章小结本章小结: :1. 1. 单行结构条件语句单行结构条件语句 If Then Else 2. 2. 块结构条件语句块结构条件语句If Then ElseIf Then Else End If3. 3. 多分支选择语句多分支选择语句Select Case Case Case Case Else End Select28
