计算圆面积的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