Vb程序的选择结构selectcase结构.ppt

程序的选择结构 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 Case Case Else 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表达式类型一致，,【例】求一元二次方程ax2+bx+c=0的解 。 分析： (1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b (2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac0， 则有两个不等的实根 b2-4ac0， 则有两个共轭复根,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(公里)之间有如下关系: 30 S100 27.5 100S20