水果整理篇--苹果橘子

面向对象：把数据及对数据的操作方法放在一起，作为一个相互依存的整体——对象。对同类对象抽象出其 共性（属性） ，形成类。类中的大多数数据，只能用本类的 方法 进行处理。类通过一个简单的外部接口与外界发生关系，对象与对象之间通过 消息（事件） 进行通信。程序流程由用户在使用中决定。

本例子中我理解的特征就是水果的重量，方法就是经过一天，事件（消息）就是方法用过后的结果

Fruit接口，提供减少重量和计算当前重量的功能。

1. Option Explicit
2. *******************************************
3. Public Property Get CurWeight() As Double '计算当前的重量
5. End Property
6. *******************************************
7. Public Function ReduceWeight() As Double '计算减少的重量
9. End Function

Apple类实现Fruit接口

1. Option Explicit
3. Implements Fruit
4. ***********************************************************
5. Private mvarCurWeight As Double '定义当前重量的变量
6. Private mvarTotalWeight As Double '定义总重量的变量
7. ***********************************************************
8. Private Sub Class_Initialize() '类的初始化
10. mvarTotalWeight = 50 '起初总重量为50
11. mvarCurWeight = mvarTotalWeight '当前的重量为50，
12. '起初的重量也为50
13. End Sub
14. ********************************************************************
15. Private Property Get Fruit_CurWeight() As Double '写入苹果当前重量
16. Fruit_CurWeight = mvarCurWeight
17. End Property
18. **********************************************************************
19. Private Function Fruit_ReduceWeight() As Double '苹果减少重量
20. Dim oldWeight As Double '定义从前重量
21. oldWeight = mvarCurWeight '从前重量等于当前重量
23. mvarCurWeight = mvarCurWeight - 4 '苹果每天重量减少4
24. '直到减少到苹果重量的3/5不再减少
25. If (mvarCurWeight < mvarTotalWeight * 3 / 5#) Then
26. mvarCurWeight = mvarTotalWeight * 3 / 5
27. End If
29. Fruit_ReduceWeight = oldWeight - mvarCurWeight '苹果减少重量为从前重量和当前重量之差
30. End Function

Orange类实现Fruit接口

1. Option Explicit
3. Implements Fruit '连接Fruit接口
4. *********************************************************
5. Private mvarCurWeight As Double '定义当前重量变量
6. Private mvarTotalWeight As Double
7. *********************************************************
9. Private Sub Class_Initialize() '类的初始化
10. mvarTotalWeight = 30 '橘子的总重量为30
11. mvarCurWeight = mvarTotalWeight '橘子的当前重量也为30
12. End Sub
13. *****************************************************************
14. Private Property Get Fruit_CurWeight() As Double '写入橘子当前重量
15. Fruit_CurWeight = mvarCurWeight
16. End Property
17. *****************************************************************
18. Private Function Fruit_ReduceWeight() As Double '橘子减少的重量
19. Dim oldWeight As Double '定义橘子从前的重量
20. oldWeight = mvarCurWeight '橘子从前重量和当前重量相等
22. mvarCurWeight = mvarCurWeight - 3 '橘子每天重量减少3
23. '直到减少到橘子的3/5不再减少
24. If (mvarCurWeight < mvarTotalWeight * 3 / 5#) Then
25. mvarCurWeight = mvarTotalWeight * 3 / 5
26. End If
28. Fruit_ReduceWeight = oldWeight - mvarCurWeight '橘子减少的重量为从前重量和当前重量之差
30. End Function

FruitBox类实现计算功能。

1. Option Explicit
3. Private mcol As Collection '定义一个集合，mcol是一个盒子
4. **********************************************************
5. Private Sub ReleaseFruits() '释放对象
6. Dim aFruit As Fruit
7. For Each aFruit In mcol
8. Set aFruit=Nothing '对于每一个在盒子里的水果最后让其为0
9. Next
10. End Sub
12. *****************************************************************
13. Public Sub AddFruit(aFruit As Fruit)
14. mcol.Add aFruit '向盒子里放入水果
15. End Sub
16. *****************************************************************
17. Public Function TotalFruitWeight() As Double '实现计算水果总重量的功能
18. Dim aFruit As Fruit
19. Dim total As Double
21. total=0 '起初总重量为0
24. For Each aFruit In mcol
25. total=total+aFruit.CurWeight '橘子和苹果的重量为总重量
26. Next
27. TotalFruitWeight=total
28. End Function
29. *******************************************************************
30. Public Function PassOneDay() As Double
31. Dim aFruit As Fruit
32. Dim total As Double
34. total=0
37. For Each aFruit In mcol
38. total=total+aFruit.ReduceWeight() '橘子和苹果的重量为总重量
39. Next
40. PassOneDay=total
41. End Function
42. *************************************************************************
43. Public Function NumOfApples() As Long
44. Dim aFruit As Fruit
45. Dim count As Long
47. count = 0
48. For Each aFruit In mcol
49. If (TypeName(aFruit) = "Apple") Then '加入的是苹果
50. count = count + 1 '苹果数量+1
51. End If
52. Next
53. NumOfApples = count '苹果的数量
54. End Function
55. *****************************************************************
56. Public Function NumOfOranges() As Long
57. Dim aFruit As Fruit
58. Dim count As Long
60. count = 0
61. For Each aFruit In mcol
62. If (TypeName(aFruit) = "Orange") Then '加入的水果为橘子
63. count = count + 1 '橘子个数加1
64. End If
65. Next
66. NumOfOranges = count '橘子的数量
67. End Function
68. ***************************************************************
69. Private Sub Class_Initialize()
70. Set mcol = New Collection '盒子为一个新的连接
71. End Sub
72. ***************************************************************
73. Private Sub Class_Terminate()
74. ReleaseFruits '释放对象
75. Set mcol = Nothing '让盒子为0
76. End Sub

类的实例化，From1代码编写。

1. Option Explicit
2. Dim box As FruitBox '定义一个盒子
3. *******************************************************************
5. Private Sub Command1_Click()
6. box.AddFruit New Apple '盒子里加一个苹果
7. End Sub
8. ********************************************************************
9. Private Sub Command2_Click()
10. box.AddFruit New Orange '盒子里加一个橘子
11. End Sub
12. ********************************************************************
13. Private Sub Command3_Click()
14. Dim str As String
15. Dim old As Double, reduce As Double, now As Double
16. '定义从前的，减少的和现在的
18. old = box.TotalFruitWeight() '调用FruitBox类的TotalFruitWeight方法
19. str = "一天前总重量有：" & old '从前的重量
20. List1.AddItem str
21. str = "其中苹果有：" & box.NumOfApples() '调用FruitBox类的NumOfApples方法
22. List1.AddItem str
23. str = "其中橘子有：" & box.NumOfOranges() '调用FruitBox类的NumOfOranges方法
24. List1.AddItem str
26. reduce = box.PassOneDay() '调用FruitBox类的PassOneDay方法
27. str = "一天损失重量：" & reduce
28. List1.AddItem str
30. now = box.TotalFruitWeight() '调用FruitBox类的TotalFruitWeight方法
31. str = "当前重量：" & now
32. List1.AddItem str
33. List1.AddItem ""
34. End Sub
35. ********************************************************************
36. Private Sub Form_Load() '创建盒子对象
37. Set box = New FruitBox
38. End Sub
40. Private Sub Form_Unload(Cancel As Integer) '释放盒子对象
41. Set box = Nothing
42. End Sub

来自为知笔记(Wiz)