纸的对折

————VB程序设计

        2024届19班  关欣怡 指导教师  旷勇

一张纸最多能够对折多少次？同一方向上把一张纸对折起来有什么技术含量？其实这一看似简单得要命的动作非常复杂。任何人都可以轻松对折两次、三次、四次，但是你觉得你能折多少次？10次？20次？

如果你认为十来次是小菜一碟，那么恭喜你犯了个数学上的小错误，因为你忘了指数的可怕。要知道，每次对折之后，纸的厚度都会增加一倍，与此同时纸的面积却缩小了一半，而指数级的增长是非常可怕的，所以纸张对折十次之后厚度就是原来的210倍，也就是1024倍，同时面积缩小为原来的1024分之一。

我学习VB程序一学期零几个月，虽然时间很短暂，但我被这个看似无用的东西深深吸引了，它就像一个游戏一样，开局一个简单的装备，需要你不停的闯关，不停地收集装备，一直到打败boss为止

对于这个问题，我上网查了一下：生活中我们无论拿出什么样的纸张，对折都不会超过9次。随后我突然萌生了一个不成熟的想法：如果我有一个很大很长的纸，不停的对折纸张，纸张的厚度可不可以超过珠穆朗玛峰海拔8848米，那么一张纸对折几次后能超过这个高度？（普通纸的厚度为0.1毫米）

对此，我用VB程序做了一个实验。首先打开VB，建立一个工程，点击左边菜单栏的Label标签，在Form中设置两个标签，随后设置一个Commard Button命令按钮，点击命令按钮，看到右下边的caption 改名为“确认”，当然也可以点Font 调整字体；Forecolor 改变颜色......

再点击命令按钮，就可以开始编写程序啦！

   在这里我们要用上For循环语句

For 循环变量 = 初值1 To 终值

               循环体         

Next 循环变量

具体编程代码及注释如下：

Dim  a  As  Single            定义一个变量

      a  = 0.0001

For   i   =  1  To  1000      循环变量

      a  =  a  *  2            

      If  a  >=  8848  Then     如果大于等于8848，那么

          Exit  For

      End  if                    停止循环

Next  i

Label i.Ccption = “对折”& i &“次后将达到” a &“米，将超过珠穆朗玛峰”

End Sub

 怎么样？你心动了吗? 一起来学习程序设计吧！