VB程序設(shè)計—計算圓柱體表面積和體積

2022屆14班 何偲玉蝶  指導(dǎo)教師：唐軍

圓柱體，一個對我而言比較麻煩的立體幾何圖形。上初中以來，數(shù)學(xué)課本中關(guān)于圓柱體等幾何問題的計算我就弄錯過多次。本學(xué)期我正在學(xué)習(xí)VB程序設(shè)計選修課程，于是設(shè)計了一個利用VB來計算機圓柱體表面積和體積的程序。

VB，全稱visual basic，是Microsoft旗下開發(fā)的結(jié)構(gòu)化、模塊化、面向?qū)ο蟮目梢暬绦蛟O(shè)計語言。相較于其它語言，VB更適合我們這樣的初學(xué)者學(xué)習(xí)。通過該課程的學(xué)習(xí)，我們可以解決生活中和學(xué)習(xí)中的一些小問題，也可以設(shè)計一些簡單的娛樂小程序，還可以培養(yǎng)、鍛煉我們的邏輯思維。接下來，由我來向大家介紹我的這個小程序。

首先，設(shè)計一個窗體（如圖），5個用于顯示文字的label標簽，四個用于輸入輸出數(shù)據(jù)的text輸入框，兩個用于計算和退出的command命令按鈕。打開代碼窗口，定義四個變量r，h，s，v，類型為single。設(shè)置輸入框text1.text為半徑r，text2.text為高h，輸出框text3.text為表面積s，text4.text為體積v。在計算出s與v的數(shù)據(jù)后，使用if語句判斷s、v的數(shù)值是否溢出，否則msgbox提示警告。

詳細代碼如下：

Private Sub Command1_Click()

Dim r, h, s, v As Single

r = val(Text1.Text)

h =val( Text2.Text)

s = r * r * 2 * 3.14+ 2 * r * h *3.14

v = r * 2 * 3.14 * h

If s > 0 And s < 1.1E+19 Then

Text3.Text = s

Else

MsgBox "數(shù)字太大了！", 16, "警告"

Text1.Text = ""

Text2.Text = ""

End If

If v > 0 And v < 1.1E+19 Then                                   

Text4.Text = v

Else

MsgBox "數(shù)字太大了！", 16, "警告"

Text1.Text = ""

Text2.Text = ""

End If

End Sub

Private Sub Command2_Click()

End                                                       

End Sub

雖然這是一個最簡單的程序，但實現(xiàn)過程也并非一帆風(fēng)順，如一開始我嘗試用coust定義圓周率Π的值，想給圓周率設(shè)制更多小數(shù)位，使計算結(jié)果更精確。但在調(diào)試運行程序的時候，計算結(jié)果總是出現(xiàn)溢出問題，后來還是老老實實的將代碼改成了直接*3.14，經(jīng)過多次修改，最后才達到我的預(yù)想。

計算機程序運行高效，快速，準確，編寫程序來解決數(shù)學(xué)問題可以帶來很多便利。最近數(shù)學(xué)老師又布置了“雞兔同籠”的問題，同學(xué)們覺得用程序來解決這個問題又該如何實現(xiàn)呢？聯(lián)系我，一起解決吧。