紙的對(duì)折

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

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

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

如果你認(rèn)為十來次是小菜一碟，那么恭喜你犯了個(gè)數(shù)學(xué)上的小錯(cuò)誤，因?yàn)槟阃酥笖?shù)的可怕。要知道，每次對(duì)折之后，紙的厚度都會(huì)增加一倍，與此同時(shí)紙的面積卻縮小了一半，而指數(shù)級(jí)的增長(zhǎng)是非?？膳碌?，所以紙張對(duì)折十次之后厚度就是原來的210倍，也就是1024倍，同時(shí)面積縮小為原來的1024分之一。

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

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

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

再點(diǎn)擊命令按鈕，就可以開始編寫程序啦！

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

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

               循環(huán)體         

Next 循環(huán)變量

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

Dim  a  As  Single            定義一個(gè)變量

      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 = “對(duì)折”& i &“次后將達(dá)到” a &“米，將超過珠穆朗瑪峰”

End Sub

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