全国创新杯说课大赛获奖课件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后
说说VBA中的SelectCase语句
说说VBA中的SelectCase语句Select Case语句也是条件语句之一，而且是功能最强大的条件语句。
它主要用于多条件判断，而且其条件设置灵活、方便，在工作中使用频率极高。
本节介绍Select Case语句的语法及应用案例．Select Case语句的语法如下：Select Case testexpression[Case expressionlist-n[statements-n]] ...[Case Else[elsestatements]]End SelectSelect Case语句包括四部分，每部分详细含义如表38-1所示。
表38-1 Select Case语句各部分含义部分描述testexpression必要参数。
任何数值表达式或字符串表达式expressionlist-n 如果有Case出现，则为必要参数。
其形式为expression，expression To expression，Is comparisonoperator。
expression的一个或多个组成的分界列表。
To 关键字可用来指定一个数值范围。
如果使用To关键字，则较小的数值要出现在To之前。
使用Is关键字时，则可以配合比较运算符（除Is和Like之外）来指定一个数值范围。
如果没有提供，则Is关键字会被自动插入statements-n 可选参数。
一条或多条语句，当testexpression匹配expressionlist-n中的任何部分时执行elsestatements 可选参数。
一条或多条语句，当testexpression不匹配Case子句的任何部分时执行在以上语法列表中，省略号代表可以使用多个条件。
只要有一个Case就需要有一个statements-n，表示条件及符合条件时的执行条件。
其中elsestatements表示不符合指定条件时的执行语句，是可选参数。
可以忽略elsestatements，也可以执行一条或者一组语句，为了让程序能够处理一些不可预见的情况，尽量使用elsestatements语句处理不符合条件时该如何回应。
vb 选择结构程序设计PPT课件
不等于
4 <> 5
值为：True
2. 关系表达式
关系表达式的格式为
〈表达式1〉〈关系运算符〉〈表达式2〉[〈关系运算符〉〈表达 式3〉…]
关系表达式的运算次序为：先分别求出关系运算符两侧 表达式的值，然后再把二者进行比较，二者的关系若与关 系运算符指示的一样，则关系运算的结果为真True，否则 为假False。
False False False
a Or b True True True False
Not a False False True True
Not由真变假，由假变真。And对两个布尔值进行比较， 如果两个值均为真，则结果为真，否则为假。Or对两个布 尔值进行比较，如果其中一个值为真，则结果为真，只有 两个值都为假时，结果才为假。运算布尔表达式时，先运 算关系表达式，再运算布尔表达式。
逻辑运算的运算规则
A B Not A A And B A or B A Xor B
T
T
F
T
T
F
T
F
F
F
T
T
F
T
T
F
T
T
F
F
T
F
F
F
按二进制进行的逻辑运算规则
选择结构Select Case语句
未上交：xxxx
典型问题
1、If、end if未成对存在 2、代码语句写错位置
第三节 选择结构Select Case语句
知识迁移
为了判断学生成绩（百分制）的等级，现在要求制作一个VB程序来进行判断： 当分数在90-100范围，输出A；当分数在80-89范围，输出B；当分数在70-79 范围，输出C；当分数在60-69范围，输出D，否则，输出F。
If 的 嵌 套
开始ห้องสมุดไป่ตู้
If score >= 90 Then
Print Else
"输A"入score
If score >= 80 Then
E是lsePrinstc"oBre">=90 否
If
输出等级A
score >= 是70 Print "C"
Then
score>=80
否
Els输eIf出sc等or级e >B= 60 Then 是 score>=70
End Select
注意：
表达式：我们通常用一个变量作为表达式
一个Case 子句
表达式范围： 1、一个或多个常量值，如1,2,3,4 2、值的一段范围，例如1 to 100 3、Is关系表达式，如Is>45
判S判Se语判6e断l断l0ee句断分c一c1tt块学-,个C总1C生a0包数a分s之s分e含的e1间a0数a正一0的（分负个奇整）或偶数多数）个是语否句及格（ SSCCeeaCallseesaececspptteIr1srCiCi>0,nn3aat0,tTs“5s“oe,e7正奇a5与,99数数E”n”d Select必须成对出现 严CCaC格assaee控sppeIr2spr制ii<6,nrn4i0t0n换,t“6“tT,“8o行负偶,1没1数数00有”0”及格”
VB 选择结构 ppt课件
2021/3/26
VB 选择结构 ppt课件
End If
End If
Text2.Text = x
End Sub 2021/3/26
VB 选择结构 ppt课件
21
4.3.5 ElseIf语句
多层的If语句嵌套格式使程序冗长复杂。 ElseIf
语句的语法格式如下：
If <条件1> Then [语句序列1]
ElseIf <条件2> Then [语句序列2]
VB 选择结构 ppt课件
26
测试条件
表达式列表1 表达式列表2 表达式列表3……表达式列表n 其他情况
语
语
语
语
语
句
句
句 …… 句
句
序
序
序
序
序
列
列
列
列
列
1
2
3
n
n+1
2021/3/26
VB 选择结构 ppt课件
27
Case子句中的表达式列表可以有以下几种形式：
形式
表达式
表达式1 To 表 达式2
分析：当x≥2时，用公式y＝x3－9来求y的值；当 x<2时，用公式y＝x2＋5x-6来计算y的值。
2021/3/26
VB 选择结构 ppt课件
13
输入 x 值
VB6.0SelectCase语句
VB6.0SelectCase语句语法Select Case <指⽰变量或表达式>Case <情形1><语句组1>Case <情形2><语句组2>....Case <情形n><语句组n>Case Else<默认语句组，以上语句组都因情形不符合实际时执⾏>End Select其中，表述情形的关键字，有IS和TO，多个情形要并列在⼀起时，使⽤逗号(英⽂)连接。
当省略Case Else语句并且语句组都因情形不符合实际时，语句的执⾏，会直接到达End Select。
如果在执⾏语句的时候，有需要跳过没有必要再执⾏的语句⽽直接结束Select Case的情况时，请使⽤exit select。
注意在“<指⽰变量或表达式>”不是True或False关键字时，逻辑运算（And、Or、Not）会没有意义。
因为逻辑运算的结果是True或False，不是表述具体情况的值或者范围。
需要⽐较⼤⼩时，请使⽤IS、To关键字。
以上为了给出⼀个能够通⽤的语法⽽如此表述。
在“<指⽰变量或表达式>”是True或False关键字时，Is、To关键字没有意义。
以上两种情况，切记不要搞混。
嵌套各语句组中也可以写⼊完整的Select Case语句，像For循环中嵌套⼀个⼆级循环⼀样。
别误会，Select Case不是循环语句，是条件选择语句，与IF...ELSEIF...ELSEIF...END IF类似。
基本⽤法Private Sub main()Select Case InputBox("请输⼊你希望的天⽓，从晴天、多云、阴天、阵⾬、⼩⾬、⼩雪、冰雹中选⼀个填⼊。
", "请输⼊你希望的天⽓", "晴天")Case "晴天"MsgBox "哇哦！你喜欢的是晴天啊，祝你天天好⼼“晴”~！"Case "多云"MsgBox "喜欢多云的天⽓，是因为⽐较怕紫外线吗？"Case "阴天"MsgBox "为什么喜欢阴天呢？真令⼈好奇啊~！"Case "阵⾬"MsgBox "为什么喜欢阵⾬天呢？真令⼈好奇啊~！"Case "⼩⾬"MsgBox "为什么喜欢⼩⾬天呢？真令⼈好奇啊~！"Case "⼩雪"MsgBox "为什么喜欢⼩雪天呢？真令⼈好奇啊~！"Case "冰雹"MsgBox "为什么喜欢冰雹天呢？真令⼈好奇啊~！"Case ElseMsgBox "不可以酱紫！只能从我给出的⼏种中挑选⼀个填⼊！"End SelectEnd Sub<以上代码在VB6.0测试通过>使⽤关键字ISPrivate Sub main()Select Case Day(Now)Case Is <= 10MsgBox "⽬前是本⽉上旬！"Case Is > 20MsgBox "⽬前是本⽉下旬！"Case ElseMsgBox "⽬前是本⽉中旬！"End SelectEnd Sub<以上代码在VB6.0测试通过>使⽤关键字TOPrivate Sub main()Select Case Weekday(Now)Case 1, 7MsgBox "今天是周末！"Case 2 To 6MsgBox "今天不是周末！"End SelectEnd Sub<以上代码在VB6.0测试通过>关键字IS和TO可以根据需要，在同⼀条情形中⼀起使⽤，例如Case Is<=5,8 to 10,Is>20不过要注意的是，TO表⽰的区间，是闭区间，不适⽤于开区间（或半闭半开区间）。
vb select case语句
vb select case语句
VB（VisualBasic）中的SelectCase语句是一种流程控制语句，用于根据不同的条件执行不同的操作。
它基于条件语句，可以简化代码并提高可读性。
该语句的语法结构为：
Select Case expression
Case value1
statement1
Case value2
statement2
…
Case Else
statementN
End Select
其中，expression表示要检查的表达式，value1、value2等表示不同的条件值，statement1、statement2等表示针对不同条件值的操作语句，Case Else表示当所有条件都不满足时执行的语句。
在实际应用中，Select Case语句通常用于替代多个If语句，从而提高代码效率和可维护性。
通过对条件值的匹配，程序可以快速定位并执行相应的操作，避免了重复的判断和执行。
同时，该语句还支持嵌套使用，可以根据需要进行多级选择和操作。
需要注意的是，在使用Select Case语句时，应根据具体情况合
理选择条件值和操作语句，避免出现逻辑错误和代码冗余。
此外，建议添加注释和格式化代码，以便提高代码的可读性和可维护性。
vbselectcase语句
vbselectcase语句VBSelectCase语句是Visual Basic编程语言中的一种控制结构，用于根据不同的条件执行不同的代码块。
它是一种灵活且易于阅读的方式来处理多个条件判断。
下面是一些关于VBSelectCase语句的例子，以展示其在实际应用中的用途和功能。
1. 根据用户输入的数字，判断其属于哪个等级（1-5），并输出相应的提示信息。
```VBDim num As IntegerConsole.WriteLine("请输入一个数字：")num = Console.ReadLine()Select Case numCase 1Console.WriteLine("您的等级为初级。
")Case 2Console.WriteLine("您的等级为中级。
")Case 3Console.WriteLine("您的等级为高级。
")Case 4Console.WriteLine("您的等级为专家级。
")Case 5Console.WriteLine("您的等级为顶级。
")Case ElseConsole.WriteLine("输入无效。
")End Select```2. 根据用户选择的颜色，设置窗体的背景色。
```VBDim color As StringConsole.WriteLine("请选择一个颜色（红/绿/蓝）：") color = Console.ReadLine()Select Case colorCase "红"Me.BackColor = Color.RedCase "绿"Me.BackColor = Color.GreenCase "蓝"Me.BackColor = Color.BlueCase ElseConsole.WriteLine("无效的颜色选择。
#ExcelVBA#解读（22）：方便的“多选一”结构——SelectCase结构
#ExcelVBA#解读（22）：方便的“多选一”结构——SelectCase结构人生经常要面临“多选一”的情况，在编写程序代码时也是如此。
在上篇文章中，我们讲解了使用If-Then结构来进行判断，也举了很多个小例子。
我们看到，随着条件的增多，代码的结构也变得复杂或难以理解。
幸运的是，VBA为我们提供了Select Case结构，让我们根据多个条件判断选择时，能够写出容易理解的代码。
上篇文章的结尾举了一个例子：按照一定的规则，根据员工的工龄来确定员工的年休假天数：工龄（年）年休假天数10年及以下 510～20 1020～25 1525年以上20现在，我们使用Select Case结构来编写代码，实现相同的功能。
首先看看示例代码：示例代码1Sub NianXiuTianWithSelectCase()'声明变量,用来表示年休天数和工龄Dim lngDays As LongDim lngYears As LonglngYears = Range('A1').Value'根据工龄确定相应的年休天数Select Case lngYearsCase 0 To 10lngDays = 5Case 10 To 20lngDays = 10Case 20 To 25lngDays = 15Case Is > 25lngDays = 20End SelectMsgBox '工龄：' &lngYears & vbCrLf & '年休天数:' &lngDays End Sub同样，您可以在工作表单元格A1中输入代表工龄的数字，运行代码后，会显示相应的年休天数，就像在上篇文章中所示的图一样。
与上篇文章中的代码相比，既简单又易理解。
Select Case结构的语法如下：Select Case 条件（表达式）[Case 表达式值1[语句块] ][Case 表达式值2[语句块] ]……[Case Else[语句块] ]End Select说明：•当某个Case“表达式值”满足“条件（表达式）”的结果时，执行相应的语句块，并退出Select Case结构。
- 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分钟）