1樓：匿名使用者
他們的答案好像都沒有輸出結果。
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 = "面積是：
" & send sub
private sub command2_click()text1.text = ""
label1.caption = ""
label2.caption = ""
end sub
2樓：匿名使用者
use control cmd,text（2）,label（2）**如下：
dim pi as double
private sub command1_click()if text1(0).text = "" then exit sub
text1(1).text = pi * cdbl(val(text1(0).text)) * 2
text1(2).text = pi * cdbl(val(text1(0).text)) ^ 2
end sub
private sub form_load()label1(0).caption = "半徑"
label1(1).caption = "周長"
label1(2).caption = "面積"
pi = 3.1415926
end sub
3樓：傷心h無淚
dim s as interer
dim x as interer
dim y as interer
s=半徑
x=2*s*3.14 周長
y=s^2*3.14 面積
vb輸入半徑，計算圓周長和圓面積。
4樓：匿名使用者
執行通過，希望對你有幫助。
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
5樓：戰瑋鄂浩歌
dim r as single
dim c as single
dim s as single
if isnumeric(text1.text) = true then
r = text1.text
c = formatnumber(2 * 3.14 * r, 2)s = formatnumber(3.14 * r ^ 2, 2)print "圓的周長、面積分別為：
", c, selse
msgbox "你輸入的數錯誤！"
text1.setfocus
text1.selstart = 0
text1.sellength = len(text1.text)end if
想象著寫的，這邊沒vb，自己除錯下吧。
vb作業 作業：輸入圓的半徑，計算圓面積和圓周長。計算結果資料型別為單精度型。
6樓：匿名使用者
①方法1：
private sub command1_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 command1_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
如何利用vb程式設計，輸入圓的半徑，計算並輸出圓的面積。
7樓：四舍**入
可以參考下面的**：
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
8樓：用著追她
1、開啟vb，選擇左邊工具欄的commandbutton。
2、在窗體上拖出一個按鈕，更改上面的文字為「單擊輸入半徑」。
3、雙擊按鈕，在彈出的code**視窗中，輸入如下**。
4、選擇工具欄中的啟動按鈕進行除錯。
5、單擊按鈕，會彈出一個對話方塊，在裡面輸入半徑3。
6、會在窗體上列印出計算出的面積的值。
9樓：花謝情尤在
^public sub command1_click( )dim r as integer
r=val(inputbox("請輸入半徑"))s=3.1415926*r^2
msgbox "圓的面積為:"&s
end sub
10樓：匿名使用者
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
vb：輸入半徑，計算圓周長和圓面積。執行介面如下
11樓：匿名使用者
private sub command1_click()if not isnumeric(text1) thenmsgbox "***"
text1.setfocus
exit sub
end if
dim r as single
r = val(text1.text)
text2.text = 3.14 * r * rend sub
private sub command2_click()if not isnumeric(text2) thenmsgbox "***"
text2.setfocus
exit sub
end if
dim r as single
r = val(text1.text)
text3.text = 2 * 3.14 * rend sub
12樓：
不瞭解isnumeric,寫了個函式
private sub command1_click()dim r as single
if isval(trim(text1.text)) thenr = val(text1.text)
text2.text = 3.14 * r * relse
msgbox "input error"
text1.setfocus
end if
end sub
private sub command2_click()dim r as single
if isval(trim(text1.text)) thenr = val(text1.text)
text3.text = 2 * 3.14 * relse
msgbox "input error"
text1.setfocus
end if
end sub
function isval(str as string) as boolean
dim strcmp
dim i as integer
dim strtemp as stringstrcmp = "0123456789."
isval = true
for i = 1 to len(str)strtemp = mid(str, i, 1)if mid(str, i, 1) = "." and mid(str, i + 1, 1) = "" then
isval = false
exit function
end if
if instr(strcmp, strtemp) = 0 thenisval = false
exit function
end if
next
dim str1() as string
str1 = split(str)
if ubound(str1) > 0 thenisval = false
exit function
end if
end function
圓的周長和麵積計算公式，圓的周長和麵積的公式是什麼
圓是周長和麵積公式 圓的周長 直徑x圓周率 3.14 周長 2 派r 面積 派rr 面積 派r的平方周長 圓周率乘以直徑 面積 圓周率乘以半徑的平方周長 派 圓直徑 派 2圓半徑 面積 派 圓半徑的平方周長 圓周率x直徑 或 圓周率x半徑x2 因為圓周率是個無限不迴圈小數 一般 人們把他看作3.14...
怎樣用VB計算圓的面積和周長，設計VB計算圓的面積與周長
就兩個公式嘛 圓的周長 2 半徑 圓周率 直徑 圓周率 即 圓的周長 2 r 或 d 面積 s r 或s d 2 程式，自己弄一個textbox 1用來輸入圓的半徑textbox2用來顯示計算結果周長 textbox3用來顯示計算結果面積 新增兩個button1命名為計算圓的周長和麵積。定義常量 定...
兩個圓的半徑比是2比3，求周長比和麵積比
設小圓的半徑為2r，則大圓的半徑為3r 1 小圓的周長 4 r，大圓的周長 2 3r 6 r，周長比 4 r 6 r 2 3。2 小圓的面積 2r 2，大圓的面積 3r 2 9 r2，面積比 4 r2 9 r2 4 9。所以周長比為2 3，面積比為4 9。圓的面積計算公式 或或 圓的周長 擴充套件資...