怎样用vb求圆的周长和面积

Question

会考考VB使用，怎么做

Answer 1

圆的周长＝2×半径×圆周率＝直径×圆周率
即：圆的周长＝2πr 或πD
面积：s=πr² 或s=π(d/2)²
程序，自己弄一个textbox 1用来输入圆的半径
textbox2用来显示计算结果周长
textbox3用来显示计算结果面积
添加两个button1命名为计算圆的周长和面积。
定义常量π，定义半径r
然后在button1 事件中添加计算和显示结果代码即可。
算法：Public Class Form1
Const P = 3.14
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear() '清空以前计算结果
TextBox3.Clear() '清空以前计算结果
If TextBox1.Text <> String.Empty Then '判断是否输入半径
Dim r As Double = TextBox1.Text
'上面是这两部的合并 Dim r As Double
' r=TextBox1.Text
TextBox2.Text = 2 * P * r
TextBox3.Text = P * r * r
Else
MsgBox("请输入圆的半径")
End If

End Sub
End Class

Answer 2

Const pi As Double = 3.141592
Private Sub Form_Resize()
Dim rad As Integer
Dim area As Double
Dim pre As Double
rad = 10
area = pi * rad * rad
pre = 2 * pi * rad
Print "半径="; rad
Print "圆面积="; area
Print "圆周长="; pre
End Sub

Answer 3

画一个text1控件和一个command控件
在command1的click事件中输入一下代码
dim s,l,r
r=value(text1.text)
s=3.14159*r*r
l=3.14159*2*r
print s
print l

Answer 4

圆的周长公式Ｃ＝２π r
圆的面积公式Ｓ＝π r�0�5

Answer 5

前一个朋友回答是正确的