第九章 面向对象程序设计

第二节 属性与方法

概述

在面向对象程序设计中，属性与方法是构成类的两个核心要素。属性代表对象的状态信息，而方法则体现对象的行为和功能。掌握Visual Basic中属性和方法的定义、使用及其相互关系，是实现面向对象思想、编写高效程序的基础。本节将系统讲解Visual Basic中属性与方法的概念、定义方式、使用规范，配合典型实例帮助考生深入理解，并指出常见误区，拓展相关应用场景，助力考生全面掌握内容，顺利通过全国计算机等级考试二级Visual Basic语言程序设计科目。

核心概念

1. 属性（Property）

   • 属性是类中用于描述对象特征的数据成员，通常对应对象的状态或特征值。
   • 在Visual Basic中，属性通常通过变量声明实现，也可以通过Property语句定义属性过程（Property Let、Property Get和Property Set）。

2. 方法（Method）

   • 方法是类中封装的功能模块，表现对象的行为和操作。
   • 方法通过Sub过程或Function过程定义，实现具体操作逻辑。

3. Property Let

   • 用于设置属性的过程，接收外部传入的值，赋值给私有变量。

4. Property Get

   • 用于读取属性的过程，返回属性的当前值。

5. Property Set

   • 专门用于对象类型属性的赋值过程，处理对象引用赋值。

原理分析

在Visual Basic的面向对象设计中，类通过封装数据和功能来模拟现实世界的对象。属性作为数据的封装，隐藏内部实现细节，保护数据安全；方法则通过暴露操作接口，实现对象的功能。

通过Property过程，可以实现对属性的控制访问，支持数据验证、计算、限制赋值范围等功能，避免直接访问变量带来的风险。方法通过Sub或Function过程定义，可以操作类的内部状态，完成复杂逻辑。

属性和方法的合理设计，有利于实现数据的封装性、继承性和多态性，是面向对象编程的核心机制之一。

详细内容

1. 属性的定义与使用

在Visual Basic中，属性通常有两种定义方式：

• 直接定义为Public变量
  这是最简单的方式，直接将变量声明为Public，外部可以直接访问。但是这种方式不利于数据保护和后期维护。

• 通过Property语句定义属性过程
  这是推荐的方式，利用Property Let、Property Get（对于对象类型还包括Property Set）过程封装属性访问，实现对属性的读写控制。

示例代码：

Private mName As String '私有变量

Public Property Get Name() As String
    Name = mName
End Property

Public Property Let Name(ByVal Value As String)
    If Len(Value) > 0 Then
        mName = Value
    Else
        MsgBox "名称不能为空"
    End If
End Property

这种方式可以在赋值时进行有效性检查，保证数据合理。

2. 方法的定义与调用

方法是类的行为表现，定义时使用Sub或Function过程。

• Sub过程不返回值，执行特定操作。
• Function过程返回值，可用于计算和查询。

示例：

Public Sub ShowInfo()
    MsgBox "姓名: " & mName
End Sub

Public Function GetNameLength() As Integer
    GetNameLength = Len(mName)
End Function

调用时通过对象调用即可：

obj.ShowInfo
len = obj.GetNameLength()

3. 属性过程详解

• Property Get：读取属性时触发，必须返回一个值。
• Property Let：给非对象类型属性赋值。
• Property Set：给对象类型属性赋值，处理对象引用。

示例：

Private mAddress As Address

Public Property Get Address() As Address
    Set Address = mAddress
End Property

Public Property Set Address(ByVal Value As Address)
    Set mAddress = Value
End Property

4. 属性与方法的关系

属性和方法相辅相成，属性提供数据接口，方法实现行为。通常属性用于获取或设置数据，方法用于实现功能逻辑。合理划分属性和方法，能提高代码的可读性和维护性。

5. 访问权限与封装性

• Private关键字用于隐藏类的内部数据和方法，防止外部直接访问。
• 通过属性过程对数据访问进行控制，实现封装。

6. 参数传递与返回值

• 属性过程的参数通常只有一个，用于赋值。
• 方法可以有多个参数，支持复杂操作。

实例分析

实例1：学生类的属性与方法设计

背景：设计一个Student类，包含姓名、年龄属性，和显示信息的方法。

Class Student
    Private mName As String
    Private mAge As Integer

    Public Property Get Name() As String
        Name = mName
    End Property

    Public Property Let Name(ByVal Value As String)
        If Len(Value) > 0 Then
            mName = Value
        Else
            MsgBox "姓名不能为空"
        End If
    End Property

    Public Property Get Age() As Integer
        Age = mAge
    End Property

    Public Property Let Age(ByVal Value As Integer)
        If Value >= 0 And Value <= 120 Then
            mAge = Value
        Else
            MsgBox "年龄输入不合法"
        End If
    End Property

    Public Sub ShowInfo()
        MsgBox "姓名: " & mName & ", 年龄: " & mAge
    End Sub
End Class

分析：

• 使用私有变量存储数据，防止外部直接修改。
• 通过Property Let和Get实现数据访问和有效性检查。
• ShowInfo方法用于展示信息。

