VB.Net用Public Enum声明变量的实例

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

Public Class YAreaForm
    Public Enum math1
        p = 3.14
        r = 30
    End Enum
    Private Sub YAreaForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a = New class1
        a.method()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("圆面积为" & math1.p * CInt(TextBox1.Text) ^ 2)
    End Sub
End Class   '更多.net源码和实例，来自乐博网 www.lob.cn
Class class1
    Sub method()
        MessageBox.Show("30半径圆面积为" & YAreaForm.math1.p * YAreaForm.math1.r ^ 2)
    End Sub
End Class