4.4程序的选择结构.pptVIP

程序的选择结构（二） IF嵌套实现多分支 引例 IF嵌套的格式 实践 引例 已知输入某课程的百分制成绩mark,要求显示对应五级制的评定,评定条件如下: 等级= (1).优 m=90 (2).良 80=m90 (3).中 70=m80 (4).及格 60=m70 (5).不及格 m60 算法一 3. 程序一 Private Sub Command1_Click() Dim m As Single m = val(InputBox(请输入你的成绩：, 成绩)) If (m = 90) Then Print 你的成绩是 m, 优秀 If (m = 80) And ( m 90) Then Print 你的成绩是 m, 良 If (m = 70) And (m 80) Then Print 你的成绩是 m, 中 If (m = 60) And (m 70) Then Print 你的成绩是 m, 及格 If (m 60) Then Print 你的成绩是 m, 不及格“ End Sub 算法二 3. 程序二 Private Sub Command1_Click() Dim m As Single m = InputBox(请输入你的成绩：, 成绩) If m = 90 Then Print 你的成绩是 m, 优秀 Else If m = 80 And m 90 Then Print 你的成绩是 m, 良 Else If m = 70 And m 80 Then Print 你的成绩是 m, 中 Else If m = 60 And m 70 Then Print 你的成绩是 m, 及格 Else Print 你的成绩是 m, 不及格 End If End If End If End If End Sub 实践：你的体重标准吗？ 第二节　多重选择语句 Select case　表达式 case 表达式列表1 　　 语句组1 case 表达式列表2 　　 语句组2 …… case else 语句组n+1 End select 表达式列表有三种形式 表达式1，表达式2，… 表达式1　to 表达式2 Is 关系表达式 例如： Case 1,3,5 Case 10 to 20 Case is =10 多重选择语句的执行过程 计算select case后面的表达式的值 如果表达式值为表达式列表1时，执行语句组1 如果表达式值为表达式列表2时，执行语句组2 …… 当表达式都不是上述的值时，执行语句组n+1 算法与程序设计 ----多重选择语句 关系表达式 条件 b*b-4*a*c=0 一元二次方程有实根 X mod 2=0 X为偶数 Not ((x0)and(y0)) x,y不全是正数 关系表达式 条件 Y mod 400=0 or (y mod 1000)and(y mod 4=0) Y为闰年 X0 and y0 X,y均为正数 用逻辑运算符连接起来的式子称为逻辑表达式 逻辑表达式的值为逻辑型（boolean）有true与false两种值 关系表达式 逻辑表达式 输入m 输出“不及格” 开始 m＞=90 80≤m90 70≤m80 60≤m70 结束 输出“优秀” 输出“良” 输出“中” 输出“及格” 是 否 是 否 是 否 是 否 输入m 输出“不及格” 开始 m＞=90 80≤m90 70≤m80 60≤m70 结束 输出“优秀” 输出“良” 输出“中” 输出“及格” 是 否 是 否 是 否 是 否 Private Sub Command1_Click() Dim m As Single m = Text1.Text If m = 90 Then Text2.Text = 优秀 Else If m = 80 And m 90 Then Text2.Text = 良 Else If m = 70 And m 80 Then Text2.Text = 中