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 SelectEnd 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 , 52.范围具体范围具体范围 用用TO 例如例如: Case 10 TO 30 Case "A" TO "Z" 其他其他 用用Is 例如例如: Case Is >= 10注意注意: 1. 以上两种形式可以混用，以上两种形式可以混用， 例如例如: Case Is < -5 , 0 , 5 To 100 2.测试表达式类型应与测试表达式类型应与Case表达式类型一致，表达式类型一致，【例【例】】求一元二次方程求一元二次方程axax2 2+bx+c=0+bx+c=0的解的解 分析：分析： (1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b (2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根 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 IfEnd Sub 练习: 编写程序计算货物运费T。

设货物运费每吨单价P(元)与运输距离S(公里)之间有如下关系: 30 S<100 27.5 100≤S<200 P= 25 200≤S<300 22.5 300 ≤S<400 20 S≥400 输入要托运的货物重量为W吨 T = P * W * S。