《Vb 程序的选择结构select case结构.ppt》由会员分享，可在线阅读，更多相关《Vb 程序的选择结构select case结构.ppt（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、程序的程序的选择结构构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 SubSelect Case语句语句基本格式基本格式Select Case Case Case Case El
2、se 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 0，则有两个不等的实根 b2-4ac 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 S100 27.5 100S200 P=25 200S300 22.5 300 S400 20 S400 输入要托运的货物重量为W吨。T=P*W*S