SELECT_CASE语句(选)
写程序代码
学习交流与问题研讨：
1、多分支选择结构
（1）IF语句嵌套
（2）SELECT/CASE语句
2、SELECT/CASE语句
说明：
1、“测试表达式”可以是数值型或字符串型表达式
2、“表达式列表”形式有以下4种
（1）一个表达式或用逗号隔开的若干表达式
（2）表达式1 TO表达式2
（3）IS关系运算符表达式
（4）表达式
理解
能读懂语句
练习检测与拓展延伸：
1、实践活动一
2、实践活动二
3、历年题库
独立完成
课后反思或经验总结：
2、了解多分支选择结构程序的编写
3、能读懂多分支选择结构程序段，写出程序运行结果
本课教学资源的使用
VB程序开发环境、《实践指导》、历年题库
学习过程
学习要求或学法指导
自学准备与知识导学：
1、要求输入一个学生的成绩，程序能够自动评定出该学生的等级。评定的标准是：大于或等于90分为“优秀”，80~90分为“良好”，70~79分为“一般”，60~69分为“及格”，60分以下为“不及格”。利用IF语句可以实现吗？
徐州市王杰中学导学案
章节与课题
SELECT/CASE语句（选）
课时安排
1课时
主备人
卜囡
审核人
卜囡
使用人
卜囡
使用日期或周次
第10周
本课时学习目标或学习任务
1、巩固选择结构的程序特点
2、了解多分支选择结构程序的编写
3、能读懂多分支选择结构程序段，写出程序运行结果
本课时重点难点或学习建议
1、巩固选择结构的程序特点
学习游戏脚本制作：按键精灵里的if语句教程
学习游戏脚本制作：按键精灵里的if语句教程来源：按键学院【按键精灵】万万没有想到……有一天居然会栽在if语句手里。
First—小编的凄惨经历小编今早写脚本，由于无意间将if语句中的end if错删了，弹出了这样的错误提示：“（错误码0）没有找到合法的符号。
”看到这个提示，小编以为是哪个逗号不小心写成中文逗号，没成想丢了个end if也是出现这样的提示。
好在代码不多，所以错误点容易找到，那……如果，代码多达几百上千条的时候呢？眼泪马上掉出来~今天在这里和童鞋们一起来了解下，按键里的夫妻组合，看看这些夫妻被分开之后都会出现什么样的可怕情况：Second—一夫一妻制If……end if判断语句If判断语句，有分为两种:1、 if语句条（条模式）当判断完之后，要执行的语句只有一条的时候，使用if语句条例如：If 1 > 0 Then MessageBox"Hello~"// If语句条，不需要添加end if//条模式的时候，if语句还是单身，不是夫妻组合2、 if语句块（块模式）当判断完之后，要执行的语句有很多条的时候，使用if语句块例如：If 1 > 0ThenMessageBox"Hello~"MessageBox"Hello~"End If//块模式的时候，if语句是已婚状态，夫妻组合。
如果这个时候缺少了end if就会出现下面的错误提示：拓展：if语句块中then 可以省略例如：If 1 >0MessageBox"Hello~"MessageBox"Hello~"End IfFor……next循环语句例子：For i=1 To 10//这里的脚本可以循环10次Next拓展：如果，循环体里不需要用到循环次数值，例如，需要打开十个记事本，可以这样写：For 10RunApp "Notepad.exe"Next当for循环语句缺少next的时候，会出现下面的错误提示：Do……Loop 循环语句Do……Loop循环语句分为两种情况：1、前判断Do While条件Loop在执行循环体之前判断条件，满足则进入循环不满足则不进入例如：i=1Do While i>1i = i - 1TracePrint 1Loop//一次也不执行2、后判断DoLoop While条件在执行循环体之后判断条件，先进入一次循环，执行完一次循环之后再开始判断是否满足条件例如：i=1Doi= i - 1TracePrint 1Loop While i>1//执行一次TracePrint1当do……loop循环语句缺少loop的时候，会出现下面的错误提示：VBS执行块语法：VBSBegin'需要插入的VBS代码VBSEndVBSBegin 缺少VBSEnd 会出现的提示：LogStart 开始记录日志语法：LogStart 文件名LogStopLogstart缺少logstop 不会出现错误提示，如果忘记了logstop，蛋疼的点就是它会把你后面不需要记录的东西也记录。
SelectCase语句教程
SelectCase语句教程为了避免难以弄清的复杂的嵌套的If语句，你可以使用Select Case语句代替。
它的语法为：Select Case 测试表达式Case 表达式1如果表达式1匹配测试表达式的语句Case 表达式2如果表达式2匹配测试表达式的语句Case 表达式N如果表达式N匹配测试表达式的语句Case Else如果没有表达式匹配测试表达式要执行的语句End Select你在关键字Select Case和End Select之间放置任意多个条件以测试。
子句Case Else是可选的，当你希望可能有条件表达式返回假时使用它。
在Select Case语句里，VB将每个表达式和测试表达式相比较。
这里是Select Case语句背后的逻辑。
当VB遇到Select Case子句，它记下测试表达式的值。
然后它前进到下面的第一个Case子句，如果这个表达式的值和测试表达式的值匹配的话，VB就会执行语句直到遇到另外一个Case子句并且跳到End Select语句。
然而，如果第一个Case子句后面的表达式测试结果和测试表达式不匹配时，VB就会检查每一个Case子句，直到它找到一个匹配的为止。
如果没有一个Case子句后面的表达式匹配测试表达式的值的话，VB就会跳到Case Else子句并执行该语句直到遇到关键字End Select。
注意，Case Else 子句是可选的，如果你的程序里面没有使用Case Else并且没有一个Case子句的表达式和测试表达式相匹配，VB就会跳到End Select后面的语句，并且继续执行你的程序。
我们来一个使用Select Case语句的程序例子。
在第四章里，你学习了MsgBox函数允许你显示带有一个或多个按钮的信息，你也学习了MsgBox函数的结果可以赋予一个变量。
使用Select Case语句，你现在可以基于用户按下的按钮决定采取哪个行动。
1. 在当前工程里插入一新模块2. 重命名新模块SelectCase.3. 输入下述过程TestButtons:Sub TestButtons()Dim question As StringDim bts As IntegerDim myTitle As StringDim myButton As Integerquestion = "Do you want to open a new workbook?"bts = vbYesNoCancel + vbQuestion + vbDefaultButton1myTitle = "New Workbook"myButton = MsgBox(prompt:=question, buttons:=bts, _ title:=myTitle)Select Case myButtonCase 6Workbooks.AddCase 7MsgBox "You can open a new book manually later."Case ElseMsgBox "You pressed Cancel."End SelectEnd Sub过程TestButtons的第一部分显示一个带有三个按钮的信息框：是，否和取消。
理解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、
VBA中的Select Case语句
Select Case语句也是条件语句之一，而且是功能最强大的条件语句。
它主要用于多条件判断，而且其条件设置灵活、方便，在工作中使用频率极高。
本节介绍Select Case语句的语法及应用案例．Select Case语句的语法如下：Select Case testexpression[Case expressionlist-n[statements-n]] ...[Case Else[elsestatements]]End SelectSelect Case语句包括四部分，每部分详细含义如表38-1所示。
在以上语法列表中，省略号代表可以使用多个条件。
只要有一个Case就需要有一个statements-n，表示条件及符合条件时的执行条件。
其中elsestatements表示不符合指定条件时的执行语句，是可选参数。
可以忽略elsestatements，也可以执行一条或者一组语句，为了让程序能够处理一些不可预见的情况，尽量使用elsestatements语句处理不符合条件时该如何回应。
在Select Case的多个参数中，最复杂的是expressionlist-n部分，它有多种表达形式，包括：lExpression——直接声明一个条件值，例如5lexpression To expression——声明一个条件的范围，例如5-10lIs comparisonoperator——声明一种比较方式，例如is >5下面的实例可以展示参数中expressionlist-n部分的多种表达形式。
实例1：多条件时间判断根据当前的时间判断是上午、中午，还是下午、晚上、午夜。
要求中条件比较多，使IF…Then…需要多层嵌套，而Select Case语句会更简单。
代码如下：___________________________________________________Sub 时间()Dim Tim As Byte, msg As StringTim = Hour(Now)Select Case TimCase 1 To 11msg = "上午"Case 12msg = "中午"Case 13 To 16msg = "下午"Case 17 To 20msg = "晚上"Case 23, 24msg = "午夜"End SelectMsgBox "现在是：" & msgEnd Sub__________________________________________以上代码中，“Case 1 To11”表示当前时间在1点到11点，用于限定一个范围；“Case 12”是表示当前时间为12点时返回True，可用于限制一个具体的值，或者多个值。
select case when用法
select case when用法
`select case` 是一种 SQL 语句中的语法，用于根据条件选择查询结果的特定部分。
它通常用于条件查询和分组查询中，允许您根据特定条件对结果进行分类。
以下是一个简单的示例，演示了如何使用 `select case` 语句来选择订单的一部分:
```
SELECT
o.order_id,
o.order_date,
o.order_total,
CASE
WHEN o.order_total >= 100 THEN "超过 100 元"
WHEN o.order_total <= 50 THEN "低于 50 元"
ELSE "未知" END AS order_status
FROM
orders o
```
在上面的示例中，我们使用 `select case` 语句来选择订单的状态。
在 `case` 块中，我们比较订单总金额和阈值，并根据结果选择状态。
如果总金额超过 100 元，则状态为“超过 100 元”;如果总金额低于 50 元，则状态为“低于 50 元”;否则状态为“未知”。
使用 `select case` 语句时，您需要将所有可能的结果组织成一组条件，以便在查询结果中只显示符合条件的部分。
fortran select case语句
fortran select case语句FORTRAN SELECT CASE 语句FORTRAN 的 SELECT CASE 语句是一个非常强大的选择语句，用来指定当出现某种情况时执行特定的语句，可以替代 IF-THEN-ELSE 结构和 SWITCH-CASE 结构，可以让程序编写更加灵活，更容易阅读与维护。
SELECT CASE 语句格式如下：SELECT CASE(表达式)CASE 值1语句1CASE 值2语句2….CASE DEFAULT语句3END SELECT其中，表达式可以是任意有效的 FORTRAN 标量表达式，它的类型包括整数，实数，字符串及其他数据类型。
CASE 值1 、 CASE 值2 等等是 CASE 值，它们必须和表达式的类型匹配；当表达式的值等于某个 CASE 值时，紧接着的语句会被执行，然后跳出该 SELECT CASE 块，开始执行 SELECT CASE 之后的语句。
CASE DEFAULT 是 SELECT CASE 的可选结束语句，当表达式的值不等于任何一个 CASE 值时，CASE DEFAULT 后的语句会被执行，然后跳出 SELECT CASE 块。
下面是一个例子，它演示了如何使用 SELECT CASE 语句来判断一个整数并打印出相应的消息：CPROGRAM SELECT_CASEIMPLICIT NONEINTEGER :: iWRITE(*,*) ‘Please enter an integer number : ’READ(*,*) iSELECT CASE (i)CASE (1,3,5,7,9)WRITE(*,*) ‘The number is an odd number.’CASE (2,4,6,8,10)WRITE(*,*) ‘The number is an even number.’END SELECTEND PROGRAM SELECT_CASE上面的程序会把用户输入的数字进行比较，如果该数字是奇数，就会打印“The number is an odd number”；如果是偶数就会打印“The number is an even number”。
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。
例如：他如果是男的，就是先⽣，如果是⼥的就是⼩姐，否则就是性别不明。
vba select case用法
vba select case用法VBA的Select Case语句用于根据表达式的值选择执行不同的代码块。
它可以替代多个嵌套的If语句，结构更清晰，代码更简洁。
Select Case语句的基本语法如下：```Select Case expressionCase value1'执行代码块1Case value2'执行代码块2Case value3'执行代码块3Case Else'执行代码块4（可选项）End Select```expression为需要进行判断的表达式，value1, value2等为表达式可能的取值。
当expression的值与某个Case后面指定的值相等时，将会执行对应的代码块。
如果表达式的值与任何一个Case语句后面指定的值都不相等，则执行可选的Case Else代码块，如果没有指定Case Else，则不执行任何代码。
拓展：1. Case语句可以使用范围值进行比较，例如：```Case 1 To 10'执行代码块```这表示当expression的值在1到10之间（包括1和10）时，执行对应的代码块。
2. Case语句还可以使用逻辑运算符组合多个条件，例如：```Case Is > 10 And Is < 20'执行代码块```这表示当expression的值大于10且小于20时，执行对应的代码块。
3.在Case语句中，可以使用多个表达式对应同一个代码块，例如：```Case "A", "B", "C"'执行代码块```这表示当expression的值为"A"、"B"或者"C"时，执行对应的代码块。
4.可以在代码块中使用Exit Select语句来提前退出Select Case 语句的执行。
【测试】分支循环测试作业（VB第五章测试题）
【测试】分⽀循环测试作业（VB第五章测试题）我的试卷测试得分： 88.0 分1. 单选题：（4.0分）有如下程序：Private Sub Command1_Click()x = InputBox("input value")Select Case xCase Is > 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectPrint x; yEnd Sub假设运⾏时从键盘上输⼊-5，输出结果是_______。
A. -5 -2B. -5 -4C. -5 -3D. -5 -5解答：A参考答案： A2. 单选题：（4.0分）下列程序段的执⾏结果是_______。
X = 2Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0A. TrueB. FalseC. -1D. 1解答：B参考答案： B3. 单选题：（2.0分）关于语句If x=1 Then y=1，下列说法正确的是_______。
A. x=1和y=1均为赋值语句B. x=1和y=1均为关系表达式C. x=1为关系表达式，y=1为赋值语句D. x=1为赋值语句，y=1为关系表达式解答：C参考答案： C4. 单选题：（2.0分）Select Case 语句结构中，测试项可以有三种形式，以下使⽤正确的是_______。
A. Case 20>IsB. Case x<=8 ，10 to 25C. Case Is>9 And Is<25D. Case Is>x解答：D参考答案： D5. 单选题：（4.0分）在窗体上画⼀个名称为Command1的命令按钮和两个名称分别为Text1、Text2的⽂本框，然后编写如下事件过程：Private Sub Command1_Click()N = Text1.TextSelect Case NCase 1 To 20X = 10Case 2, 4, 6X = 20Case Is < 10X = 30Case 10X = 40End SelectText2.Text = XEnd Sub程序运⾏后，如果在⽂本框Text1中输⼊10，然后单击命令按钮，则在Text2中显⽰的内容是____A. 10B. 20C. 30D. 40参考答案： A6. 单选题：（4.0分）运⾏下⾯程序，如果输⼊85，则输出结果是_____。
oracle select case语句
oracle select case语句Oracle数据库中的SELECT CASE语句是一种条件选择语句，根据一定的条件执行不同的操作。
以下是十个使用Oracle SELECT CASE语句的示例：1. 根据员工的工资等级查询员工姓名：```sqlSELECT employee_name,CASEWHEN salary > 5000 THEN '高级员工'WHEN salary > 3000 THEN '中级员工'ELSE '初级员工'END AS salary_levelFROM employees;```2. 根据学生成绩判断学生的等级：```sqlSELECT student_name,CASEWHEN score >= 90 THEN '优秀'WHEN score >= 80 THEN '良好'WHEN score >= 70 THEN '中等'ELSE '不及格'END AS gradeFROM students;```3. 根据订单状态查询订单的描述信息：```sqlSELECT order_id,CASEWHEN status = 'NEW' THEN '新订单'WHEN status = 'PROCESSING' THEN '处理中'WHEN status = 'COMPLETED' THEN '已完成'ELSE '未知状态'END AS status_descriptionFROM orders;```4. 根据产品类型查询产品的价格范围：```sqlSELECT product_name,CASEWHEN product_type = 'Electronics' THEN '1000-5000元'WHEN product_type = 'Clothing' THEN '200-1000元' WHEN product_type = 'Books' THEN '10-200元'ELSE '未知价格范围'END AS price_rangeFROM products;```5. 根据用户的年龄段查询用户的性别：```sqlSELECT user_name,CASEWHEN age BETWEEN 18 AND 25 THEN '男'WHEN age BETWEEN 26 AND 35 THEN '女'ELSE '未知'END AS genderFROM users;```6. 根据学生的出勤情况判断是否获得奖学金：```sqlSELECT student_name,CASEWHEN attendance >= 90 AND grade >= 80 THEN '获得奖学金'ELSE '未获得奖学金'END AS scholarshipFROM students;```7. 根据员工的工作年限查询员工的职称：```sqlSELECT employee_name,CASEWHEN years_of_service >= 10 THEN '高级工程师' WHEN years_of_service >= 5 THEN '中级工程师' ELSE '初级工程师'END AS job_titleFROM employees;```8. 根据学生成绩判断学生的学习状态：```sqlSELECT student_name,CASEWHEN score >= 90 THEN '优秀'WHEN score >= 80 THEN '良好'WHEN score >= 60 THEN '及格'ELSE '不及格'END AS study_statusFROM students;```9. 根据产品的库存量查询产品的供应状态：```sqlSELECT product_name,CASEWHEN stock > 0 THEN '有货'ELSE '缺货'END AS supply_statusFROM products;```10. 根据用户的会员等级查询用户的折扣率：```sqlSELECT user_name,CASEWHEN membership_level = 'Gold' THEN '8折'WHEN membership_level = 'Silver' THEN '9折' WHEN membership_level = 'Bronze' THEN '95折'ELSE '无折扣'END AS discount_rateFROM users;```以上是十个使用Oracle SELECT CASE语句的示例，通过SELECT CASE语句可以根据不同的条件进行灵活的数据查询和操作，使查询结果更具有可读性和可理解性。