类与对象的学习

Public Class BaseballTeam

    Private Name As String
    Private Stadium As String

    Private Wins As Integer = 0
    Private Defeats As Integer = 0
    '**************
    Public Sub New(ByVal Nm As String, ByVal St As String)
        Name = Nm
        Stadium = St
    End Sub
    '**************
    Public Sub PlayGame(ByVal RunsFor As Integer, _
                    ByVal RunsAgainst As Integer)
        If RunsFor > RunsAgainst Then
            Wins = Wins + 1
        Else
            Defeats = Defeats + 1
        End If
    End Sub
    '**************
    Public Overrides Function ToString() As String
        Return Name & ",where" & Stadium & " :" & Wins & "---" & Defeats
    End Function
    '**************
    Public Enum Result
        Win
        Lose
    End Enum
    '**************
    Public Sub PlayGame(ByVal Res As Result)
        If Res = Result.Win Then
            Wins = Wins + 1
        Else
            Defeats = Defeats + 1
        End If
    End Sub
    '**************
    Public ReadOnly Property Record() As Double
        Get
            Dim played As Integer = Wins + Defeats
            Return CType(Wins / played, Double)
        End Get
    End Property
    '**************
    Public Property BallPark() As String
        Get
            Return Stadium
        End Get
        Set(ByVal Value As String)
            Stadium = Value
        End Set
    End Property

End Class
------------------------------------------------------------------------------------------------

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sf As New BaseballTeam("me", "dalian")
        sf.PlayGame(7, 2)
        sf.PlayGame(BaseballTeam.Result.Lose)
        Label1.Text = "record:" & sf.Record & vbCrLf
        sf.BallPark = "bei jing park"
        Label1.Text &= sf.ToString
        sf = Nothing

    End Sub