1樓：兄弟連教育北京總校
dim r, s, l as single:
private sub mianji_click() '面積r = val(text1.text)
s = 3.1415926 ^ 2 * rtext3.text = s
end sub
private sub zhouchang_click() '周長r = val(text1.text)
l = 2 * 3.1425926 * rtext2.text = l
end sub
vb中輸入圓的半徑r,利用單選按鈕選擇計算圓的面積、圓的周長等
怎樣用vb計算圓的面積和周長
2樓：匿名使用者
就兩個公式嘛
圓的周長＝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 輸入半徑，計算圓周長和圓面積
3樓：匿名使用者
執行通過，希望對你有幫助。
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計算圓的面積與周長
4樓：
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中用怎樣sub過程計算圓面積與周長
5樓：布樂正
const pi as double = 3.141592private sub form_load()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
如沒有顯式地指定使用 public 或 private，則 即它們對於 script 中的所有其他過程都是可見的。sub 過程中區域性變數的值在呼叫過程中不被保留。
所有可執行**必須包含於過程中。不能在另一個 sub 或 function 過程中定義一個 sub 過程。
使用 exit sub 語句可以立即從 sub 過程中退出。程式繼續執行呼叫 sub 過程的語句之後的語句。可以在 sub 過程中任意位置出現任意個 exit sub 語句。
6樓：網海1書生
const pi as single = 3.141593sub f1(r) '計算面積，r是半徑
msgbox "面積為" & pi * r ^ 2end sub
sub f2(r) '計算周長，r是半徑
msgbox "面積為" & 2 * pi * rend sub
vb計算圓的周長和麵積，求大神出面。
7樓：
你的**寫錯了，true不是ture
**沒問題
8樓：92豬哥
private sub form_load()command1.enabled = falsecommand2.enabled = falseend sub
private sub text1_change()command1.enabled = truecommand2.enabled = trueend sub
在窗體載入時加上這個**
9樓：匿名使用者
command1.enabled = ture？
true
如何利用vb程式設計，輸入圓的半徑，計算並輸出圓的面積。
10樓：四舍**入
可以參考下面的**：
private sub command1_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
11樓：用著追她
1、開啟vb，選擇左邊工具欄的commandbutton。
2、在窗體上拖出一個按鈕，更改上面的文字為「單擊輸入半徑」。
3、雙擊按鈕，在彈出的code**視窗中，輸入如下**。
4、選擇工具欄中的啟動按鈕進行除錯。
5、單擊按鈕，會彈出一個對話方塊，在裡面輸入半徑3。
6、會在窗體上列印出計算出的面積的值。
12樓：花謝情尤在
^public sub command1_click( )dim r as integer
r=val(inputbox("請輸入半徑"))s=3.1415926*r^2
msgbox "圓的面積為:"&s
end sub
13樓：匿名使用者
sub command1_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
php中radio按鈕單選的問題
在 後面加上checked，表示該單選按鈕初始為選中狀態 radio 的 name 相同就可以了 radio 的name 相同就可以了 php中怎樣獲取radio單選框的值 html bai du 女男 兩個radio控制元件的zhiname屬性必須是一樣的index.php post 就是單選框選...
VB中設計加法計算器，怎麼按按鈕能將數字連起來。如 按兩
private sub command9 click text1 text1.text command9.caption end sub 用字串連線就行了 你的按鈕上比如是9 那你就 9 是8 就 8 text1.text text1.text 9text1.text text1.text 8簡單易...
利用計算器探索規律任選1,2,39中的數,將這個數乘以
3 37037 111111,所以，取得4，那麼結果就是444444，道理清楚了吧！解 選擇任意一個數n 得到的結果是nnnnnn 6個n 因為3 37037 111111 所以結果肯定是6個重複的數字 37037 3 1111111 所以數a 3 37037 aaaaaaa 利用計算器探索規律 任...