1、海南中学三亚学校 梁榕玲一一、创设情境、提出问题、创设情境、提出问题问题1：一张A4纸经过多次对折后，纸张的厚度能超过珠穆朗玛峰的高度吗？单张厚度为0.1毫米珠穆朗玛峰高度为珠穆朗玛峰高度为8844.43米米二、二、分析问题、讲授新课分析问题、讲授新课问题2：从理论上来说，一张A4纸经过多少次对折后，纸张的厚 度能超过珠穆朗玛峰的高度？折纸次数 N：每次都递增加1，折纸厚度 H：每对折一次，厚度翻倍1 1、分析问题，寻找规律、分析问题，寻找规律：设折纸次数为N，纸的厚度为H折纸次数N纸的厚度HN=0H=0.1N=0+1=1H=0.1*2=0.2N=1+1=2H=0.2*2 从上表的计算出，你发
2、现了什么？从上表的计算出，你发现了什么？手工手工计算的一般过程准备计算工具手工计算人工比较，得到最终的结果编程编程计算折纸厚度的过程选择计算机程序设计语言编程计算纸张对折后厚度计算机对比，得出结果2 2、设计算、设计算法法算法：解决问题的步骤和方法VB语言手工手工计算的一般过程准备计算工具手工计算人工比较，得到最终的结果编程编程计算折纸厚度的过程选择计算机程序设计语言编程计算纸张对折后厚度计算机对比，得出结果2、设计算法算法：解决问题的步骤和方法VB语言如何计算？如何计算？纸厚度超过8844.43米吗？对折，厚度加倍折纸次数加1纸的厚度 h 初值为0.1毫米开始no 输出折纸次数nYes结束折纸次数n初值为0h=0.1n=0h=h*2n=n+1输出nh8844430设：h为纸的厚度，n为折纸的次数Do while 条件 循环体Loop Do while h8844430 h=h*2 n=n+1Loop 3 3、编写编写代码代码Private Sub Command1_Click() 单击按钮Command1时开始运行程序 Let n = 0 折纸次数为n,初始值为0 Let h = 0.1 一张纸的厚度为h，初始值为0.1毫米Do While h 20最小的n值。五、扩展延伸五、扩展延伸
