水果整理篇--苹果橘子

最新推荐文章于 2024-06-11 13:51:44 发布

王雪娜-Alisa

最新推荐文章于 2024-06-11 13:51:44 发布

阅读量1k

点赞数

分类专栏：【vb基础学习】

本文链接：https://blog.csdn.net/Alisawxn/article/details/50401346

版权

本文介绍了如何正确整理和保存苹果与橘子等常见水果。内容包括水果的分类方法，如按品种、颜色和成熟度区分；保鲜技巧，如适宜的储存温度、湿度以及避免挤压；此外，还提到了挑选新鲜水果的要点，确保家庭水果篮始终保持最佳状态。

摘要由CSDN通过智能技术生成

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

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

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

    
    
    
     Option Explicit
     *******************************************
     Public Property Get CurWeight() As Double      '计算当前的重量
     
     End Property
     *******************************************
     Public Function ReduceWeight() As Double       '计算减少的重量
     
     End Function

Apple类实现Fruit接口

     
     
     
      Option Explicit
      
      Implements Fruit
      ***********************************************************
      Private mvarCurWeight As Double      '定义当前重量的变量
      Private mvarTotalWeight As Double    '定义总重量的变量
      ***********************************************************
      Private Sub Class_Initialize()       '类的初始化
          
          mvarTotalWeight = 50             '起初总重量为50
          mvarCurWeight = mvarTotalWeight  '当前的重量为50，
                                           '起初的重量也为50
      End Sub
      ********************************************************************
      Private Property Get Fruit_CurWeight() As Double  '写入苹果当前重量
          Fruit_CurWeight = mvarCurWeight               
      End Property
      **********************************************************************
      Private Function Fruit_ReduceWeight() As Double   '苹果减少重量
          Dim oldWeight As Double                       '定义从前重量
          oldWeight = mvarCurWeight                     '从前重量等于当前重量
          
          mvarCurWeight = mvarCurWeight - 4             '苹果每天重量减少4
                                                        '直到减少到苹果重量的3/5不再减少