如何利用VB程式設計,輸入圓的半徑,計算並輸出圓的面積

2021-03-08 04:56:06 字數 1643 閱讀 3097

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 對於轎車來說,一般轉彎半徑...