module1.vb

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

Module Module1

    Sub Main()
        Dim pet1, pet2 As Pet.Pet

        pet1 = New Pet.Pet("2000-1-1")
        pet2 = New Pet.Pet("1990-12-31")

        pet1.Name = "Kitty"
        pet2.Name = "Doggy"

        Console.WriteLine("pet1 name: " & pet1.Name & ", age: " & pet1.Age)
        pet1.Move()
        Console.WriteLine("pet2 name: " & pet2.Name & ", age: " & pet2.Age)
        pet2.Move()

        Console.ReadLine()
    End Sub

End Module