vb編程圓的面積

『壹』 怎樣用VB計算圓的面積和周長

就兩個公式嘛

圓的周長＝2×半徑×圓周率＝直徑×圓周率

即：圓的周長＝2πr 或πD

面積：s=πr² 或s=π(d/2)²

程序，自己弄一個textbox 1用來輸入圓的半徑

textbox2用來顯示計算結果周長

textbox3用來顯示計算結果面積

添加兩個button1命名為計算圓的周長和面積。

定義常量π，定義半徑r

然後在button1 事件中添加計算和顯示結果代碼即可。

PublicClassForm1
ConstP=3.14
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox2.Clear()'清空以前計算結果
TextBox3.Clear()'清空以前計算結果
IfTextBox1.Text<>String.EmptyThen'判斷是否輸入半徑
DimrAsDouble=TextBox1.Text
'上面是這兩部的合並DimrAsDouble
'r=TextBox1.Text
TextBox2.Text=2*P*r
TextBox3.Text=P*r*r
Else
MsgBox("請輸入圓的半徑")
EndIf

EndSub
EndClass

『貳』 關於VB編程的計算圓的面積和周長

Private Sub Form_Load() ……End Sub之間的Print 語句，是無法顯示在窗體上的，建議寫在窗體的單擊事件里。如下：Private Sub Form_Click()……End Sub

『叄』 用VB6.0計算圓的面積

floatarea(floatr){
return3.14*r*r;
}

『肆』 怎麼用VB程序求圓的面積

'直接復制此代碼到代碼區 然後點一下窗體輸入任意一個數值即得出圓的面積
Private Sub Form_Click()
Dim x As Integer, PI As Single
PI = 3.1415926
x = InputBox("輸入一個圓的半徑")
y = 3.14 * x * x
MsgBox "圓的面積為：" & y
End Sub

『伍』 VB題目是計算圓的面積，編程該怎麼寫

你使用好像是VB.net，這個版本已經沒有這個print窗體列印函數了。

『陸』 如何利用VB編程，輸入圓的半徑，計算並輸出圓的面積。

可以參考下面的代碼：

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

(6)vb編程圓的面積擴展閱讀：

相關參考函數

InputBox 函數： 在對話框中顯示提示信息，等待用戶輸入文本或者單擊按鈕，並返迴文本框的內容。

InStr 函數： 返回一個字元串在另一個字元串中第一次出現的位置。

InStrRev 函數： 返回一個字元串在另一個字元串中出現的位置，是從字元串的末尾算起。

Int 函數 ：返回數的整數部分。

整數除法運算符()： 兩數相除，返回的商取其整數部分。

Join 函數： 返回連接許多包含在一個數組中的子串而創建的字元串。

『柒』 vb怎麼計算圓形面積

Private Sub Form_click()
Dim r As Single '定義半徑r為單精度(變數)
Const PI As Single = 3.1415926 '定義PI為單精度(常量)
Dim s As Single '定義面積S為單精度（變數）
r = InputBox("輸入r") '半徑r通過inputbox函數輸入值
s = PI * r ^ 2 '用求圓面積公式，並把值賦給S
Print s '在窗體上列印出S的值
End Sub

『捌』 用VB程序求圓的面積

"兩個commandbutton兩個lable兩個text"
PrivateSubCommand1_Click()
r=Text1.Text
p=3.14
s=p*r*r
Text2.Text=s


PrivateSubCommand2_Click()
End


PrivateSubText1_LostFocus()
Cls
r=Text1.Text
Circle(10000,3000),r,vbBlack
Ifr>3000Then
MsgBox"溢出！"
Else
Ifr<=0Then
MsgBox"半徑不能為0！"
EndIf
EndIf
EndSub

『玖』 用VB編寫求圓的面積

Option Explicit
Const PI = 3.1415926
Private Sub Form_Click()
Dim r
r = InputBox("輸入圓的半徑：r", , 10)
Print "圓的面積："; PI * r ^ 2
End Sub

『拾』 vb編程圓的面積 錯在哪裡

請問一下這裡面的a,b是用來干嗎用的。沒體現出來啊。另外面積公式是
圓周率×半徑×半徑=圓的面積
樓主多了一個1/2