module1.vb

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

Module Module1

    Sub Main()
        Dim p1, p2, p3, p4 As Pet.Pet
        Dim d As Pet.Dog
        Dim c As Pet.Cat
        Dim pc As Pet.PersianCat

        p1 = New Pet.Pet("1999-9-9")
        p1.Name = "APet"

        p2 = New Pet.Dog("1998-9-9")
        p2.Name = "ADog"
        d = New Pet.Dog("1998-9-9")
        d.Name = "Doggy"

        p3 = New Pet.Cat("1997-9-9")
        p3.Name = "ACat"
        c = New Pet.Cat("1997-9-9")
        c.Name = "Kitty"

        p4 = New Pet.PersianCat("1996-9-9")
        p4.Name = "APersianCat"
        pc = New Pet.PersianCat("1996-9-9")
        pc.Name = "PersianKitty"

        p1.Move()
        p2.Move()
        p3.Move()
        p4.Move()
        d.Move()
        d.FetchSaucer()
        c.Move()
        c.CatchMouse()
        pc.Move()
        pc.CatchMouse()

        Console.ReadLine()
    End Sub

End Module