怎样用VB计算圆的面积和周长

就两个公式嘛

圆的周长＝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

如果没有输入半径,提示输入半径