信息技术第二十课。
教学内容：vb第六课。
教学目标：知识与技能：1、设计程序流程图并学会用vb语言表达。
2、学生掌握循环结构do语句的使用。
3、掌握程序设计的步骤，具备程序设计思想。
过程与方法：从折纸实验出发，学生在共同**中逐步掌握程序设计步骤，从肢解**到分析**最后设计**，由浅及深，最后一个动手实践，让学生在教师的引导下完整的实现程序设计。
情感态度与价值观：本节课多次对学生情感进行教育，在课前导入后鼓励大家每天提高一点点，慢慢的量变就会形成质变，**循环结构多次师生合作，创建和谐的教学氛围，最后的学生动手实践，完整的进行程序设计，收获新知，培养学生的自我效能感。
教学方法：讲授法、任务驱动法。
一、 课前导入。
1、 教师展示ppt中一张白纸，同学们猜猜一张白纸的厚度。
2、 一张普通的办公用纸，它的厚度大约有0.05毫米，现在要讲此纸对折5折，纸张的厚度是多少？
3利用课前准备的白纸逐步引导，学生推导vb语句）
赋值语句s=s*2
4、假如一位女同学的身高为1.6米，那么折叠多少层可以达到她的高度？
学生竞猜，教师打开做好的vb折纸器按照学生猜测的次数进行逐个尝试。
5、达到我国珠穆朗玛峰的高度至少要折叠多少次？
学生竞猜，教师打开做好的vb折纸器按照学生猜测的次数进行逐个尝试。
通过为数不多的折纸就可以达到很高，预期会大大出乎学生的意外，此刻介绍吉尼斯世界纪录上所达到的最多次数为13次，鼓励学生课下尝试。
6、展示。鼓励大家每天进步一点点。
二、 庖丁解牛。
1、 古代高斯解决当时一道十分困难的数学题1+2+3+…+100=？
2、 提问：大家知道他是怎么解决这道问题的吗？
3、 今天我们通过vb程序也可以很快的解决。
展示vb程序窗体和相应的**。
private sub command1_click()
dim i as integer, n as integer
i = 1n = 0
do while i <=100
n = n + i
i = i + 1
loop= str(n)
end sub
4、 提问：大家看到程序**有什么感觉？
5、 肢解**，分成事件定义、赋初值、循环体、结果输出多个部分理解。
三、 步入正题。
1、 利用前面学习的程序流程图描述该过程，并提出do语句的标准格式，以及使用说明。
do while 条件表达式。
语句块。loop
使用说明：1）先计算条件表达式的值，如果为真，执行语句块，否则中止执行循环。
2）遇到loop时，再计算条件表达式，重复第步操作。
3）直到条件表达式的值为false，循环结束。
2、 例：模拟1+2+3+4+5求和计算。
1）模拟**。
n = 01、n=0， i=1→n=1， i=2
i = 12、n=1， i=2→n=3， i=3
do while i <=53、n=3， i=3→n=6， i=4
n = n + i4、n=6， i=4→n=10，i=5
i = i + 15、n=10，i=5→n=15，i=6
loop2）**车的形式展开，模拟每一次结果并推倒n，i所代表的意思。
3）n求和结果，i循环变量。
3、求 n阶乘（n！=1x2x3x...xn）（重点讲解）
根据程序设计的步骤。
分析问题 ②流程图设计 ③**实现。
1）分析问题：定义变量n，f，i完成**。
找出初始值、循环体、循环条件。
f=1 f=f * i i<=n
i=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=1i=1
do while i<=n
loopend 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、流程图设计。
3、**实现。