VB程序設計—計算圓柱體表面積和體積

2022屆14班 何偲玉蝶  指導教師：唐軍

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

VB，全稱visual basic，是Microsoft旗下開發的結構化、模塊化、面向對象的可視化程序設計語言。相較于其它語言，VB更適合我們這樣的初學者學習。通過該課程的學習，我們可以解決生活中和學習中的一些小問題，也可以設計一些簡單的娛樂小程序，還可以培養、鍛煉我們的邏輯思維。接下來，由我來向大家介紹我的這個小程序。

首先，設計一個窗體（如圖），5個用于顯示文字的label標簽，四個用于輸入輸出數據的text輸入框，兩個用于計算和退出的command命令按鈕。打開代碼窗口，定義四個變量r，h，s，v，類型為single。設置輸入框text1.text為半徑r，text2.text為高h，輸出框text3.text為表面積s，text4.text為體積v。在計算出s與v的數據后，使用if語句判斷s、v的數值是否溢出，否則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 "數字太大了！", 16, "警告"

Text1.Text = ""

Text2.Text = ""

End If

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

Text4.Text = v

Else

MsgBox "數字太大了！", 16, "警告"

Text1.Text = ""

Text2.Text = ""

End If

End Sub

Private Sub Command2_Click()

End                                                       

End Sub

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

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