1樓:四捨**入
可以參考下面的**:
private sub ***mand1_click()dim p as single
dim s as single
dim r as single
p = 3.1415 '定義周長率的值
r = inputbox("請輸入乙個圓的半徑", "輸入", 0) '獲取輸入值
s = p * r ^ 2 '面積公式
c = 2 * p * r '周長公式
msgbox ("圓的面積為:" & s & "圓的周長為:" & c) '輸出結果
end sub
2樓:用著追她
1、開啟vb,選擇左邊工具欄的***mandbutton。
2、在窗體上拖出乙個按鈕,更改上面的文字為「單擊輸入半徑」。
3、雙擊按鈕,在彈出的code**視窗中,輸入如下**。
4、選擇工具欄中的啟動按鈕進行除錯。
5、單擊按鈕,會彈出乙個對話方塊,在裡面輸入半徑3。
6、會在窗體上列印出計算出的面積的值。
3樓:花謝情尤在
^public sub ***mand1_click( )dim r as integer
r=val(inputbox("請輸入半徑"))s=3.1415926*r^2
msgbox "圓的面積為:"&s
end sub
4樓:匿名使用者
sub ***mand1_click()
dim r$,s!
dor=inputbox("請輸入半徑r")if isnumeric(r) then
if val(r)>0 then exit doend if
loop
s=3.1415926*val(r)*val(r)msgbox "圓的面積為:" & s
end sub
vb作業 作業:輸入圓的半徑,計算圓面積和圓周長。計算結果資料型別為單精度型。
5樓:匿名使用者
①方法1:
private sub ***mand1_click()dim p as single
dim s as single
dim r as single
p = 3.1415 '定義pai的值r = val(text1)
s = p * r ^ 2 '面積公式c = 2 * p * r '周長公式label2.caption = c '標籤2輸出周長結果text2 = s '文字框2輸出面積結果end sub
②方法2
private sub ***mand1_click()dim p as single
dim s as single
dim r as single
p = 3.1415 '定義pai的值r = inputbox("請輸入乙個圓的半徑", "輸入", 0) '獲取輸入值
s = p * r ^ 2 '面積公式c = 2 * p * r '周長公式msgbox ("圓的面積為:" & s & "圓的周長為:" & c) '輸出結果
end sub
C程式設計題,求圓的面積和周長,從鍵盤輸入半徑,求出圓的面積和
r 有半徑直接就能得到面積值啊 2 r不就是周長嗎,後台計算一下再輸出 txtarea pi r r txtcircumference 2 r pi 這個問題是否太簡單了些,直接帶變數到公式就ok啦 用c 編寫乙個程式,通過鍵盤輸入圓的半徑,計算圓的面積和周長 string x console.re...
vb 程式設計 如何利用隨機函式產生10到90的奇數組成的
private sub command1 click randomize dim a 14 as integer for i 0 to 14 a i 2 next i label1.caption for i 0 to 14 doa i int rnd 81 10 loop until a i mo...
如何計算汽車的最小轉彎半徑,轉彎半徑如何計算?簡便方法
1 最小轉彎半徑是指當轉向盤轉到極限位置,汽車以最低穩定車速轉向行駛時,外側轉向輪的中心平面在支承平面上滾過的軌跡園半徑。2 是車在行駛中將方向向左或右打死,車會在一定的園週中做環形運動,這個環形的半徑大小就是車的轉彎半徑。對於車而言,轉彎半徑越小,它的活動範圍就越大。3 對於轎車來說,一般轉彎半徑...