《(24)--4-3-5 select 情况语句程序设计.ppt》由会员分享，可在线阅读，更多相关《(24)--4-3-5 select 情况语句程序设计.ppt（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、4-3-5 SELECT情况语句Visual Basic程序设计本节内容Select Case语句引例121.引例输入月份，在不考虑闰年的情况下，要显示该月有多少天，如何实现？m=Val(InputBox(请输入月份,输入框)If m=1 Or m=3 Or m=5 Or m=7 Or m=8 Or m=10 Or m=12 Then d=31ElseIf m=4 Or m=6 Or m=9 Or m=11 Then d=30ElseIf m=2 Then d=28Else d=0End If不够直观不够直观1.引例输入月份，在不考虑闰年的情况下，要显示该月有多少天，如何实现？m=Val(In
2、putBox(请输入月份,输入框)Select Case m Case 1,3,5,7,8,10,12 d=31 Case 4,6,9,11 d=30 Case 2 d=28 Case Else d=0End Select简洁明了简洁明了2.Select Case语句形式：形式：Select Case 测试表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1End Select作用作用：l计算计算测试表达式测试表达式的值，然后从上到下查找该值与哪个的值，然后从上到下查找该值与哪个casecase子句中的子句中的“表达式列表表达式列表”相匹
3、配，从而决定执行相匹配，从而决定执行哪一组语句块。哪一组语句块。l测试表达式可以是测试表达式可以是变量变量或或表达式表达式，表达式列表的类型，表达式列表的类型必须和测试表达式一致。必须和测试表达式一致。2.Select Case语句形式：形式：Select Case 测试表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1End Select表达式列表具有下列表达式列表具有下列4种形式之一种形式之一：表达式表达式 例例:A 用逗号分隔的枚举值用逗号分隔的枚举值 2,4,6,8表达式表达式1 To 表达式表达式2 60 To 100Is 关
4、系运算符表达式关系运算符表达式 Is =90 Then dj=优秀ElseIf fs=80 Then dj=良好ElseIf fs=70 Then dj=中等ElseIf fs=60 Then dj=及格Else dj=不及格End IfSelect Case fs Case 90 To 100 dj=优 Case 80 To 89 dj=良好 Case 70 To 79 dj=中等 Case 60 To 69 dj=及格 Case Else dj=不及格End SelectSelect Case fs 10 Case 9,10 dj=优秀 Case 8 dj=良好 Case 7 dj=中等
5、Case 6 dj=及格 Case Else dj=不及格End SelectIs=802.Select Case语句已知已知坐标点坐标点(x，y)，判断其落在哪个象限，判断其落在哪个象限代码一If x 0 And y 0 Then MsgBox(在第一象限)ElseIf x 0 Then MsgBox(在第二象限)ElseIf x 0 And y 0 And y 0 And y 0 MsgBox(在第一象限)Case x 0 MsgBox(在第二象限)Case x 0 And y 0 And y 0 MsgBox(在第四象限)End Select代码二错误：1.Select Case 后不能出现多个变量；2.Case后不能出现变量及And运算符。2.Select Case语句比较比较If语句和语句和Select Case语句语句nSelect Case语句虽然简洁，但使用有限制语句虽然简洁，但使用有限制lSelect Case后只能对一个表达式的值进行判断后只能对一个表达式的值进行判断lCase后不能出现变量、逻辑运算符后不能出现变量、逻辑运算符n虽然虽然If语句条件复杂时书写不直观，语句条件复杂时书写不直观，但是万能的但是万能的 Select Case有条件地使用有条件地使用u引例引例uSelect CaseSelect Case语句语句模块小结模块小结