跟我学vb--第10课时 select case语句
最新Vb_程序的选择结构select_case结构教学内容
End Select End If End Sub
内容小结
1．熟记select case语句书写结构，理解执行过程。 2. 注意select case 语句中表达式细节 3. Select case 语句应用环境，与if语句的转换
此课件下载可自行编辑修改，仅供参考！ 感谢您的支持，我们努力做得更好！ 谢谢!
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
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； 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
理解VB中选择语句SelectCase结构的最好例子
'以下代码是程序退出
Private Sub Command3_Click() End
End Sub
Case Else
'测试表达式的值x在其它情况下
Text2.Text = "不及格" '文本框Text2中显示“不及格”
End Select End Sub
'以下代码是清除文本框Text1、Text2中所显示的内容，且将焦点放在文本框Text1上
Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Te78、79情况下
Text2.Text = "中等" '文本框Text2中显示“中等”
Case 60, 61, 62, 63 To 66, Is >= 67 '测试表达式的值x为60、61、62、63、在64至66情况
下、大于等于67的情况下
Text2.Text = "及格" '文本框Text2中显示“及格”
Case Is >= 90
'测试表达式的值x大于等于90情况下
Text2.Text = "优秀" '文本框Text2中显示“优秀”
Case 80 To 90
'测试表达式的值x在80至90情况下
Text2.Text = "良好" '文本框Text2中显示“良好”
Case 70, 71, 72, 73, 74, 75, 76, 77, 78, 79 '测试表达式的值x为70、71、72、73、74、75、
Vb_程序的选择结构select_case结构PPT课件
◦ 单行结构条件语句
If 条件1 Then 语句序列1 【 Else 语句序列2】
◦ 块结构条件语句
If 条件1 Then 语句块1
[ElseIf 条件2 Then 语句块2]
[ElseIf 条件3 Then 语句块3 ]
…… [Else
语句块n] End If
IIf 函数
result=Iif(条件, true部分, False部分)
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text)
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"
End If
将以上语句用Select Case语句实现
【例2】：评定成绩等级 90~100：“优”80~89： “良”70~79：“中”60~69：“及格”
60分以下为“不及格”
7.2 多分支控制结构 ——select case语句
一、Select Case语句
1、基本格式
Select Case <测试表达式> Case <表达式1> <语句块1> Case <表达式2> <语句块2> …… Case Else <语句块n>
VB编程之Select Case语句
本文介绍VB中一种选择结构——Slect Case语句。
Select Case语句也称为情况语句，是多分支结构的另一种表示形式。
语句格式如下：Select Case语句的功能是首先计算<测试表达式>的值，然后用计算结果从前到后依次与每个Case子句的<表达式列表>的值进行比较。
如果匹配成功，则执行该Case子句后的语句块，然后执行End Select语句。
如果没有匹配的，且存在Case Else语句则执行Case Else子句后的语句块n+1，然后执行End Select语句。
<表达式列表>有4种形式：1，表达式如：Case 5 或 Case "a"2，表达式1 To 表达式2Case 1 to Case 20或Case "A" to "Z"3，Is关系运算符表达式如：Case Is<604，用逗号分隔的以上3种形式的列表如：Case 1 to3,10 to 15 ,6,9,Is>100说明：To用来指定一个范围，必须将小的值写在前面，而大的值写的后面Is及后面的关系运算符和表达式来指定一个数值范围。
如Is>50 ，但是不能用两个或多个组合在一起，例如Case Is>10 And Is<20,这是错误的表达形式Select Case语句与If语句功能类型，一般情况下可以相互替换。
举例：要求：编程求指定某年某月的天数。
如下图所示;分析：月份天数有3种情况，即31天、30天、29天或28天。
第3种情况与是否为闰年有关，闰年的2月为29天，非闰年的2月为28天。
闰年是能被4整除但不能被100整除的年（如2004年），或者能被400整除的年（如2000年）。
步骤一：按照上图设计程序界面。
步骤二：添加代码，如下所示步骤三：测试效果，输入年份和月份后，单击求天数按钮即可计算出该月的天数。
11.VBA基本语句（selectcase）
11.VBA基本语句（selectcase）
周六 · 探索 关键词：VBA概念
⼩伙伴们，上⼀篇我们提到了判断多条件，⽤IF来进⾏，今天啊，我们要学习的，同样是⽤来判断的语句——select case ，选择情况。
1select case
这个中⽂解释有点挫，我把它翻译成，万⼀发⽣了什么情况，就选择什么结果。
Select case 语句，最后的结束语句是 end select
2解析
Select case 后⾯跟着的语句是⽤来给程序判断和⽐较的值。
Case is 后⾯跟着的是参数，⽤于⽐较的参数值。
End select 是结束语句。
3应⽤
究竟什么时候⽤if 什么时候⽤case 呢？
阿狸个⼈习惯是，如果是多条件⼀起判断，会选择IF，例如，既是美⼥⼜是⾼材⽣且还是温柔的⼈。
如果是单⼀条件进⾏⽐较，但情况⽐较多，会选择case。
例如：他如果是男的，就是先⽣，如果是⼥的就是⼩姐，否则就是性别不明。
Vb-程序的选择结构select-case结构
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"ห้องสมุดไป่ตู้
End If
将以上语句用Select Case语句实现
【例2】：评定成绩等级 90~100：“优”80~89：“良” 70~79：“中”60~69：“及格”
60分以下为“不及格”
2.测试表达式类型应与Case表达式类型一致
【例1】：变量strC中存放一个字符，判断是字母、数字
If Ucase(strC) >=“A” And Ucase (strC) <=“Z” Then
Label1.Caption= strC + "是字母字符"
ElseIf strC >="0" And strC <="9" Then
Is 关系运算表达式
Case is <30
数值或字符串表达式,表述固 定值之一
用来指定一个范围，较小的 在To前，较大在To后
可配合比较运算符来指定一 个数值范围，不能用逻辑运 算符将两个或多个简单条件 组合在一起
注意: 1. 以上几种形式可以混用， 例如: Case Is < -5 , 0 , 5 To 100
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
select case语句
select case语句SQL中的Select case是一个控制语句，可用于实现条件查询，涉及条件比较、计算等。
本文将介绍基本的select case语句的使用以及select case复杂操作方法。
首先，介绍基本形式的selet case语句，通常的语法格式为：select case when value表达式 then 执行的SQL语句 else else 执行的SQL语句end该语句是先经过value表达式的对比，判断条件是否满足，如果满足则执行后面then 后面的SQL语句，反之则执行else后面的SQL语句。
下面是select case实例：使用一个数据表 orders，内容如下所示：order_id order_amount1 1000查询order_id为2的订单的金额是否大于1500，执行的SQL语句如下：select case when order_amount>1500 then '大于1500' else '小于等于1500'end from orders where order_id=2;执行结果为：大于1500接下来介绍一些复杂操作，通常情况下复杂操作会使用case when语句和group by语句组合使用，示例如下：002 Jack003 Tom查询customer_name分别有几个，SQL语句如下：select customer_name,case when customer_name='Tom' then 'Tom有' else 'Jack 有' end, count(*) as num from customers group by customer_name;customer_name 统计Tom Tom有 3Jack Jack有 1可以看出，通过使用select case，我们可以判断出customer_name的个数，即Tom有3个，Jack有1个。
select case语句用法
select case语句用法嘿，朋友！你知道 select case 语句吗？这玩意儿可神奇啦！就好比你有一堆不同的情况，它就像个超级聪明的管理员，能准确地根据不同情况来做出不同反应呢！比如说，你去商店买东西，不同的商品有不同的价格，select case 语句就像是那个能快速判断出商品并给出相应价格的智能系统。
那它到底咋用呢？来，咱一起瞧瞧。
假设你有个变量，就像一个会变身的小精灵，它的值可能是这个，也可能是那个。
然后呢，你就用select case 语句来设置不同的情况。
比如 case 1 ，那就相当于小精灵变成了 1 的时候该怎么做；case 2 呢，就是小精灵变成 2 的时候的应对方式啦！这多有趣啊，就像你在指挥一场精彩的表演！咱举个具体例子哈。
比如你要根据天气来决定穿什么衣服。
天气可能是晴天、阴天、雨天等等。
那你就可以用 select case 语句，case “晴天”，你就穿短袖；case “阴天”，你可能加个外套；case “雨天”，哎呀，那得打伞穿雨衣啦！这是不是超级实用？嘿，你想想看，要是没有这个 select case 语句，那得多麻烦呀！你得写一堆 if else 语句，那多乱呀！但是有了它，一下子就简洁明了，多棒啊！再比如说，你玩游戏的时候，根据不同的关卡或者得分情况来触发不同的奖励或者挑战，这时候 select case 语句不就派上大用场了嘛！就像一个聪明的裁判，公正地给出相应的结果。
所以啊，朋友，select case 语句真的是个超好用的工具呢！它能让你的代码变得更简洁、更有条理，就像整理好的书架一样让人看着舒服。
别再犹豫啦，赶紧去试试吧！我的观点就是：select case 语句是一种非常实用且强大的编程结构，能大大提高代码的可读性和效率，一定要好好掌握它呀！。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
select case语句
【学习目标】
（一）在知识与技能方面
1、掌握select case语句的格式、功能和执行过程。
2、理解表达式列表的3种形式（，和to与is）。
3、学会使用select case语句来实现选择控制结构，解决实际问题。
（二）在过程与方法方面
1、初步掌握程序调试运行的方法。
2、初步掌握优化程序的方法
（三）在情感态度与价值观方面
1、经历计算机解决问题的过程，体验成功的快乐。
2、在老师的指导下，与同学共同探究问题，让学生体验自主学习、协助学习的乐趣。
【重点难点】
1、select case语句格式
2、表达式列表的3种形式
3、用select case语句解决实际问题
【教法学法】
问题教学法、讲练结合法
【学时】1学时
【教学环境】网络电脑室
引导学生分析上面程序存在的问题：
1、第1个程序用了5个if语句且条件表达式太复杂，书写容易出错。
2、在第2个程序中，用了4个if语句来处理5种情况，同时用到了if语句的嵌套
3、由于有if语句的嵌套及if语句过多，造成了程序可读性差，经常会出现“end if”配对错误或缺少“end if”。
那么如果我们再多一些情况，它的缺陷就会更加明显。
【教师引导】
有没有更简单一点的语句来解决这个问题，尽量避免出现上面的错误？
【引入】本节课的学习内容Select Case语句即可解决这种多情况的问题。
二、Select Case语句的格式
Select Case语句是多分支语句，又称为多情况语句。
【教师展示】
1、Select Case 语句的格式
功能：根据“测试表达式”的值，
选择第一个符合条件的语句块执
行。
2、说明：
· · · “测试表达式”可以是数值型或字符型；
· · · “测试表达式”和“表达式列表”的类型必须相同；
· · · “表达式列表”形式有以下3种：
3、表达式列表的3种形式
【师生共同分析】
（1）用逗号隔开的若干表达式
如：判断10以内整数的奇偶性
x=inputbox("输入一个整数")
select case x case 1，3，5，7，9 print x; "这是奇数" case 2，4，6，8，10 print x; "这是偶数"
end select
if x=1 or x=3 or x=5 or x=7 or x=9 then
print x; "这是奇数"
end if
（2）表达式1 To 表达式if x>=80 and x<90 then
2x=inputbox("输入一个整数") select case x
case 80 to 89
print x; "该生成绩为良"
case 70 to 79
print x; "该生成绩为中"
end select print x; "该生成绩为良" end if
（3）Is 关系表达式x=inputbox("输入一个整数") select case x
case is>=90
print x ; "该生成绩为优"
case is>=80
print x ; "该生成绩为良"
case is<60
print x ; "该生成绩为不及格"
end select if x>=90 then
print x ; "该生成绩为优" end if
if x<60 then
print x ; "该生成绩为不及格" end if
【学生练习】
把刚才举例的“分数”问题用Select Case语句改写一下，然后请同学来展示一下自己的
成果，同时比较一下自己与老师所写的程序有什么不同。
【交流讨论】
1、is关系表达式在程序中的顺序可以调转吗？
2、Select Case语句的“测试表达式”“表达式列表”与if语句中“条件表达式”有什么时候不同？
【师生共同分析】
1、一个If语句要表示一种情况，而一个Select Case语句可以表示多个情况。
2、case中有很丰富的表达列表，如：①case 1，3，5表示当“表达式”的值为1，3，5中的任何一个值时执行下面的语句，if中要实现必须要用逻辑表达式来连接。
②Case 10 to 20很容易来表示一个取值范围，即10到20之间的任何一个值时执行下面的语句，在if中就是一种复杂的条件。
③Case is<=10表示小于或等于10时执行下面的语句，比条件if语句表示更加方便。
四、Select Case语句的执行流程
【师生共同小结】 Select Case语句的执行过程是：
先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，执行顺序如下：
当测试表达式的值为表达式列表1时，执行语句组1；
当测试表达式的值为表达式列表2时，执行语句组2；
……
当测试表达式的值为表达式列表n时，执行语句组n；
当测试表达式的值不是上述值时，执行Case Else下面的语句组n+1；
然后执行End Select下面的语句。
【学生观察】教师逐语句运行程序，让学生观察程序的执行流程，加深理解。
四、作业
【学生活动】
求分段函数的值
【教师点评】点拨纠错学生做作业存在的问题
附加题：输入一个整数，判别奇偶.
四、课堂小结
1、对于多种情况的选择问题，我们利用多重选择语句来实现。
2、select case语句的基本结构
3、“表达式”与“表达式列表”的类型必须一致及表达式列表的3种形式（1）用逗号隔开的若干表达式
（2）表达式1 To 表达式2
（3）Is 关系表达式
4、select case语句的执行流程。