vb循环结构-do语句

《vb循环结构-do语句》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、信息技术第二十课教学内容：vb第六课教学目标：知识与技能：1、设计程序流程图并学会用vb语言表达2、学生掌握循环结构Do语句的使用3、掌握程序设计的步骤，具备程序设计思想过程与方法：从折纸实验出发，学生在共同探究中逐步掌握程序设计步骤，从肢解代码到分析代码最后设计代码，由浅及深，最后一个动手实践，让学生在教师的引导下完整的实现程序设计。情感态度与价值观：本节课多次对学生情感进行教育，在课前导入后鼓励大家每天提高一点点，慢慢的量变就会形成质变，探究循环结构多次师生合作，创建和谐的教学氛围，最后的学生动手实践，完整的

2、进行程序设计，收获新知，培养学生的自我效能感。教学方法：讲授法、任务驱动法一、课前导入1、教师展示ppt中一张白纸，同学们猜猜一张白纸的厚度。2、一张普通的办公用纸，它的厚度大约有0.05毫米，现在要讲此纸对折5折，纸张的厚度是多少？3、（利用课前准备的白纸逐步引导，学生推导vb语句）赋值语句s=s*24、假如一位女同学的身高为1.6米，那么折叠多少层可以达到她的高度？学生竞猜，教师打开做好的vb折纸器按照学生猜测的次数进行逐个尝试。5、达到我国珠穆朗玛峰的高度至少要折叠多少次？学生竞猜，教师打开做好的vb折纸器

3、按照学生猜测的次数进行逐个尝试。通过为数不多的折纸就可以达到很高，预期会大大出乎学生的意外，此刻介绍吉尼斯世界纪录上所达到的最多次数为13次，鼓励学生课下尝试。6、展示鼓励大家每天进步一点点。二、庖丁解牛1、古代高斯解决当时一道十分困难的数学题1+2+3+…+100=？2、提问：大家知道他是怎么解决这道问题的吗？3、今天我们通过vb程序也可以很快的解决。展示vb程序窗体和相应的代码PrivateSubCommand1_Click()DimiAsInteger,nAsIntegeri=1n=0DoWhilei<=1

4、00n=n+ii=i+1LoopLabel2.Caption=Str(n)EndSub1、提问：大家看到程序代码有什么感觉？2、肢解代码，分成事件定义、赋初值、循环体、结果输出多个部分理解一、步入正题1、利用前面学习的程序流程图描述该过程，并提出Do语句的标准格式，以及使用说明。DoWhile条件表达式语句块Loop使用说明：（1）先计算条件表达式的值，如果为真，执行语句块，否则中止执行循环（2）遇到Loop时，再计算条件表达式，重复第步操作（3）直到条件表达式的值为False，循环结束2、例：模拟1+2+3+4

5、+5求和计算（1）模拟代码：n=0‘1、n=0，i=1→n=1，i=2i=12、n=1，i=2→n=3，i=3DoWhilei<=5‘3、n=3，i=3→n=6，i=4n=n+I4、n=6，i=4→n=10，i=5i=i+1‘5、n=10，i=5→n=15，i=6Loop（2）开火车的形式展开，模拟每一次结果并推倒n，i所代表的意思（3）n求和结果，i循环变量3、求N阶乘（N！=1x2x3x...xN）（重点讲解）根据程序设计的步骤①分析问题②流程图设计③代码实现（1）分析问题：定义变量n，f，i完成表格n=1n

6、=2n=3n=4n=5f=1f=1x2f=1x2x3f=1x2x3x4f=1x2x3x4x5i=1i=2i=3i=4i=5找出初始值、循环体、循环条件f=1f=f*Ii<=ni=1i=i+1（2）同学们根据提供拼图题.doc三分钟时间完成流程图拼接，教师展示结果，进行比较评价。（3）代码实现：学生根据流程图的理解，把代码中？信息填写完整。privatesubcommand1_click（）dimiasinteger,nasintegerdimfaslongn=val（text1.text）f=1i=1dowhil

7、ei<=n?looptext2.text=str（f）endsub学生结合ppt比较思考常用的数据类型，完成程序代码填写后，设计界面，填充代码调试后，进行数据测试。学有余力者思考，如何修改代码可以输出n>12以上的n！4、强化练习小明今年17岁，为了支持环保，她在今年生日的这一天种了一棵树，她有一个美好的愿望，那就是从每年比前一年多种一棵树。这样下去，到到少岁时才能超过100颗。PrivateSubForm_click()DimtreeAsIntegerDimnAsInteger？Print"到";n+17;"岁

8、时累计种到";tree;"棵"EndSub学生根据种大树.doc帮助，按照程序设计三步完成vb程序设计。5、上交作业6、课后小结本节课学习的内容？循环do语句DoWhile条件表达式语句块Loop程序语言设计的流程：1、分析问题2、流程图设计3、代码实现