全国创新杯说课大赛获奖课件VB选择结构 之Select Case语句
可视化编程VB-Select-Case语句-案例上课讲义
可视化编程V B-S e l e c t-C a s e语句-案例1、请根据下列描述，编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入小于1000元，扣税3%。
（2）收入在1000~3000元之内（不含3000元），1000元以上部分扣税15%。
（3）收入在3000~5000元之内（不含5000元），3000元以内按(2)的方法扣税，3000元以上部分扣税20%。
（4）当收入达到5000元以上（含5000元），扣税25%。
2、设计程序计算商场货物的应付金额。
要求用户选择会员卡的种类后，输入物品单价和购买数量，单价“计算”按钮，显示折扣额和应付金额。
（注：钻石卡7折，白金卡8折，银卡9折）操作要求：3、生肖查询：设计一个查询十二生肖的应用程序，其界面如下图所示（提示：十二生肖排序是鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪）1、Private Sub Command1_Click()Dim x!, y!x = Val(Text1)Select Case xCase Is < 1000y = x * 0.03Case Is < 3000y = 1000 * 0.03 + (x - 1000) * 0.15Case Is < 5000y = 1000 * 0.03 + 2000 * 0.15 + (x - 3000) * 0.2 Case Elsey = x * 0.25End SelectText2 = yEnd Sub2、Private Sub Command1_Click()Dim dj!, n%, p!, s!dj = Val(Text1.Text)n = Val(Text2.Text)Select Case Combo1.TextCase "钻石卡"p = 0.7Case "白金卡"p = 0.8Case "银卡"p = 0.9End SelectText3.Text = ps = dj * n * pText4.Text = sEnd SubPrivate Sub form_load()Combo1.AddItem "钻石卡"Combo1.AddItem "白金卡"Combo1.AddItem "银卡"End Sub3、Private Sub Command1_Click()Dim year%, a%, s$year = Val(Text1.Text)a = year Mod 12Select Case aCase 1s = "鸡"Case 2s = "狗"Case 3s = "猪"Case 4s = "鼠"Case 5s = "牛"Case 6s = "虎"Case 7s = "兔"Case 8s = "龙"Case 9s = "蛇"Case 10s = "马"Case 11s = "羊"Case 0s = "猴"End SelectLabel3.Caption = s End Sub。
最新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选择结构 之Select Case语句
重、难点
教学设计
教学方法
教学过程
教学ቤተ መጻሕፍቲ ባይዱ思
五、教学设计
Teaching design
游戏 设计
“ 教 人 未 见 意 趣 ， 必 不 乐朱 学熹 ” 。
示例 游戏
家务骰子
游戏激发学习兴趣
拓展 游戏
——
21点
猜数字
投票
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
五、教学设计
Teaching design
Sub-heading goes here
Teaching method
小组合作学习法、讨论法等
项目法、游戏法、展示法等
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
七、说教学过程
Teaching process
1
2
游戏引入课，对比出新知（3分钟） 重点学语法，动画来帮忙（4分钟）
五、教学设计
Teaching design
“家务骰子” 单步执行动画
动画 设计
动画解决程序的抽象
帮助学生直观看到程序的执行过程，
作为语法学习的铺垫
“税率判断” 动画
帮助学生理解Case语句中的程序走向， 突破难点
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
Main Heading Goes here 六、教学方法
教学方法
教学过程
教学反思
5
布置练习项目，巩固所学知识（15分钟）
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年）。
步骤一：按照上图设计程序界面。
步骤二：添加代码，如下所示步骤三：测试效果，输入年份和月份后，单击求天数按钮即可计算出该月的天数。
VB程序设计课件第7讲 select case 语句
5
例：变量strC中存放一个字符，判断是字母、数字 变量strC中存放一个字符，判断是字母、 strC中存放一个字符 字母 If Ucase(strC) >=“A” And Ucase (strC) <=“Z” Then Label1.Text = strC + "是字母字符 是字母字符" 是字母字符 ElseIf strC >="0" And strC <="9" Then Label1.Text = strC + "是数字字符 是数字字符" 是数字字符 Else Label1.Text = strC + "其他字符 其他字符" 其他字符 End If 用Select Case语句实现 语句实现
将测试表达式的值与各Case语句中的表达式值比 将测试表达式的值与各Case语句中的表达式值比 Case 决定执行哪个Case子句。 Case子句 较，决定执行哪个Case子句。仅仅执行第一个匹配的 语句，做完立即退出。 语句，做完立即退出。
3
“测试表达式”可以是数值、字符串表达式， 测试表达式”可以是数值、字符串表达式， 但不能为逻辑表达式。 但不能为逻辑表达式。 “表达式值 的几种形式: 表达式值” Case “表达式值”的几种形式:
优秀″ = ″优秀″ 良好″ = ″良好″ 通过″ = ″通过″ = ″不通过″ 不通过″
求三数中最大数 Public Sub Button1_Click( ) Val(InputBox(″请输入第一个数 请输入第一个数″)) a= Val(InputBox(″请输入第一个数″)) Val(InputBox(″请输入第二个数 请输入第二个数″)) b= Val(InputBox(″请输入第二个数″)) Val(InputBox(″请输入第三个数 请输入第三个数″)) c= Val(InputBox(″请输入第三个数″)) Max =a Max b>___(1)___ ___(1)___Then If b>___(1)___Then Max=b Max c>___(2)__ ___(2)___Then If c>___(2)___Then Max=c 最大数为″& Label1.Text = ″最大数为″& Max End Sub
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 语句的执行。
vba select case语句用法与案列教程
VBA Select Case语句用法与案例教程VBA（Visual Basic for Applications）是一种基于Microsoft Visual Basic的宏语言，专门用于在Microsoft Office应用程序中进行编程和自定义。
在VBA中，Select Case语句是一种非常有用的控制流语句，用于根据一个表达式的值来执行不同的代码块。
本文将详细介绍VBA中Select Case语句的用法，并通过案例教程来帮助读者更好地理解和应用这个功能。
1. Select Case语句的基本结构在VBA中，Select Case语句的基本结构如下：```vbaSelect Case 表达式Case 值1' 代码块1Case 值2' 代码块2Case 值3' 代码块3...Case Else' 默认代码块End Select```在这个结构中，首先根据表达式的值来进行匹配，如果匹配到某个值，就执行对应的代码块，如果没有匹配到任何值，则执行Case Else后面的代码块。
通过这种结构，我们可以在VBA程序中实现复杂的逻辑控制。
2. Select Case语句的用法Select Case语句可以用于比较表达式的值，以及执行相应的代码块。
在实际应用中，它通常用于处理多个条件的情况，使得代码更加清晰和易于维护。
举个例子，假设我们需要根据用户输入的成绩来判断其等级，可以使用Select Case语句来实现：```vbaSub GradeLevel(score As Integer)Select Case scoreCase 90 To 100MsgBox "优秀"Case 80 To 89MsgBox "良好"Case 70 To 79MsgBox "中等"Case 60 To 69MsgBox "及格"Case ElseMsgBox "不及格"End SelectEnd Sub```在这个例子中，根据用户输入的成绩，程序会判断其所在的等级，并弹出相应的信息框。
Vb-程序的选择结构select-case结构ppt课件
注意: 1. 以上几种形式可以混用， 例如: Case Is < -5 , 0 , 5 To 100
2.测试表达式类型应与Case表达式类型一致
编辑课件
4
【例1】：变量strC中存放一个字符，判断是字母、数字
If Ucase(strC) >=“A” And Ucase (strC) <=“Z” Then
Label1.Caption= strC + "是字母字符"
ElseIf strC >="0" And strC <="9" Then
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"
End If
将以上语句用Select Case语句实现
编辑课件
7
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 "系数为零，请重新输入"
形式
示例
说明
表达式【，表达式】，… Case 2,4,6
表达式To表达式
Case 1 to 5 Case “a” to “n”
Is 关系运算表达式
Case is <30
数值或字符串表达式,表述固 定值之一
用来指定一个范围，较小的 在To前，较大在To后
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
重、难点
教学设计
教学方法
教学过程
教学反思
一、教材分析
Analysis of teaching material
课程地位
顺 序
单分支 多重 If 语句
选 择
多分支
章节地位
循 环
Select case 语句
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
二、学情分析
Analysis of the students
页 面 图 片
页 面 表 格
页 面 动 画
后 台 程 序
数 据 库
……
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
一、教材分析
Analysis of teaching material Visual 课程地位 Basic
章节地位
高等教育出版社 主编：周察金
教材分析
学情分析
教学目标
项目锻炼学生综合知识的运用
项目 设计
课内项目
项目一：“家务骰子” 项目二：“税率判断” 项目三：“问候语”
表达式列表 为 具体数值 表达式列表 为 Is 语句 表达式列表 为 To 语句
拓展项目
“投票”项目 “猜数字”项目 “21点”项目
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
中职生 特点
知识 储备
情商 储备
班 级 特 点
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
三、教学目标
Analysis of teaching objectives
知识与能力目标：
掌握Select Case语句的格式、功能和执行过程，学会使用 Select Case语句来实现选择控制结构，培养学生举一反三的能力。
说课题目： 说课人：
四川省 ·成都现代职业技术学校 VB选择结构 之
Select Case语句
谌 莉
目录
教材分析 学情分析
教学目标
重、难点 教学设计 教学方法 教学过程
教学反思
一、教材分析
Analysis of teaching material 网 站 课程地位
前 台
后 台
章节地位
页 面 文 字
教学方法
教学过程
教学反思
1
对比两段代码
使用 if …else
Select Case多分支结构的优点： 1、减少代码量； 2、程序清晰
多分支结构编写的代码
使用 Select Case 多分支结构编写的代码
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
2 重点学语法，动画来帮忙（4分钟）
表 达 式 列 表
>
的 三 种 形 式
End Select
教材分析 学情分析 教学目标 重、难点 教学设计 教学方法
教学过程
教学反思
2
演示“家务骰子”程序的单步执行动画
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
3
记忆语法，完成代码（5分钟）
补充代码
调试成功
教材分析 学情分析 教学目标 重、难点 教学设计 教学方法
Select Case <测试表达式>
Case <表达式列表 1 >
具体的值
如：Case 1，3，5，7 Is语句： 如：Case Is > 65 其中，Is 代表测试表达式 To语句： 如： Case 5 To 30
<
语句组 1 Case <表达式列表 2 > 语句组 2 Case <表达式列表 3 > 语句组 3 …… …… Case Else 语句组 n
五、教学设计
Teaching design
“家务骰子” 单步执行动画
动画 设计
动画解决程序的抽象
帮助学生直观看到程序的执行过程，
作为语法学习的铺垫
“税率判断” 动画
帮助学生理解Case语句中的程序走向， 突破难点
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
Main Heading Goes here 六、教学方法
方法与过程目标：
通过学习Select Case语句的语法结构并加以应用这个过程，培 养学生的合作学习能力和操作实践能力，形成初步的程序思维。
情感态度与价值观目标:
使学生通过学习活动获得成功体验，激发学习兴趣，在项目组中
体会个人价值的实现。
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
3
记忆语法，完成代码（5分钟）
Байду номын сангаас提出问题，突破难点（5分钟）
5
4
布置练习项目，巩固所学知识（15分钟） 总结评价，知识回顾（5分钟）
6 7
布置作业，体现分层（3分钟）
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
1
游戏引入课，对比出新知（3分钟）
教材分析
学情分析
教学目标
重、难点
教学设计
8300
提出问题： 如果当前的月收入是 8300元，计算得出 的税率是多少？
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
4
演示执行过程
为何计算结果是 3 % 而非 20 % 呢？
教材分析
学情分析
教学目标
重、难点
重、难点
教学设计
教学方法
教学过程
教学反思
五、教学设计
Teaching design
游戏 设计
“ 教 人 未 见 意 趣 ， 必 不 乐朱 学熹 ” 。
示例 游戏
家务骰子
游戏激发学习兴趣
拓展 游戏
——
21点
猜数字
投票
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
五、教学设计
Teaching design
四、重、难点
Analysis of difficulties
重点
Select Case结构中表达式列表的三种形式
难点
Case语句中的程序走向
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
五、教学设计
Teaching design
动画 设计 项目 设计
游戏 设计
教材分析
学情分析
教学目标
Sub-heading goes here
Teaching method
小组合作学习法、讨论法等
项目法、游戏法、展示法等
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
七、说教学过程
Teaching process
1
2
游戏引入课，对比出新知（3分钟） 重点学语法，动画来帮忙（4分钟）
教学过程
教学反思
4
提出问题，突破难点（5分钟）
简化后的税率问题
每月收入>3500元 每月收入>5000元 税率为 3 % 税率为 10 % 税率为 20 % 税率为 25 %
每月收入>8000元
每月收入>12500元
教材分析
学情分析
教学目标
重、难点
教学设计
教学方法
教学过程
教学反思
4
提出问题，突破难点（5分钟）