VB.Net Computation计算周长和面积的实例

代码如下：

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista

Public Class CompuAreaForm
    Dim a As Class1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = New Class1
        If TextBox1.Text.Equals("") And TextBox2.Text.Equals("") Then
        Else
            a.Computation(CSng(TextBox1.Text), CSng(TextBox2.Text))
            MessageBox.Show("乐博网提示：面积为" & a.areapro)
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        a = New Class1
        If TextBox1.Text.Equals("") And TextBox2.Text.Equals("") Then
        Else
            a.Computation(CSng(TextBox1.Text), CSng(TextBox2.Text))
            MessageBox.Show("乐博网提示：周长为" & a.zhoupro)
        End If
    End Sub
End Class