計算圓面積的vb代碼

A. VB關於圓的周長和面積的代碼。。。。

Dim r, s, l As Single:

Private Sub mianji_Click() '面積
r = Val(Text1.Text)
s = 3.1415926 ^ 2 * r
Text3.Text = s
End Sub

Private Sub zhouchang_Click() '周長
r = Val(Text1.Text)
l = 2 * 3.1425926 * r
Text2.Text = l
End Sub

B. vb怎麼計算圓形面積

先建一個窗體Form1,兩個標簽.其Caption分別為"輸入圓的半徑:" "圓的面積:" 兩個Text,Text屬性分別為回 , .意思是初始化為空答格.一個命令按鈕CmdSqr,添加其代碼
Private Sub CmdSqr_Click()
Text2.Text = 3.1415926 * Val(Text1.Text) ^ 2
End Sub 至於布局相信你會做的很好

C. 如何在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

(3)計算圓面積的vb代碼擴展閱讀：

相關參考函數

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

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

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

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

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

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

D. 求幫忙編寫VB程序 輸入半徑後計算圓周長、圓面積、圓球表面積和圓球體積，並將pi定義為符號常量

添加一個Text1, 一個Command1元件，計算結果保留小數點後3位，直接在窗體列印。代碼如下：
Const Pi = 3.1415926
Private Sub Command1_Click()
r = Text1.Text
C = 2 * Pi * r
s = Pi * r * r
SSA = 4 * Pi * r * r
V = 4 / 3 * Pi * r * r * r
Form1.Cls
Print "圓周長為：" & Format(C, "#0.000")
Print "圓面積為：" & Format(s, "#0.000")
Print "球表面積為：" & Format(SSA, "#0.000")
Print "球體積為：" & Format(V, "#0.000")
End Sub

E. vb編程:輸入半徑,求圓形面積

Private Sub Command1_Click()
Dim r As Double
r = InputBox("請輸入半徑抄:", "輸入半徑")
Print "圓的面積是: (r ^ 2 * 3.14159)"
End Sub
在窗體上建立一個按扭然後雙擊進去,輸入上面的代碼就可以了!

F. 用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