vb选择结构教案

1、精品文档 卓资县职业中学实训学案 班级_姓名_科目： VB程序设计主备： 闫森审核： 日期：课 题：选择结构程序设计实际应用（2）实验目的： 1、掌握If语句的使用。2、掌握Select Case语句的使用。实验内容与过程说明：本节课只完成任务1和任务2的题目要求及问题。课后作业下次实训务必完成。第一步：独学（请同学们独立完成以下任务）知识回顾：1、单分支条件语句格式：IF THEN 语句块End IfIF THEN 语句块2、双分支条件语句格式：IF THEN语句块1Else 语句块2End If任务1(基本设计题)题目：一般网络游戏只允许成年人进入，你来编写一个根据年龄判断是否成年的小程序

2、。（规定成年人年龄18周岁）请你根据题意，利用双分支条件语句格式2种方法（单行和多行）编写程序代码，并上机测试。设计界面如下：编写程序代码：第二步：合作（问题）探究（对学、群学）任务2.（提高设计题）在“神州号”程序中，需要判断飞船飞行状况。当飞船速度继续加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试编写程序，输入不同的飞船速度V，判断它的各种飞行状况，显示出来飞船速度V 单位（km/s）飞行状况 情况7.91=V11.19 1-Move around Earth飞船绕地球做匀速圆周运动 11119=V16.67 3-Break gravitate of solar飞船挣脱太阳引力飞出太

3、阳系 3其它警告出错信息0程序界面如下：补充程序代码：Private Sub command1_click()Dim V AS single, n AS integerV= VAL(InputBox(“SPEED=”,”输入速度”)SELECT CASE VCase is7.9 Print v,“警告Warning”CASE_Print v, “绕地球”CASE IS=16.67Print v, “飞出太阳系”_End sub上机验证并填写下表测试速度飞行状况V=8V=7.8V=12V=16.673、课后作业题目：铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是行李重量不超过50kg时

4、，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 _ Thenx = 0.25 * 50 + 0.35 * (w50) Else x = 0.25 * 50 + 0.35

5、 * 50 + 0.45 * (w100) _ Text2.Text = xEnd Sub第三步：分配展示任务（随机抽查）一组： 二组：三组： 四组：五组： 六组：第四步：总结评价（请同学们自行阅读并记忆）选择结构语句的格式：n 单分支：IF THEN 语句块End IfIF THEN 语句块n 双分支：IF THEN 语句块1Else 语句块2End Ifn 多分支： If语句的嵌套格式是指语句序列1或语句序列2本身又是一个If语句If Then If Then Else Else End IfEnd IfSelect Case语句格式：Select Case 变量或表达式 Case 表达式

6、列表1 Case 表达式列表2 . Case Else End Select第五步：分配展示任务：一组：二组：三组：四组：五组：六组：第六步：总结评价【学法指导】学生总结梳理，教师拓展提升。学习内容与过程用3-5分钟把展示内容在组内再准备一下，并派人提前写板书。【展示要求】板书规范自信大方声音洪亮质疑对抗互动精彩【为您点拨疑难】【答疑解惑】【易错点】【易混点】展示案一、分组备展：二、分组展示：三、巩固练习：四、总结评价：学习指导学习内容与过程【对子帮扶】【扶弱济困】【人人达标】【数字式】【列表式】【树枝式】【图示式】【挑战一下自己！】反馈达标案一、 分层检测（A、B、C三层，分必答和选答题）二、 分层达标训练：三、知识点（思维导图