|
√ Google adsense申请技巧 √ 本站核心代理域名注册主机业务
√ 快速发布你的买卖域名买卖网站信息
√ 1元注册 cn域名
√ 站长每日新闻导读 √ ·推荐万网空间¥120元 150m √ 站长网:站长必上的网站 √ 网站联盟大全 √ 本站代理万网域名55空间120元 |
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. Return mstrLastName
31. End Get
32. Set
33. mstrLastName = Value
34. End Set
35. End Property
36.
37. Sub Print() Implements Person.Print
38. ' 在此处添加一些代码
39. End Sub
40.
41. Sub Talk() Implements Person.Talk
42. ' 在此处添加一些代码
43. End Sub
End Class
Public MustOverride Sub Init()
Public Overrides Sub Init()
mstrDelim = " "
mstrLine = "测试行"
End Sub
Public Class NotInheritable Employee
' 类定义
End Class