信息技术第二十课
教学内容：vb第六课
教学目标：知识与技能：1、设计程序流程图并学会用vb语言表达
2、学生掌握循环结构Do语句的使用
3、掌握程序设计的步骤，具备程序设计思想
过程与方法：从折纸实验出发，学生在共同探究中逐步掌握程序设计步骤，从肢解代码到分析代码最后设计代码，由浅及深，
最后一个动手实践，让学生在教师的引导下完整的实现程序设计。
情感态度与价值观：本节课多次对学生情感进行教育，在课前导入后鼓励大家每天提高一点点，慢慢的量变就会形成质变，探究循环结构多次师生合作，创建和谐的教学氛围，最后的学生动手实践，完整的进行程序设计，收获新知，培养学生的自我效能感。
教学方法：讲授法、任务驱动法
一、 课前导入
1、 教师展示ppt中一张白纸，同学们猜猜一张白纸的厚度。
2、 一张普通的办公用纸，它的厚度大约有0.05词源网站毫米，现在要讲此纸对折clog5折，纸张的厚度是多少？
3、 （利用课前准备的白纸逐步引导，学生推导vb语句）
赋值语句s=s*2
4、假如一位女同学的身高为1.6米，那么折叠多少层可以达到她的高度？
学生竞猜，教师打开做好的vb折纸器按照学生猜测的次数进行逐个尝试。
5、达到我国珠穆朗玛峰的高度至少要折叠多少次？
学生竞猜，教师打开做好的conflictvb折纸器按照学生猜测的次数进行逐个尝试。
通过为数不多的折纸就可以达到很高，预期会大大出乎学生的意外，此刻介绍吉尼斯世界
纪录上所达到的最多次数为13次，鼓励学生课下尝试。
6、展示
鼓励大家每天进步一点点。
二、 庖丁解牛
1、 古代高斯解决当时一道十分困难的数学题1+2+3+…+100=？
2、 提问：大家知道他是怎么解决这道问题的吗？
3、 今天我们通过vb程序也可以很快的解决。
展示vb程序窗体和相应的代码
Private Sub Command1_Click()
Dim i As Integer, n As Integer
i = 1
n = 0
Do While i <= 100
n = n + i
i = i + 1
Loop
Label2.Caption = Str(n)
End Sub
4、 提问：大家看到程序代码有什么感觉？
5、 肢解代码，分成事件定义、赋初值、循环体、结果输出多个部分理解
三、 步入正题
1、 利用前面学习的程序流程图描述该过程，并提出Do语句的标准格式，以及使用说明。
小学生国旗下讲话
Do While 条件表达式
语句块
Loop
使用说明：
（1）先计算条件表达式的值，如果为真，执行语句块，否则中止执行循环
（2）遇到Loop时，再计算条件表达式，重复第步操作
（3）直到条件表达式的值为Fal，循环结束
2、 例：模拟1+2+3+4+5求和计算
（1）模拟代码：
n = 0 ‘1、n=0， i=1→n=1， i=2
i = 1 2、n=1， i=2→n=3， i=3
Do While i <= 5 ‘3、n=3， i=3→n=6， i=4
n = n + I 4、n=6， i=4→n=10，i=5
i = i + 1 ‘5、n=10，i=5→n=15，i=6
Loop
（2）开火车的形式展开，模拟每一次结果并推倒n，i所代表的意思
（3）n求和结果，deepimpacti循环变量
3、求 N阶乘（N！=N）（重点讲解）
根据程序设计的步骤
①分析问题 ②流程图设计 ③代码实现
（1）分析问题：定义变量n，f，i完成表格
n=1 | n=2 | n=3 | n=4 | n=5 |
f=1 | f=1x2 | f=1x2x3 | f=1x2x3x4 | f=1x2x3x4x5 |
i=1 | i=2 | i=3 | i=4 | i=5 |
| | | | |
王若琳好听的歌
找出初始值、循环体、循环条件
f=1 f=f * I i<=n
anglesi=1 i=i+1
（2）同学们根据提供拼图题.doc三分钟时间完成流程图拼接，教师展示结果，进行比较评价。
（3）代码实现：学生根据流程图的理解，把代码中？信息填写完整。
private sub command1_click（）
dim i as integer,n as integer
dim f as long
n=val（）
f=1
i=1
do while i<=n
?
loop
=str（f）
end sub恩底弥翁
学生结合ppt比较思考常用的数据类型，完成程序代码填写后，设计界面，填充代码调试后，进行数据测试。
学有余力者思考，如何修改代码可以输出 n>12以上的 n！
4、强化练习
小明今年17岁，为了支持环保，她在今年生日的这一天种了一棵树，她有一个美好的愿望，那就是从每年比前一年多种一棵树。这样下去，到到少岁时才能超过100颗。
Private Sub Form_click()
Dim tree As Integer
Dim n As Integer
？
Print "到"; n + 17; "岁时累计种到"; tree; "棵"
End Sub
学生根据种大树.doc帮助，按照程序设计三步完成vb程序设计。
5、上交作业
6、课后小结
本节课学习的内容？
小林浩平循环do语句
Do While 条件表达式
语句块
Loop
程序语言设计的流程：
1、分析问题
2、流程图设计
bacteria3、代码实现
