1、1,第5章,选择结构程序设计,本章要点: 条件语句 单行结构条件语句If.Then.Else 块结构条件语句If.Then.EndIf 多分支选择语句Select Case.End Select,特点: 根据条件是否成立，决定程序的执行分支,2,5.1 单行结构条件语句,1. 格式 If Then Else 2. 功能 如果成立，则执行 否则执行3. 说明(1) : 关系表达式、布尔表达式 数值表达式(0为False，非0为True) 字符串表达式(0为False,非0为True)(2) 、: 可以有多条语句，各语句之间用冒号隔开。(3)可以没有Else部分，这时必须有。,3,例: If N0
2、 Then A=A+B:B=B+A Else A=A-B:B=B-A例: If Xaaa Then Print X【例5-1】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。,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(Text1.Text)Y = Abs(X)If X 0 Then Y = Log
3、(X)Label3.Caption = Y,X = Val(Text1.Text)Y = Log(X)If X 0,Y0 B X0 C X0,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 Sub,7,5.2 块结构条件语句,1.格式If Then ElseIf Then ElseIf Then Else End If功能: ,If Then 语句组1Else 语句组2End If,注意: 格式书写、嵌套,8,【例5-3】输入华氏温度F，利用公
4、式C=5/9*(F-32)转换成摄氏温度C，根据转换结果C的不同值，按以下要求给出相应的提示。,C40时，打印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.C
5、aption = COLD Else Label2.Caption = FREEZING End IfEnd Sub,10,5.3 多分支选择语句,1. 格式 Select Case Case Case Case Else End Select2. 功能: 根据测试表达式的值,按顺序匹配Case后的表达式,如果匹配成功,则执行该Case下的语句块,然后转到End Select语句之后继续执行。,11,3. 说明 : 数值或字符表达式 Case 表达式表: 表中的表项为如下形式: (1) 表达式1,表达式2. 如: Case 1 , 3 , 5 (2) 表达式1 TO 表达式2 如: Case
6、10 TO 30 Case A TO Z (3) Is 如: Case Is = 10 Case Is = 0 与 Case 0 相同 注意: 测试表达式的类型应与Case后表达式类型一致，且三种形式可以混用,如: Case Is 0，则有两个不等的实根 (4) 如果a 0，且b2-4ac 0 X1 = (-B + Sqr(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
7、) Case Is 0 A1 = -B / (2 * A) A2 = Sqr(Abs(Delta) / (2 * A),18,Print X1=; Format(A1, 0.000); +; _ Format(A2, 0.000); i CurrentX = 600 CurrentY = 1300 Print X2=; Format(A1, 0.000); -; _ Format(A2, 0.000); i End SelectEnd Sub,19,【例5-6】设计一个四则运算的自我练习应用程序，界面如下图所示。,20,要求: (1) 执行时，当在Text1中输入一种运算符后，在标签Label
8、2中立即出现该运算符号。(2) 单击“出题”按钮可以产生两个0，1000之间的随机整数，这时由Text2、Label2和Text3组成一个表达式。(3) 可以通过单击“计算”按钮计算所生成的表达式的值。(4) 也可以由用户在文本框Text4中输入运算结果通过单击“判断”按钮可以判断输入的运算结果是否正确，然后在Label4上显示“正确”或“错误”。(5) 单击“退出”按钮结束运行。,21,(1) 在Text1中输入加、减、乘、除符号后，在Label2中立即出现相应的运算符号。 Private Sub Text1_Change() Label2.Caption = Text1.Text End
9、Sub(2) 单击“出题”按钮Command1，生成两个0，1000之间的随机整数。 Private Sub Command1_Click() Randomize Text2.Text = Int(Rnd * 1001) Text3.Text = Int(Rnd * 1001) Text4.Text= End Sub,22,(3) 单击“计算”按钮Command2得出Text4的值。Private Sub Command2_Click() If Label2.Caption = + Then Text4.Text = Val(Text2.Text) + Val(Text3.Text) Else
10、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 Label2.Caption = / Then Text4.Text = Val(Text2.Text) / Val(Text3.Text) Else a = MsgBox(运算类型错，请重输, , 警告) Text1.SetFocus: Text1.SelStart = 0 Te
11、xt1.SelLength = Len(Text1.Text) End IfEnd Sub,23,(4) 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 If,24,Case -“ If Text4.Text=Val(Text2
12、.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 If,25,Case / If Text4.Text=Val(Text2.Text)/Val(Text3.Text) Then Label4.Caption = 正确 Else Label4.Caption = 错误 End I
13、f 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,26,例： 编写程序输入年份和月份，输出该月有多少天。,27,例：编写程序，计算某个学生奖学金的等级，以三门课成绩为评奖依据。奖学金评奖标准如下：符合下列条件之一者为一等奖;1）平均分大于95分者2）有两门成绩是100分，且第三门课成绩不低于80分者符合下列条件之一者为二等奖1）平均分大于90分者2）有一门成绩是100分，且其他课程成绩不低于75分者符合下列条件者为三等奖： 各门课成绩不低于70分说明： 评奖按从高就低，不重复,28,本章小结:,1. 单行结构条件语句 If Then Else ,2. 块结构条件语句If Then ElseIf Then Else End If,3. 多分支选择语句Select Case Case Case Case Else End Select,
