vb选择结构教案.docx
- 文档编号:3327243
- 上传时间:2022-11-21
- 格式:DOCX
- 页数:9
- 大小:44.83KB
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)
飞行状况
情况
7.91<=V<11.19
1--MovearoundEarth飞船绕地球做匀速圆周运动
1
1119<=V<16.67
2--MovearoundSUN飞船离开地球的控制,围绕太阳转
2
V>16.67
3--Breakgravitateofsolar飞船挣脱太阳引力飞出太阳系
3
其它
警告出错信息
0
程序界面如下:
补充程序代码:
PrivateSubcommand1_click()
DimVASsingle,nASinteger
V=VAL(InputBox(“SPEED=”,”输入速度”))
SELECTCASEV
Caseis<7.9
Printv,“警告Warning”
CASE_______________________
Printv,“绕地球”
CASEIS<16.67
___________________________
CASEis>=16.67
Printv,“飞出太阳系”
_________________________________
Endsub
上机验证并填写下表
测试速度
飞行状况
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元,则运费公式为:
程序界面如下:
补充程序代码:
PrivateSubCommand1_Click()
DimwAsSingle,xAsSingle
w=Val(Text1.Text)
Ifw<=50Then
________________________
Else
If_________________Then
x=0.25*50+0.35*(w–50)
Else
x=0.25*50+0.35*50+0.45*(w–100)
______________
_______________
Text2.Text=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三层,分必答和选答题)
二、分层达标训练:
三、知识点(思维导图梳理)
四、拓展提升:
【层层拔高优者更优】
(理论迁移)
五、总结评价:
我的收获:
——————————————————————————————————————————--------————————————————。
我的反思——————————————————————————————————————————————————————————————。
名人名言:
学生最大的敌人就是依赖,教师最大的悲哀就是包办。
————崔其升
逸闻趣事:
曹冲称象……
数学谜语……
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 选择 结构 教案