日期:2009-07-03 浏览次数:20526 次
4. Interface Person
5. Property FirstName() As String
6. Property LastName() As String
7.
8. Sub Print()
9. Sub Talk()
End Interface
11. Public Class Employee
12. Implements Person
13.
14. Private mstrFirstName As String
15. Private mstrLastName As String
16.
17. Property FirstName() As String _
18. Implements Person.FirstName
19. Get
20. Return mstrFirstName
21. End Get
22. Set
23. mstrFirstName = Value
24. End Set
25. End Property
26.
27. Property LastName() As String _
28. Implements Person.LastName
29. Get
30.