1樓：匿名使用者
執行通過，希望對你有幫助。
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輸入半徑，計算圓周長和圓面積。
2樓：匿名使用者
執行通過，希望對你有幫助。
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
3樓：戰瑋鄂浩歌
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程式設計 輸入圓半徑，計算圓周長和圓面積
4樓：匿名使用者
private sub command1_click()dim pi as single
dim r as single
dim l as single
dim a as single
pi = 3.141592654
r = inputbox("輸入半徑r=")l = pi * r
a = r ^ 2 * pi / 4
print "周長=", l
print "面積=", a
end sub
5樓：匿名使用者
private sub cmdok_click()dim pi as double
pi = 3.14
if isnumeric(trim(txtr.text)) = false then
msgbox "請輸入一個合法的數"
txtr.text = ""
txtr.setfocus
exit sub
end if
txtg.text = formatnumber((2 * pi * val(txtr.text)), 2)
txta.text = formatnumber(pi * val(txtr.text) * val(txtr.text), 2)
end sub
private sub form_load()txtr.text = ""
txtg.text = ""
txta.text = ""
me.show
txtr.setfocus
end sub
-----------------
txtr:半徑 txtg:周長 txta: 面積
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 label2_click()const pi = 3.14159
dim r as single, i as single, s as single
r = inputbox("請輸入半徑:", "輸入半徑")i = 2 * pi * r
s = pi * r ^ 2
label2 = label2 & r
label3 = label3 + str(i)label4 = label4 + str(s)end sub
當然你要有四個label控制元件，第一個可以隨便設定，例如寫成「計算圓的周長與面積」
8樓：匿名使用者
private sub command1_click()dim bj as single
dim zz as single
dim mj as single
bj = csng(text1.text)if bj <= 0 then
msgbox "你的輸入有誤"
exit sub
end if
mj = 3.1415 * bj * bjmsgbox "面積是" & format(mj, "0.00")end sub
private sub command2_click()dim bj as single
dim zz as single
dim mj as single
bj = csng(text1.text)if bj <= 0 then
msgbox "你的輸入有誤"
exit sub
end if
zz = 2 * bj * 3.1415
msgbox "周長是" & format(zz, "0.00")end sub
用vb編寫程式，輸入半徑，計算圓周長和圓面積
9樓：匿名使用者
const pi = 3.14159
dim r as double
dim c as double
dim s as double
if isnumeric(text1.text) thenr = val(text1.text)
c = 2 * pi * r
s = pi * r ^ 2
text2.text = format(c, "0.00")text3.text = format(s, "0.00")else
msgbox "輸入不是一個有效的數值。", vbcriticaltext1.setfocus
end if
vb 輸入 半徑 計算圓的周長和麵積公式
10樓：匿名使用者
他們的答案好像都沒有輸出結果。
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
11樓：匿名使用者
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
12樓：傷心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：輸入半徑，計算圓周長和圓面積。執行介面如下
13樓：楊少
顯示介面如下： ***************************** 1------計算圓的面積 2------計算圓的周長 3------計算圓的周長和麵積 ****************************** 請選擇（1--3）： 請輸入圓的半徑：
vb實驗： 輸入半徑，計算圓周長和圓面積得輸出 15
14樓：
錯了一堆
private sub command1_click()dim a! （定義語句不能在中間，除非是redim）dim b!
dim c!
a = 3.14
b=text1.text
c = 2 * a * b
text2.text= c (也可以是 val （c )） text沒有print
end sub 事件
private sub form_load()text2.text = ""
text1 = ""
text3.text = "" text3幹嗎用的，程式中沒有end sub
private sub text1_lostfocus()if not isnumeric(text1) then'（你的isnumeric函式的語句在**？如果另外有的話那這段程式沒有問題）
msgbox "有非數字字元錯誤"
text1.text = ""
text1.setfocus
end if
end sub
大圓半徑是3釐米小圓半徑是2釐米。小圓周長是大圓周長的，幾份之幾，小圓面積是大圓面積的幾分之幾
1全部您好 小圓周長是大圓周長的3份之2，小圓面積是大圓面積的9分之4。如果你認可我的回答，請及時點選 採納為滿意回答 按鈕 手機提問者在客戶端右上角評價點 滿意 即可。你的採納是我前進的動力 如還有新的問題，請另外向我求助，答題不易，敬請諒解 o o，記得好評和採納，互相幫助 祝學習進步！周長 2...
編寫C語言程式，輸入圓的半徑，求出圓的周長和麵積並輸出
include define pi 3.14 void main include void main include void main include define pi 3.1415 define p printf define s scanfvoid main define pi3.1416 ...
半圓周長是10 28求半圓半徑，可不可以直接
也可以的。只是，做解答題時，還是設半徑為r，3.14r 2r 半圓周長 這樣步驟詳細一點。不可以因為半圓的周長，還有一條直徑的長度 但是一個整圓的周長並沒有哦計算直徑在內 所以是不可以的 數學老師 可以。但是題目中沒有5.14.應該設半徑為r，3.14r 2r 10.28。r 2 半圓周長，應該是一...