紙的對折

————VB程序設(shè)計

        2024屆19班  關(guān)欣怡 指導(dǎo)教師  曠勇

一張紙最多能夠?qū)φ鄱嗌俅?？同一方向上把一張紙對折起來有什么技術(shù)含量？其實這一看似簡單得要命的動作非常復(fù)雜。任何人都可以輕松對折兩次、三次、四次，但是你覺得你能折多少次？10次？20次？

如果你認為十來次是小菜一碟，那么恭喜你犯了個數(shù)學(xué)上的小錯誤，因為你忘了指數(shù)的可怕。要知道，每次對折之后，紙的厚度都會增加一倍，與此同時紙的面積卻縮小了一半，而指數(shù)級的增長是非?？膳碌?，所以紙張對折十次之后厚度就是原來的210倍，也就是1024倍，同時面積縮小為原來的1024分之一。

我學(xué)習(xí)VB程序一學(xué)期零幾個月，雖然時間很短暫，但我被這個看似無用的東西深深吸引了，它就像一個游戲一樣，開局一個簡單的裝備，需要你不停的闖關(guān)，不停地收集裝備，一直到打敗boss為止

對于這個問題，我上網(wǎng)查了一下：生活中我們無論拿出什么樣的紙張，對折都不會超過9次。隨后我突然萌生了一個不成熟的想法：如果我有一個很大很長的紙，不停的對折紙張，紙張的厚度可不可以超過珠穆朗瑪峰海拔8848米，那么一張紙對折幾次后能超過這個高度？（普通紙的厚度為0.1毫米）

對此，我用VB程序做了一個實驗。首先打開VB，建立一個工程，點擊左邊菜單欄的Label標(biāo)簽，在Form中設(shè)置兩個標(biāo)簽，隨后設(shè)置一個Commard Button命令按鈕，點擊命令按鈕，看到右下邊的caption 改名為“確認”，當(dāng)然也可以點Font 調(diào)整字體；Forecolor 改變顏色......

再點擊命令按鈕，就可以開始編寫程序啦！

   在這里我們要用上For循環(huán)語句

For 循環(huán)變量 = 初值1 To 終值

               循環(huán)體         

Next 循環(huán)變量

具體編程代碼及注釋如下：

Dim  a  As  Single            定義一個變量

      a  = 0.0001

For   i   =  1  To  1000      循環(huán)變量

      a  =  a  *  2            

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

          Exit  For

      End  if                    停止循環(huán)

Next  i

Label i.Ccption = “對折”& i &“次后將達到” a &“米，將超過珠穆朗瑪峰”

End Sub

 怎么樣？你心動了嗎? 一起來學(xué)習(xí)程序設(shè)計吧！