vb编程:输入半径,求圆形面积

Answer 1

Private Sub Command1_Click()
Dim r As Double
r = InputBox("请输入半径:", "输入半径")
Print "圆的面积是: (r ^ 2 * 3.14159)"
End Sub
在窗体上建立一个按扭然后双击进去,输入上面的代码就可以了!

Answer 2

新建一个工程,在窗体上拖动生成一个按钮,
然后双击那个按钮,
在弹出的代码编辑窗口把所有代码都删除掉,
然后把下面这一段代码复制进去运行就可以了．

Private Sub Command1_Click()
Dim r As Double
r = InputBox("请输入半径:", "输入半径", Default)
Print "圆的面积是:" & (r ^ 2 * 3.14159)
End Sub

Answer 3

建一个窗体
一个TEXT1
一个LABEL1
一个COMMAND1
Private Sub Command1_Click()
Dim r As Double
r=val(text1.text)
dim s as double
s=r^2*3.14
label1.label=s
end sub

Answer 4

写成一个函数，参数Radius为半径
Function Cale(Radius As Single) As Single
Cale=Radius^2 * 3.14
End Function
返回值为面积

Answer 5

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