结论：通过属性与方法封装，保证了数据安全和程序的结构清晰。

实例2：银行账户类的余额操作

背景：设计BankAccount类，实现余额属性和存款、取款方法。

Class BankAccount
    Private mBalance As Double

    Public Property Get Balance() As Double
        Balance = mBalance
    End Property

    Public Property Let Balance(ByVal Value As Double)
        If Value >= 0 Then
            mBalance = Value
        Else
            MsgBox "余额不能为负数"
        End If
    End Property

    Public Sub Deposit(ByVal Amount As Double)
        If Amount > 0 Then
            mBalance = mBalance + Amount
        Else
            MsgBox "存款金额必须大于0"
        End If
    End Sub

    Public Sub Withdraw(ByVal Amount As Double)
        If Amount > 0 And Amount <= mBalance Then
            mBalance = mBalance - Amount
        Else
            MsgBox "余额不足或金额非法"
        End If
    End Sub
End Class

分析：

• Balance属性只允许非负数。
• Deposit和Withdraw方法实现账户业务逻辑。

结论：方法和属性互补，实现业务规则的合理封装。

实例3：图形类的面积计算

背景：设计Rectangle类，包含宽度、高度属性和计算面积的方法。

Class Rectangle
    Private mWidth As Double
    Private mHeight As Double

    Public Property Get Width() As Double
        Width = mWidth
    End Property

    Public Property Let Width(ByVal Value As Double)
        If Value > 0 Then
            mWidth = Value
        Else
            MsgBox "宽度必须大于零"
        End If
    End Property

    Public Property Get Height() As Double
        Height = mHeight
    End Property

    Public Property Let Height(ByVal Value As Double)
        If Value > 0 Then
            mHeight = Value
        Else
            MsgBox "高度必须大于零"
        End If
    End Property

    Public Function Area() As Double
        Area = mWidth * mHeight
    End Function
End Class

分析：

• 属性控制尺寸合法性。
• Area方法计算面积，体现对象行为。

结论：属性与方法配合，实现数据保护和功能实现。

常见误区

1. 直接将属性定义为Public变量

   • 错误：直接公开变量，缺乏数据保护。
   • 正确：应使用Property过程封装属性访问。

2. 忽视属性赋值时的有效性验证

   • 错误：赋值时不做检查，导致数据不合理。
   • 正确：在Property Let中添加验证逻辑。

3. 误用Property Set赋值非对象类型

   • 错误：Property Set只能用于对象类型属性。
   • 正确：非对象类型属性使用Property Let。

4. 方法与属性混淆

   • 错误：将所有功能都设计为属性，导致接口混乱。
   • 正确：属性用于数据，方法用于行为操作。

5. 未合理设置访问权限

   • 错误：全部使用Public，缺乏封装。
   • 正确：私有变量用Private，访问通过属性过程完成。

应用场景

1. 窗体控件属性封装

   • 通过属性管理控件的尺寸、颜色、文本等，方便统一管理。

2. 数据库实体类设计

   • 实体类通过属性封装字段，通过方法实现业务逻辑。

3. 游戏角色属性与行为

   • 角色的各种属性（生命值、攻击力）通过属性管理，动作通过方法实现。

4. 财务管理系统账户操作

   • 账户余额属性和存取款方法实现资金管理。

5. 图形绘制程序中的图形对象

   • 图形尺寸属性和绘制、计算方法结合，实现形状管理。

知识拓展

• 属性的默认值与初始化

  • 在类的初始化过程中设置属性的默认值，保证对象状态一致。

• 只读属性与只写属性

  • 只读属性只定义Property Get，没有Property Let；只写属性则反之。

• 属性过程的错误处理

  • 利用错误处理机制提升属性过程的健壮性。

• 自定义属性的高级用法

  • 利用计算属性，根据其他成员动态计算属性值。

• 接口中的属性与方法

  • 了解接口对属性和方法的规范，支持多态设计。

总结回顾

本节重点围绕Visual Basic面向对象编程中的属性与方法展开，详细介绍了属性的定义方式及其封装机制，方法的设计与调用，以及两者的关系和作用。通过Property Get、Let、Set过程，实现对属性的安全访问和数据有效性控制。方法则通过Sub和Function实现对象行为。典型实例涵盖学生信息管理、银行账户操作及图形面积计算，帮助理解理论与实践结合。常见误区分析提醒考生避免错误编程习惯。应用场景说明属性与方法在实际项目中的重要性。知识拓展引导考生进一步深入理解。掌握本节内容，是熟练运用Visual Basic进行面向对象程序设计的关键。

---

通过系统学习本节内容，考生应能够：

• 理解属性与方法的基本概念及区别
• 能够正确使用Property过程定义属性
• 能设计合理的方法实现对象功能
• 掌握访问权限控制，实现数据封装
• 避免常见错误，提高程序健壮性
• 熟悉属性与方法在实际项目中的应用

祝愿考生通过扎实学习，顺利应对计算机等级考试二级Visual Basic语言程序设计相关考题！