多重选择语句.pptVIP

多重选择语句 福建师大附中　周成 第一节 IF嵌套实现多分支 引例:求方程的实数根 IF嵌套的格式 实践 例1：求方程的实数根 输入方程ax2+bx+c=0的三个系数a,b,c。求方程的实根。(注意：a可能为0） 算法 星座测算（constellation） 请编写一个程序实现，每输入一个生日日期，单击“测算”按钮后就返回一个所对应的星座，并能用“清除” 按钮清除后重新输入日期进行测算。 星座测算（constellation） Dim m As Integer, d As Integer m = Combo1.Text d = Combo2.Text Select Case m * 100 + d Case 120 To 131,201 to 219 Text3.Text = 【水瓶座】 vbCrLf case … Case else End Select 第二节　多重选择语句 基本格式： 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 * * 输入a,b,c If a0 then d=b^2-4*a*c if d=0 then if d0 then 输出”两个不同实根x1=…,x2=…” else 输出”一个根x=-b/(2*a)” endif else ’d0 输出“无实根” endif Else ‘a=0 if b0 then 输出根”-c/b” else ‘b=0 if c=0 then 输出“实数根为任意实数！” else 输出“无实根” endif Endif 这种描述算法的方法称为“伪代码” 这种if语句中的then或else后面又是一个if语句的情况，就称为if的嵌套。