module1.vb

来自「编程之道VB.NETt程序设计入门-589M.zip」· VB 代码 · 共 31 行

Public Class Pet
    Private mstrName As String

    Public Property Name() As String
        Get
            Return mstrName
        End Get
        Set(ByVal Value As String)
            mstrName = Value
        End Set
    End Property

    Public Sub Move()
        Console.WriteLine("Pet " & mstrName & " is moving!")
    End Sub
End Class

Module Module1

    Sub Main()
        Dim p As New Pet()

        p.Name = "Benben"
        Console.WriteLine(p.Name)
        p.Move()

        Console.ReadLine()
    End Sub

End Module