我们一起来选用合适的选择(select)结构.docVIP

我们一起来选用合适的选择（select）结构 信息科技组 陈超 [教材分析] 首先，教材中重点讨论了单选择结构与双选择结构，即本课时“项目活动”中前三种算法；其次，教材中没有多路选择结构与语句内容，即本课时“项目活动”中第四种算法；最后，我们是根据学生当前学业水平及培养未来软件工程师的方面考虑，将select case作为拓展学习内容。 [学情分析] 我班学生能编写含有单选择结构、双选择结构及选择嵌套结构的VB程序。本课时是选择结构与选择语句的综合应用。 [教学目标] 1、通过项目开发实例——求分段函数的值，将多种算法设计比较，进行算法的优化与分析，找出合适的选择结构。 2、通过自学了解多路选择语句，在课堂练习求路程与课后作业求个税的实例中尝试使用多路选择语句(Select Case — End Select)。 3、在编写VB代码、算法调试与算法评价过程中，寻找算法的漏洞，研究算法的优劣，养成寻找合适算法的钻研习惯。 [教学重点] 选用合适的选择结构。 [教学难点] 多路选择语句的自学及应用。 [教学方法] 案例教学，自学尝试 [课前准备] 完成“项目活动”的编程作业 [教学过程] 【项目活动】：根据函数图形设计算法，求[-8,8]范围函数值。 　　 1、写出分段函数的表达式； 2、在“我的代码”按钮中，编写VB代码并调试 （算法一、算法二学生任选一编写VB代码并调试正确） 算法一：双分支(选择)嵌套结构。( If — Else — EndIf ) Dim x As Single, y As Single x = InputBox(请输入[-8,8]范围内的x值) If x 4 Then y = 16 / x Else If x 0 Then y = x ^ 2 / 4 Else y = x / 2 End If End If Print Print X=; x, Y=; y 算法二：用单分支(选择)结构，复合条件。(If — EndIf) Dim x As Single, y As Single x = InputBox(请输入[-8,8]范围内的x值) If x = 4 Then y = 16 / x End If If x = 0 And x 4 Then y = x ^ 2 / 4 End If If x 0 Then y = x / 2 End If Print Print X=; x, Y=; y 3、小敏同学不断尝试分析，将算法设计成如下框图，可以用那些方法来说明其算法是正确性？ 4、请对小敏算法的作评价。 算法三：用单分支(选择)结构。单一条件。从大范畴到小范围，逐一计算并替代。 Dim x As Single, y As Single x = InputBox(请输入[-8,8]范围内的x值) y = 16 / x If x 4 Then y = x ^ 2 / 4 End If If x 0 Then y = x / 2 End If Print Print X=; x, Y=; y 方法一：取各分段的一、二个值，根据框图，进行流程检验。 方法二：写成代码，运行程序，分段取值逐一检验。 找出算法漏洞（x=0时） Dim x As Single, y As Single x = InputBox(请输入[-8,8]范围内的x值) If x = 4 Then y = 16 / x End If If x = 0 Then y = x ^ 2 / 4 End If y = x / 2 Print Print X=; x, Y=; y 小彦同学上述算法是错误的。但小彦同学认为只要作一点改变就正确了。 小彦意愿框图： 小彦同学的算法框图，对应的语句为多路选择语句(Select Case — End Select) 大家上网自学，用Select Case语句代码编写。 算法四：用多路选择语句(Select Case — End Select) Dim x As Single, y As Single x = InputBox(x值) Select Case x Case 4 To 8 y = 16 / x Case 0 To 4 y = x ^ 2 / 4 Case -8 To 0 y = x / 2 End Select Print Print X=; x, Y=; y Dim x As Single, y As