紙的對折

————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

 怎么樣？你心動了嗎? 一起來學習程序設計吧！