vb选择结构教案_1

卓资县职业中学实训学案 班级_姓名_ 科目：VB 程序设计 主备：闫森 审核：日期：课 题:选择结构程序设计实际应用（2）实验目的：1、掌握 If 语句的使用。2、掌握 Select Case 语句的使用。实验内容与过程 说明：第一步：独学(请同学们独立完成以下任务）知识回顾：1、单分支条件语句格式：IF 表达式 THEN 语句块 End If IF 表达式 THEN 语句块 2、双分支条件语句格式：IF 表达式 THEN 语句块 1 Else 语句块 2 End If 任务 1(基本设计题)题目：一般网络游戏只允许成年人进入，你来编写一个根据年龄判断是否成年的小程序。（规定成年人年龄18 周岁）请你根据题意,利用双分支条件语句格式 2 种方法（单行和多行）编写程序代码，并上机测试。设计界面如下:本节课只完成任务1和任务2的题目要求及问题.课后作业下次实训务必完成。编写程序代码：第二步：合作（问题）探究（对学、群学）任务 2。（提高设计题）在“神州号”程序中，需要判断飞船飞行状况。当飞船速度继续加大时,飞船将达到第二宇宙、第三宇宙速度（见下表）试编写程序,输入不同的飞船速度 V，判断它的各种飞行状况，显示出来 程序界面如下：补充程序代码:Private Sub command1_click（)Dim V AS single，n AS integer 飞船速度 V 单位（km/s)飞行状况 情况 7。91=V16.67 3-Break gravitate of solar 飞船挣脱太阳引力飞出太阳系 3 其它 警告出错信息 0 V=VAL（InputBox(“SPEED=”,”输入速度）)SELECT CASE V Case is7.9 Print v,“警告 Warning CASE_ Print v，“绕地球 CASE IS16.67 _ CASE is=16。67 Print v，“飞出太阳系 _ End sub 上机验证并填写下表 测试速度 飞行状况 V=8 V=7。8 V=12 V=16。67 3、课后作业 题目：铁路托运行李，从甲地到乙地,规定每张客票托运费计算方法是行李重量不超过 50kg 时,0。25 元/kg，超过 50kg而不超过100kg时，其超过部分按0.35元/kg收费，超过100kg时，其超过部分按 0.45 元/kg 收费.编写程序,输入行李重量，计算并输出托运的费用。分析：设行李重量为wkg,应付运费为x元,则运费公式为：程序界面如下：补充程序代码：Private Sub Command1_Click（)Dim w As Single,x As Single w=Val(Text1.Text）If w=50 Then _ Else If _ Then x=0.25*50+0。35 (w50)Else x=0。25*50+0.35*50+0.45*(w100）_ _ Text2。Text=x End Sub 第三步：分配展示任务（随机抽查）一组：二组：三组:四组：)100()10050()50()100(45.05035.05025.0)50(35.05025.025.0wwwwwwx五组：六组：第四步：总结评价(请同学们自行阅读并记忆）选择结构语句的格式：单分支:IF 表达式 THEN 语句块 End If IF 表达式 THEN 语句块 双分支：IF 表达式 THEN 语句块 1 Else 语句块 2 End If 多分支：If 语句的嵌套格式 是指语句序列 1 或语句序列 2 本身又是一个 If语句 If 条件 1 Then If 条件 2 Then Else Else Case 表达式列表 2 语句块 2 .Case Else 语句块 n+1 End Select 第五步：分配展示任务：一组：二组：三组:四组:五组:六组:第六步:总结评价【学法指导】学生总结梳理，教师拓展提升。学习内容与过程 用3-5分钟把展示内容在展示案 一、分组备展：二、分组展示：组内再准备一下，并派人提前写板书。三、巩固练习：四、总结评价:【展示要求】板书规范 自信大方 声音洪亮 质疑对抗 互动精彩【为您点拨疑难】【答疑解惑】【易错点】【易混点】学习指导 学习内容与过程 【对子帮扶】【扶弱济困】反馈达标案 一、分层检测（A、B、C 三层,分必答和选答题）二、分层达标训练：三、知识点(思维导图梳理)四、拓展提升:【层层拔高 优者更优】（理论迁移)【人人达标】【数字式】【列表式】【树枝式】【图示式 五、总结评价:我的收获：-。我的反思-。名人名言：学生最大的敌人就是依赖，教师最大的悲哀就是包办.崔其升 逸闻趣事：曹冲称象 数学谜语】【挑战一下自己！】