do语句教案

Private Sub Command1_Click()
Dim S As Integer,N As Integer
S=0
N=0
_______
N=N+1
S=S+N
________
Print "求得的最大整数N=";N-1
End Sub
注：拖拖看的过程中，进一步了解do循环语句的结构及终止条件的设置。
教学流程与教学内容
（3）填填看
题目：假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗马峰的高度为止（珠穆朗马峰的高度为8848.13米），求对折纸张的次数。编写程序解决这个问题。
给出如下程序代码，学生填空补充完整程序。
Private Sub Command1_Click()
（2）一起来找茬
题目：某玩具厂1996年生产总值为200万元，如果年生产增长率为5%，编写程序计算最早在哪一年，生产总值超过300万元。
给出如下程序代码，让学生找出错误的代码。
Private Sub Command1_Click()
Dim Sum As Single,Year As Integer
Year=1996
5、拓展提高
给出一题，让学生利用do循环的四种格式实现它，比较出四种格式的不同点。
教学反思
学生学到第二章的程序的循环结构这一节时，学习内容已经有深度与难度了。对于那些不喜欢上程序设计课的学生，我觉得关键要解除他们畏难的情绪。主要是让这些学生不要害怕计算机编程，本节课设计了许多游戏化的教学环节和动画展示的效果，让学生在快乐的氛围下轻松的学习，效果非常好。另外，本课的拓展提高题有点难度，给了喜欢钻研的学生一个挑战的舞台，但同时对于一部分有时间做而又没法实现的同学来说是打击，在授课的时侯还是要注意给予充分的帮助。
3、动态展示Do循环语句的执行过程（亮点二）
用一个简单实例，在程序流程图上用flash动画展示其执行过程。
4、课堂练习
一共有4道有点游戏化的课堂练习。
（1）拖拖看
题目：已知S=1+2+3+…+N，找出一个最大的整数N，使得S<30000。编写程序解决这一问题。
给出四个组件：for do Loop Until s>=30000 loop until s<30000，选择正确的拖到横线处。
Dim High As Single,N As Integer
N=0
High=0.1
Do
__________
High=High*2
Loop Until_________
Print "一张足够长的纸对折";N;"次可超过珠穆朗马峰高度！"
End Sub
（4）我的程序我做主
根据引入时的提示，自主编写实现该猜数游戏的程序。
教学
难点
让学生学会使用VB语言的do循环语句来解决实际问题
教学流程与教学内容
1、引入（亮点一）
让两个学生玩一个猜数游戏，比比看谁猜得又快又准。（课件展示学生猜数的过程）
猜数游戏后提出问题：该游戏能否应用上节课的For循环语句实现？分析后引入Do循环语句。
2、基础知识讲解
课件讲解do循环语句的基本结构及流程图。
课题
2.4.2程序的循环结构—do循环语句
三维教学目标
知识与
技能
掌握VB语言的DO循环语句、语句的格式、功能和执行过程；
过程与
方法
采用动态展示和游戏化教学
情ຫໍສະໝຸດ Baidu、
态度、
价值观
经历用计算机解决问题的过程，体验成功的快乐。
教学内容分析
教学
重点
让学生学会使用VB语言的do循环语句来实现循环控制结构，解决实际问题。
Sum=200
Do
Year=Year+1
Sum=Sum+Sum*5%‘5%应该改为0.05
Loop Until Sum<=300‘sum<=300应该改为sum>300
Print "最早在";Y;"年生产总值超过300万元!"‘变量Y应该改为Year
End Sub
注：学生点击对应行，即显示该行是否有错，让学生阅读程序的过程中进一步了解Do循环语句及代码的编写规范。