vb循环结构-do语句.docVIP

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