1樓：匿名使用者
就兩個公式嘛
圓的周長＝2×半徑×圓周率＝直徑×圓周率
即：圓的周長＝2πr 或πd
面積：s=πr² 或s=π(d/2)²
程式，自己弄一個textbox 1用來輸入圓的半徑textbox2用來顯示計算結果周長
textbox3用來顯示計算結果面積
新增兩個button1命名為計算圓的周長和麵積。
定義常量π，定義半徑r
然後在button1 事件中新增計算和顯示結果**即可。
public class form1
const p = 3.14
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.
click
textbox2.clear() '清空以前計算結果textbox3.clear() '清空以前計算結果if textbox1.
text <> string.empty then '判斷是否輸入半徑
dim r as double = textbox1.text'上面是這兩部的合併 dim r as double' r=textbox1.text
textbox2.text = 2 * p * rtextbox3.text = p * r * relse
msgbox("請輸入圓的半徑")
end if
end sub
end class
如果沒有輸入半徑，提示輸入半徑
設計vb計算圓的面積與周長
2樓：
private sub command1_click()d = inputbox("請輸入圓的直徑")s = 3.1415926 / 4 * d ^ 2l = 3.1415926 * d
msgbox ("圓的面積" & s & vbcrlf & "圓的周長" & l)
end sub
private sub command2_click()r = inputbox("請輸入圓的半徑")s = 3.1415926 * (r ^ 2)l = 2 * 3.1415926 * rmsgbox ("圓的面積" & s & vbcrlf & "圓的周長" & l)
end sub
怎樣用vb求圓的周長和麵積
3樓：匿名使用者
圓的周長公式ｃ＝２π r
圓的面積公式ｓ＝π r
4樓：匿名使用者
const pi as double = 3.141592private sub form_resize()dim rad as integer
dim area as double
dim pre as double
rad = 10
area = pi * rad * radpre = 2 * pi * rad
print "半徑="; rad
print "圓面積="; area
print "圓周長="; pre
end sub
5樓：
畫一個text1控制元件和一個command控制元件在command1的click事件中輸入一下**dim s,l,r
r=value(text1.text)
s=3.14159*r*r
l=3.14159*2*r
print s
print l
6樓：吹響那海螺
圓的周長＝2×半徑×圓周率＝直徑×圓周率
即：圓的周長＝2πr 或πd
面積：s=πr² 或s=π(d/2)²
程式，自己弄一個textbox 1用來輸入圓的半徑textbox2用來顯示計算結果周長
textbox3用來顯示計算結果面積
新增兩個button1命名為計算圓的周長和麵積。
定義常量π，定義半徑r
然後在button1 事件中新增計算和顯示結果**即可。
演算法：public class form1const p = 3.14
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.
click
textbox2.clear() '清空以前計算結果textbox3.clear() '清空以前計算結果if textbox1.
text <> string.empty then '判斷是否輸入半徑
dim r as double = textbox1.text'上面是這兩部的合併 dim r as double' r=textbox1.text
textbox2.text = 2 * p * rtextbox3.text = p * r * relse
msgbox("請輸入圓的半徑")
end if
end sub
end class
7樓：科技阿峰
前一個朋友回答是正確的
設計vb計算圓的面積與周長。
8樓：
private sub command1_click()d = inputbox("請輸入圓的直徑")s = 3.1415926 / 4 * d ^ 2l = 3.1415926 * d
msgbox ("圓的面積" & s & vbcrlf & "圓的周長" & l)
end sub
private sub command2_click()r = inputbox("請輸入圓的半徑")s = 3.1415926 * (r ^ 2)l = 2 * 3.1415926 * rmsgbox ("圓的面積" & s & vbcrlf & "圓的周長" & l)
end sub
關於vb程式設計的計算圓的面積和周長
9樓：匿名使用者
const pi as double = 3.141592private sub form_resize()dim rad as integer
dim area as double
dim pre as double rad = 10area = pi * rad * radpre = 2 * pi * rad print "半徑="; rad
print "圓面積="; area
print "圓周長="; pre
end sub
10樓：匿名使用者
private sub form_load() ……end sub之間的print 語句，是無法顯示在窗體上的，建議寫在窗體的單擊事件裡。如下：private sub form_click()……end sub
vb 輸入半徑，計算圓周長和圓面積
11樓：匿名使用者
執行通過，希望對你有幫助。
private sub command1_click()dim r as double
r = val(text1.text)
c = 2 * 3.14 * r
s = 3.14 * r * r
print "周長c="; c; "面積s="; send sub
private sub form_load()me.show
text1.text = ""
msgbox "請輸入要計算的圓的半徑"
text1.setfocus
end sub
怎麼用vb設計程式計算圓的面積？
12樓：雨過天晴日丶
private sub command1_click()d = inputbox("請輸入圓的直徑")s = 3.1415926 / 4 * d ^ 2l = 3.1415926 * d
msgbox ("圓的面積" & s & vbcrlf & "圓的周長" & l)
end sub
private sub command2_click()r = inputbox("請輸入圓的半徑")s = 3.1415926 * (r ^ 2)l = 2 * 3.1415926 * rmsgbox ("圓的面積" & s & vbcrlf & "圓的周長" & l)
end sub
vb計算圓的周長和麵積，求大神出面。
13樓：
你的**寫錯了，true不是ture
**沒問題
14樓：92豬哥
private sub form_load()command1.enabled = falsecommand2.enabled = falseend sub
private sub text1_change()command1.enabled = truecommand2.enabled = trueend sub
在窗體載入時加上這個**
15樓：匿名使用者
command1.enabled = ture？
true
VB輸入半徑計算圓的周長和麵積公式
他們的答案好像都沒有輸出結果。dim r,s,c as integerprivate sub command1 click r val text1.text s 3.1415926 r 2c 2 3.1415926 rlabel1.caption 周長是 clabel2.caption 面積是 se...
怎樣用VB語言設計抽號機，怎樣用VB語言設計一個抽號機
不重複的抽號機 我幫你實現 怎麼用vb做抽號機 private sub command1 click randomize text1.text int 1 999 1 rnd 999 end sub 如何用vb製作隨機學號抽取器？這個需要應用以下幾個步驟 寫一個獲取隨機學號函式。將這個函式繫結在某個...
圓的周長和麵積計算公式，圓的周長和麵積的公式是什麼
圓是周長和麵積公式 圓的周長 直徑x圓周率 3.14 周長 2 派r 面積 派rr 面積 派r的平方周長 圓周率乘以直徑 面積 圓周率乘以半徑的平方周長 派 圓直徑 派 2圓半徑 面積 派 圓半徑的平方周長 圓周率x直徑 或 圓周率x半徑x2 因為圓周率是個無限不迴圈小數 一般 人們把他看作3.14...