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

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

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

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

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

詳細(xì)代碼如下：

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

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

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