-
兩個命令按鈕,兩個標籤,兩個文字"
private sub command1_click()r =
p =s = p * r * r
sprivate sub command2_click()endprivate sub text1_lostfocus()clsr =
circle (10000, 3000), r, vbblackif r > 3000 then
msgbox "溢位! "
elseif r <= 0 then
msgbox "半徑不能為 0! "
end if
end if
end sub
-
在此示例中,圓的面積將由 pi 的值和使用者輸入的圓的半徑計算。
01在工具箱中找到相應的控制項,並將其繪製在窗體上的適當位置。
02 接下來,讓我們開始為計算按鈕編寫單擊事件。 首先,定義兩個變數 r 和 s,其中 r 是半徑,s 是面積。
03 接下來,定義乙個常量 pi,預設值設定為。
04 讓我們開始寫作吧。 (由於程式中行數較多,這裡不方便觀察注釋的統一書寫,每句話的意思請看程式中的注釋。 )
05 按 f5 執行測試,並在框中輸入半徑 3 以計算結果。
注意公式的改寫,方塊請使用冪符號“,乘法符號請使用”*”
-
在同一平面上有一條固定線和一條移動線,當這個平面圍繞這條固定線旋轉時,由這條移動線形成的曲面稱為旋轉曲面,這條固定線稱為旋轉曲面的軸線,這條運動線稱為旋轉曲面的母線。
圓柱體的兩個圓面稱為底面,周圍的面稱為邊,圓柱體由兩個底面和乙個邊組成。
圓柱體的兩個底面是兩個相同的面。 兩個底面之間的距離是圓柱體的高度。
圓柱體的側面是曲面,圓柱體的側面表示為矩形、正方形或平行四邊形(斜切線)。
圓柱體的邊面積=底面的周長×高度,即:
S 邊面積 = CH = 2 rh
基面周長 c=2 r= d
圓柱體的表面積 = 邊面積 + 底面積 x2 = ch + 2 r 2 = 2 r (r + h)。
圓柱體的體積 = 底面積 x 高度,即 v=s 底面積 h=(r r)h
我希望我能幫助你解決你的疑問。
好問題,用 for 迴圈和判斷語句寫。
private sub command1_click()dim tuzi as integer >>>More