vb选择结构教案.docx
《vb选择结构教案.docx》由会员分享，可在线阅读，更多相关《vb选择结构教案.docx（9页珍藏版）》请在冰豆网上搜索。
vb选择结构教案
卓资县职业中学实训学案
班级_____姓名_________
科目：
VB程序设计
主备：
闫森
审核：
日期：
课题：
选择结构程序设计实际应用
（2）
实验目的：
1、掌握If语句的使用。
2、掌握SelectCase语句的使用。
实验内容与过程
说明：
本节课只完成任务1和任务2的题目要求及问题。
课后作业下次实训务必完成。
第一步：
独学（请同学们独立完成以下任务）
知识回顾：
1、单分支条件语句格式：
①IF<表达式>THEN
语句块
EndIf
②IF<表达式>THEN语句块
2、双分支条件语句格式：
IF<表达式>THEN
语句块1
Else
语句块2
EndIf
任务1（基本设计题）
题目：
一般网络游戏只允许成年人进入，你来编写一个根据年龄判断是否成年的小程序。
（规定成年人年龄>18周岁）
请你根据题意，利用双分支条件语句格式2种方法（单行和多行）编写程序代码，并上机测试。
设计界面如下：
编写程序代码：
第二步：
合作（问题）探究（对学、群学）
任务2.（提高设计题）
在“神州号”程序中，需要判断飞船飞行状况。
当飞船速度继续加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试编写程序，输入不同的飞船速度V，判断它的各种飞行状况，显示出来
飞船速度V单位（km/s）
飞行状况
情况
<=V<
1--MovearoundEarth飞船绕地球做匀速圆周运动
1
1119<=V<
2--MovearoundSUN飞船离开地球的控制,围绕太阳转
2
V>
3--Breakgravitateofsolar飞船挣脱太阳引力飞出太阳系
3
其它
警告出错信息
0
程序界面如下：
补充程序代码：
PrivateSubcommand1_click（）
DimVASsingle,nASinteger
V=VAL（InputBox（“SPEED=”,”输入速度”））
SELECTCASEV
Caseis<
Printv,“警告Warning”
CASE_______________________
Printv,“绕地球”
CASEIS<
___________________________
CASEis>=
Printv,“飞出太阳系”
_________________________________
Endsub
上机验证并填写下表
测试速度
飞行状况
V=8
V=
V=12
V=
3、课后作业
题目：
铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是行李重量不超过50kg时，元/kg，超过50kg而不超过100kg时，其超过部分按元/kg收费，超过100kg时，其超过部分按元/kg收费。
编写程序，输入行李重量，计算并输出托运的费用。
分析：
设行李重量为wkg，应付运费为x元，则运费公式为：
程序界面如下：
补充程序代码：
PrivateSubCommand1_Click（）
DimwAsSingle,xAsSingle
w=Val
Ifw<=50Then
________________________
Else
If_________________Then
x=*50+*（w–50）
Else
x=*50+*50+*（w–100）
______________
_______________
=x
EndSub
第三步：
分配展示任务（随机抽查）
一组：
二组：
三组：
四组：
五组：
六组：
第四步：
总结评价（请同学们自行阅读并记忆）
选择结构语句的格式：
单分支：
①IF<表达式>THEN
语句块
EndIf
②IF<表达式>THEN语句块
双分支：
IF<表达式>THEN
语句块1
Else
语句块2
EndIf
多分支：
①If语句的嵌套格式
是指语句序列1或语句序列2本身又是一个If语句
If<条件1>Then
If<条件2>Then
<语句序列1>
Else
<语句序列2>
Else
<语句序列3>
EndIf
EndIf
②SelectCase语句格式：
SelectCase变量或表达式
Case表达式列表1
<语句块1>
Case表达式列表2
<语句块2>
…….
[CaseElse
<语句块n+1>]
EndSelect
第五步：
分配展示任务：
一组：
二组：
三组：
四组：
五组：
六组：
第六步：
总结评价
【学法指导】学生总结梳理，教师拓展提升。
学习内容与过程
用3-5分钟把展示内容在组内再准备一下，并派人提前写板书。
【展示要求】
板书规范
自信大方
声音洪亮
质疑对抗
互动精彩
【为您点拨疑难】
【答疑解惑】
【易错点】
【易混点】
展示案
一、分组备展：
二、分组展示：
三、巩固练习：
四、总结评价：
学习指导
学习内容与过程
【对子帮扶】
【扶弱济困】
【人人达标】
【数字式】
【列表式】
【树枝式】
【图示式】
【挑战一下自己！
】
反馈达标案
一、分层检测（A、B、C三层，分必答和选答题）
二、分层达标训练：
三、知识点（思维导图梳理）
四、拓展提升：
【层层拔高优者更优】
（理论迁移）
五、总结评价：
我的收获：
——————————————————————————————————————————--------————————————————。
我的反思——————————————————————————————————————————————————————————————。
名人名言：
学生最大的敌人就是依赖，教师最大的悲哀就是包办。
————崔其升
逸闻趣事：
曹冲称象……
数学谜语……
升级会员 