Vb 程序的选择结构select case结构.pptVIP

【例】求一元二次方程ax2+bx+c=0的解 。 分析： (1) 如果a=0；b=0，则方程无解，提示重新输入系数； b?0，则 x=-c/b (2) 如果a?0； b2-4ac=0 ，则有两个相等的实根 b2-4ac0， 则有两个不等的实根 b2-4ac0， 则有两个共轭复根 程序的选择结构 ——select case结构 Private Sub Command1_Click() player = Text1.Text Select Case player Case 科比 MsgBox 洛杉矶湖人队；24号球衣, 0, 球队名称 Case 霍华德 MsgBox 休斯顿火箭队；12号球衣, 0, 球队名称 Case 詹姆斯 MsgBox 迈阿密热火队；6号球衣, 0, 球队名称 Case Else MsgBox NBA 没有这个球员, 0, 球队名称 End Select End Sub ① ② ③ · · · Select Case语句 基本格式 Select Case 测试表达式 Case 表达式1 语句组1 Case 表达式2 语句组2 …… Case Else 语句组n End Select 功能: 根据测试表达式的值,按顺 序匹配Case后的表达式, 如果匹配成功,则执行该 Case下的语句块,然后转 到End Select语句之后 继续执行 Case（后面的）表达式（两种形式） 1.罗列。例如: Case “科比”，“加索尔” Case 1 , 3 , 5 2.范围。具体范围 用TO 例如: Case 10 TO 30 Case A TO Z 其他 用Is 例如: Case Is = 10 注意: 1. 以上两种形式可以混用， 例如: Case Is -5 , 0 , 5 To 100 2.测试表达式类型应与Case表达式类型一致， Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text) C = Val(Text3.Text): Picture1.Cls If A = 0 Then If B = 0 Then MsgBox 系数为零，请重新输入 Else X = -C / B: Picture1.Print X=; X End If Else Delta = B ^ 2 - 4 * A * C Select Case Delta Case 0: Picture1.Print X1=X2=; -B / (2 * A) Case Is 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Picture1.Print X1=; X1, X2=; X2 Case Is 0: MsgBox 有两个共轭复根 End Select End If End Sub 练习: 编写程序计算货物运费T。设货物运费每吨单价P(元)与运输距离S(公里)之间有如下关系: